ich bin hier neu und hätte gleich mal eine Frage:
Ich habe ein Makro, welches mir bei entsprechender Eingabe des Pfades alle Bilder, die unter dem Pfad zu finden sind, in ein neues Tabellenblatt kopiert (siehe Beispielscode unten)...Jetzt hätte ich noch gerne unter jedes Bild, welches kopiert wird, den entsprechenden Dateinamen. Allerdings weiß ich leider nicht so recht, wie ich das machen soll. Habt ihr da eine Idee?
VG Kathrin
Private Sub CommandButton1_Click()
Dim strVerz As String, strDatei As String, pic As Picture
Dim iBreite As Integer, iAnz As Integer, lAnz As Long, lZ As Long
Dim wksBilder As Worksheet, wksDaten As Worksheet
Dim lHoehe As Long, lBildHoehe As Integer
Application.ScreenUpdating = False
Set wksDaten = ActiveSheet
'Bilder-Breite
iBreite = 300
'Anzahl der Bilder-Verzeichnisse
lAnz = Range("A" & Rows.Count).End(xlUp).Row
'Tabellenblatt für Bilder erstellen
Sheets.Add After:=Sheets(Sheets.Count)
Set wksBilder = ActiveSheet
'Verzeichnisse durchlaufen
For lZ = 2 To lAnz
'Bild-Dateinamen ermitteln
strVerz = wksDaten.Cells(lZ, 1) & wksDaten.Cells(lZ, 2) & "\" & wksDaten.Cells(lZ, 3) & "\"
strDatei = Dir(strVerz & "*.jpg")
'Bilder einfügen
Do While strDatei ""
For iAnz = 1 To 2
If InStr(strDatei, wksDaten.Cells(lZ, 4)) > 0 Then
If iAnz = 1 Then lHoehe = lHoehe + lBildHoehe + 10
Set pic = ActiveSheet.Pictures.Insert(strVerz & "\" & strDatei)
If pic.Width > iBreite Then pic.Width = iBreite
pic.Left = (iAnz - 1) * (iBreite + 10)
pic.Top = lHoehe
If iAnz > 1 Or lBildHoehe