Makro funktioniert nicht mehr
Wolfgang
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebeben.
Dann wird das Makro ausgeführt und dann werden in die 3. Spalte "C" Bilder aus einem Verzeichnis eingefügt.
Die Bilder werden auch gleichzeitig auf eine Größe gebracht.
Der Namen der Bilder entspricht den Artikelnummern in der 1. Spalte.
Also Spalte A-> Artikelnummer 1255 -> Bild 1255.jpg in Spalte C ablegen und dabei vorher auf die eingestellte Größe bringen.
Das funktionierte unter Excel 2003 super, aber unter Excel 2007 funktioniert es so, das alle Bilder übereinander in der ersten Zelle abgelegt werden, anstatt sie den einzelnen Zellen zuzuordnen.
[Code]
Sub Bilder_einfügen()
Dim PhotoWidth As Integer
Dim PhotoHeight As Integer
Dim Pfad As String
Dim Wiederholungen As Long
PhotoWidth = 50.25
PhotoHeight = 30.75
On Error Resume Next
Pfad = "C:\Bilder\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Selection.ShapeRange.Height = PhotoHeight
Selection.ShapeRange.Width = PhotoWidth
Next
End Sub
[/Code]
Ich habe bis jetzt rausgefunden, das die Zeile
[Code]
Cells(Wiederholungen, 3).Activate
[/Code]
nicht funktioniert.
Was ist falsch?
Für schnelle Hilfe wäre ich dankbar.