Hallo,
vielen Dank schonmal für die schnelle Antwort!
Leider klappt es bei mir noch nicht...
Die Bilder habe ich schon in "Artikel-001", "Artikel-002", usw. umbenannt. Die Artikelnummern haben die gleichen Namen.
Ich habe den Code so eingefügt:
Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long
Pfad = "/Users/Joana/Desktop/Artikel"
For Wiederholungen = 2 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Namen der Bilder stehen in Spalte B - ohne Endung; Einlesen in Variable mit Pfadangaben
strDatnam = Pfad & Cells(Wiederholungen, 2).Value & ".jpg"
'Prüfen, ob Bilddatei im Verzeichnis existiert
If Dir(strDatnam) <> "" Then
'falls ja: Bilder werden in Spalte C eingefügt, Größe 3 x 3 cm
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 3).Left, Cells(Wiederholungen, 3).Top, 85, 85
Else
'falls nein, wird in Spalte C eine Fehlermeldung geschrieben
ActiveSheet.Cells(Wiederholungen, 3) = "Bild nicht gefunden"
End If
Next
End Sub
--> ich habe nur den Pfad eingetragen der den Weg zum Bilderordner angibt.
--> wenn ich das so lasse, dann bekomme ich diese Fehlermeldung: "Laufzeitfehler 68" -Das Gerät ist nicht verfügbar- (ein Mac Problem?)
--> muss ich bei *If Dir(strDatnam) <> "" Then* noch etwas in die Gänsefüßchen schreiben?
Ich hoffe Du/Ihr könnt mir hierbei noch einmal helfen!
Vielen Dank und viele Grüße,
Joana