ich habe eine Tabellenblatt, wo sich beim ändern einer bestimmte Zelle jeweils 3 verschieden Bild geladen wird. Ich nutze dafür das Active X Bildsteuerelemt. Diese Macro geht auch soweit. Ich habe aber ein Problem wenn das Bild nicht vorhanden ist. Ich bin von der Idee ausgegangen, wenn kein Bild gefunden wird, entsteht ja ein Fehler. Den Fehler habe ich genutzt und eine Schleife programmiert, wenn ein Fehler auftritt, dann lade ein anderes Bild. Grundsätzlich geht dieses auch. Nur die Abbildung ist nicht immer richtig. Ich lade immer 3 Bilder hintereinandern. Fehlt das 1. Bild und die anderen 2 Bilder sind vorhanden, dann sehe ich das 1. Bild richtig, aber die anderen Bilder werden mit den korrekt angezeigt. Es wird das Bild gezeigt, was entstehen würde, wenn das Bild nicht vorhanden ist.
Hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' bilder laden
On Error Resume Next
'Wert aus DropDown in Variable BrickID schreiben
BrickID = Range("A3").Value
'Bild Laden
Bild.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\" & BrickID & "_screenshot.jpg")
If Err.Number 0 Then ActiveSheet.Bild.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\00-00.jpg")
CB.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\" & BrickID & "_cb.jpg")
If Err.Number 0 Then ActiveSheet.CB.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\00-00.jpg")
Position.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\" & BrickID & "_position.jpg")
If Err.Number 0 Then ActiveSheet.Position.Picture = LoadPicture(ThisWorkbook.Path & "\Bilder_neu\00-00.jpg")
Wenn einer mich verstanden hat, würde ich mich über eine Antwort freuen.
Danke
Matthias