Hallo an alle,
auch ich habe ein Problem mit dem einfügen von Bildern in Excel.
Ich fand hier auf der Seite folgendes Makro, dass auch super funktioniert:
Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long
Pfad = "C:\\"
For Wiederholungen = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
strDatnam = Pfad & Cells(Wiederholungen, 2).Value & ".jpg"
If Dir(strDatnam) <> "" Then
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 1).Left, Cells(Wiederholungen, 1).Top, 85, 85
Else
ActiveSheet.Cells(Wiederholungen, 1) = "Bild nicht vorhanden"
End If
Next
End Sub
Nun zu meiner Frage, in diesem Makro ist die Spalte "B" die Quelle des Dateinamens, bei mir müsste ich aber für verschiedene Tabellen gelegentlich die "Quelle" ändern. Das heist mal wäre es die Spalte A mal die Spalte C oder auch mal K.
Ich schaffe es zwar die "Zielspalte" in diesem Makro ohne weiteres zu ändern, aber leider gelingt es mir nicht die "Quellspalte" zu ändern.
Könnte mir bitte jemand erklären wie ich dieses in diesem Makro mache um flexibler zu sein.
Im vorraus schon mal vielen Dank!
Gruß Alex