Hallo Forumsmitglieder, -besucher, -betreiber
Habe Artikelnummern in einer Spalte (Spalte C) stehen und möchte mittels einem Makro den NAMEN des zugehörigenden Bildes in die Spalte J schreiben. Der Name des Bildes hat am Anfang die Artikelnummer stehen (ArtikelnummerZusatzbezeichnung.jpg) und befindet sich in einem Ordner auf dem NAS (kann für diesen Zweck auch lokal gespeichert werden..)
Folgendes Makro müsste geändert werden, dass nicht das eigentliche Bild, sondern nur der Name in die Zelle geschrieben wird... (zwischendurch hat es vielleicht mal eine leere Zelle ohne Nummer...da soll das Makro bei der nächsten Zelle weitermachen)
Option Explicit
Sub Bildername_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "C:\Bilder"
For Wiederholungen = 2 To Range("H1000").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub
Wie soll ich das anstellen bzw. was muss ich im Makro ändern? Herzlichen Dank
Gruss mona