Servus,

danke schonmal, du meinst dann also so?

Private Sub UserForm_initialize()
 With UserForm33
 'On Error GoTo bad
 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("C:\Users\Sebastian\Desktop\Dateien\Excel\logos\" & logo & ".jpg")
 On Error Resume Next
 Image2.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player1 & ".jpg")
 Image2.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
 On Error GoTo 0
 On Error Resume Next
 Image3.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player2 & ".jpg")
  Image3.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
 On Error GoTo 0
  On Error Resume Next
 Image4.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player3 & ".jpg")
  Image4.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
  On Error GoTo 0
   On Error Resume Next
 Image5.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player4 & ".jpg")
  Image5.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
  On Error GoTo 0
   On Error Resume Next
 Image6.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player5 & ".jpg")
  Image6.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
  On Error GoTo 0
   On Error Resume Next
 Image7.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\" & player6 & ".jpg")
  Image7.Picture = LoadPicture("C:\Users\Sebastian\Desktop\Dateien\Excel\players\test.jpg")
  On Error GoTo 0

   End With
End Sub

Problem ist jetzt allerdings immer noch, dass er mir z.B. bei Image2 gleich das Bild aus dem Errorpfad lädt, obwohl ein Bild mit der vorhandenen namensbezeichnung vorhanden ist :/

SG,

Sebastian