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(
"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