Supportnet / Forum / Tabellenkalkulation
Problem mit Makro zum Bilder einfügen in Excel 2007
Frage
Hallo,
mit Hilfe aus dem supportnet bin ich zu diesem Makro gekommen, welches in Excel 2003 perfekt Bilder aus einem Verzeichnis zur passenden Artikelnr sucht und in Excel einfügt.
Jetzt bin ich auf Excel 2007 umgestiegen und das Makro funktioniert nicht mehr richtig.
Was muss ich ändern ?
Anbei das Makro:
"
Option Explicit
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
' Hier wird der Pfad angegeben in dem die Bilder liegen
Pfad = "P:\300x300\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
' Die Zahl in der folgenden Zeile steht für die Spalte in der das Bild wiedergegeben wird
Cells(Wiederholungen, 3).Activate
' Die Angabe in Anführungszeichen steht für die Dateiendung der Bilder
' Wenn in Spalte A nur die Artikelnr steht, steht in der Dateiendung der Rest des Dateinamens
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub
"
Wäre für Hilfe sehr dankbar !
Andreas