Zum Inhalt springen

schnelleshelles

Mitglieder
  • Gesamte Inhalte

    13
  • Benutzer seit

  • Letzter Besuch

Beiträge von schnelleshelles

  1. Hallo zusammen,

    ich habe mehrere Fragen.

    Ich habe den Beruf Fisi gelernt, aber jetzt wollte ich nochmal schauen, ob der Fiae doch der bessere Beruf für mich wäre,

    deshalb würde ich gerne einen VHS Kurs zum Programmieren belegen.

    Welche Sprache würdet ihr mir empfehlen.

    C, C++ ,C# oder Java.

    Java habe ich bereits in der Berufsschule gelernt( Grundkenntnisse) . Leider war ich teilweise überfordert als

    es  z.B. darum ging einen Taschenrechner zu programmieren. Wusste nicht wie man da am besten vorgeht.

    Jetzt die Frage, welche Sprache würdet ihr mir empfehlen bzw. welche hat die besten Jobaussichten.

     

     

     

     

  2. Hallo Leute. Ich bin Fisi und muss ein Visual Basic Excel Makro schreiben.

    Es geht darum zu Produkten anhand von Produkt-Nummer das zugehörig Bild einzufügen.

    Mein Makro funktioniert auch, aber ich wollte noch eine manuelle Selektion einfügen, dass nur für die manuell ausgewählten Produktnummern die Bilder eingefügt werden,

    da ich leider keine Ahnung von VBA habe. Habe ich es mir zusammen geschustert.

     

    Danke im Voraus!!

    hier der funktionierende Code.

     

    Private Sub CommandButton1_Click()
    Dim i As Integer
        For i = 2 To 10000
    Dim strpath As String
    strpath = "C:\Bilder\"
        If ActiveSheet.Range("B" & i).Value > 0 Then
        On Error Resume Next
        ActiveSheet.Range("A" & i).Select
        Set Zelle = ActiveCell
            If Not Dir(strpath & Range("B" & i).Value & ".JPG") = "" Then
            Set Bild = ActiveSheet.Pictures.Insert(strpath & Range("B" & i).Value & ".JPG")
            With Bild
            .Placement = 2
            .Left = Zelle.Left
            .Top = Zelle.Top
            .Width = Zelle.Height
            .Height = Zelle.Height
            End With
            End If
        End If
        Next
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub

     

    Hier der Code der nicht geht, habe das hier verwendet: http://www.supportnet.de/fresh/2005/4/id1049238.asp

     

    Private Sub CommandButton1_Click()
    Dim i As Integer
        For i = 2 To 10000
    Dim strpath As String
    Dim rngBer As Range
    strpath = "C:\Bilder\"
        Set rngBer = Application.InputBox _
        (prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
        If ActiveSheet.Range("rngBer" & i).Value > 0 Then
        On Error Resume Next
        ActiveSheet.Range("A" & i).Select
        Set Zelle = ActiveCell
            If Not Dir(strpath & Range("rngber" & i).Value & ".JPG") = "" Then
            Set Bild = ActiveSheet.Pictures.Insert(strpath & Range("rngBer" & i).Value & ".JPG")
            With Bild
            .Placement = 2
            .Left = Zelle.Left
            .Top = Zelle.Top
            .Width = Zelle.Height
            .Height = Zelle.Height
            End With
            End If
        End If
        Next
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub

     

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...