ich habe mir gestern bereits durch Hajo bei meinem Problem helfen lassen und komme leider nicht selbständig auf die absolute Lösung.
Ich möchte durch das aufrufen eines Makros erreichen, dass in der Spalte "D"
Bilder die in einem Verzeichnis gespeichert sind angezeigt werden.
Bsp.: In der Zelle C2 steht der Text "Bild1" und in der Zelle C3 steht der Text "Bild2", jetzt soll durch aufrufen des Makros in D2 das Bild "Bild1.jpg" und in der Zelle D3 das Bild "Bild2.jpg" angezeigt werden u.s.w.
Dieses funktioniert soweit auch ganz gut mit folgendem Code:
Public
Sub test()
Dim stbild As String
Dim ini As Integer
Dim zeile As Integer
Dim rabereich As Range, razelle As Range
'Bereich der Wirksamkeit
Set rabereich = Range("c1.c999")
zeile = 2
Do While Cells(zeile, 3) <> ""
Rows("2:9999").Select
Selection.RowHeight = 105
Application.EnableEvents = False
Cells(zeile, 3).Offset(0, 1) = ""
Application.EnableEvents = True
stbild = "G:\Verw\Schmidt\Angebot\Bilder\" & Cells(zeile, 3) & ".jpg"
ActiveSheet.Shapes.AddPicture(stbild, True, True, Cells(zeile, 3).Offset(0, 1).Left, Cells(zeile, 3).Offset(0, 0).Top, 100, 100).Name = Cells(zeile, 3).Address(False, False)
zeile = zeile + 1
Loop
End Sub
Problem ist, wenn es in meinem Bilderverzeichnis kein entsprechendes Bild gibt, läuft die routine auf fehler... idealerweise sollte dann in Spalte "D" stehen "Bild nicht vorhanden" o.ä.
Vielen Dank für Eure Hilfe
Sebastian