Hallo zusammen und ein frohes Neues!
Ich habe ein Excel-Tabellenblatt mit einer Userform, in der ich insgesamt 7 Bilddateien laden möchte. Für die (sich verändernden) Namen, die in Ax4-Ax9 auftauchen gibt es entsprechende Bilddateien mit dem Namen in einem Ordner.
Private Sub UserForm_initialize()
With UserForm33
Dim logo As String
Dim player1 As String
Dim player2 As String
Dim player3 As String
Dim player4 As String
Dim player5 As String
Dim player6 As String
logo = Worksheets("VS").Range("B1")
player1 = Worksheets("VS").Range("AX4")
player2 = Worksheets("VS").Range("AX5")
player3 = Worksheets("VS").Range("AX6")
player4 = Worksheets("VS").Range("AX7")
player5 = Worksheets("VS").Range("AX8")
player6 = Worksheets("VS").Range("AX9")
Image1.Picture = LoadPicture("Dateifpad" & logo & ".jpg")
Image2.Picture = LoadPicture("Dateifpad" & player1 & ".jpg")
Image3.Picture = LoadPicture("Dateifpad" & player2 & ".jpg")
Image4.Picture = LoadPicture("Dateifpad" & player3 & ".jpg")
Image5.Picture = LoadPicture("Dateifpad" & player4 & ".jpg")
Image6.Picture = LoadPicture("Dateifpad" & player5 & ".jpg")
Image7.Picture = LoadPicture("Dateifpad" & player6 & ".jpg")
End With
End Sub
Jetzt passiert es aber, dass ich in den zellen ax4-ax9 ab und zu Namen stehen, für die es keine zugehörige Bilddatei im entsprechenden Ordner gibt. Ich würde dann jedesmal gerne eine Standard-Bilddatei laden, wenn dies der Fall ist. Ich habs jetzt auch schon über On Error go to versucht aber irgendwie lädt er mir dann jedesmal das Bild aus dem Errorverweis.
Kann mir vielleicht wer helfen? Vielen Dank schonmal! :)
Sebastian
|