Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Dort hat jemand mein Problem geloest! Wer also was aehnliches sucht...

Hallo Zusammen!

Ich brauche eure Hilfe!
Ich habe folgendes Problem:

Ich moechte eine Tabelle mit verschieden Artikelnummern erstellen und je nach Artikelnummer das passende Foto per Makro einfuegen (diese Tabelle werde ich jede Woche aktualisieren, weshalb sich die Artikelnummern laufend aendern).

Bisher habe ich folgendes vorbereitet:

Zelle A1=10
Zelle D7= AL004 (Artikelnummer)
Zelle F7= hier soll das Foto eingefuegt werden
Zelle H7= ="Q:\Test Makro\"&D7&".jpg. (unter diesem Link habe ich das Zielfoto abgelegt)

Als naechstes habe ich folgendes Makro in VB hinterlegt:

Sub bild_laden()
On Error Resume Next

Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim zelle As String

j = 65
i = 6
h = 1


While h <= Range("A1")
Range(Chr(70) + Trim(Str(i))).Select
ActiveSheet.Pictures.Insert(Range(Chr(72) + Trim(Str(i)))).Select
Selection.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
h = h + 1
i = i + 1
Wend


End Sub

Dann habe ich eine Schaltflaeche mit dem Makro verknuepft...
Sobald ich diese Schaltflaeche betaetige schmiert mein Excel ab (Fehlermeldung: Microsoft Excel funktioniert nicht mehr. Programm neu starten)

Ich habe diese Art von Tabelle mit genau diesem Makro schon frueher verwendet und es hat immer bestens funktioniert...

Wisst ihr was der Fehler ist? Oder habt ihr einen anderen Vorschlag, wie ich Bilder automatisch in Excel bekomme?
Ich kenne mich mit VB ueberhaupt nicht aus!
Habe es auch schon mit dem PC meiner Kollegin probiert und auch dort erschien die gleiche Fehlermeldung - also muss es ja am Makro liegen, oder? (Sie hat Office 2013)

Ich danke euch schon jetzt fuer eure Hilfe!!!!

Stephanie