danke dass du dir meiner annimmst. die links haben mir mit meinen kenntnissen leider nicht geholfen.wenn du willst lade ich dir datei hoch ca.180kb oder sende sie per mail. möchte nun die bilder von tabbelle2 anzeigen.
Private Sub UserForm_Initialize()
With Me.ComboBox1
Me.ComboBox1.RowSource = "Tabelle2!A2:A15"
.ListIndex = 0 'Voreinstellung Combobox
End With
End Sub
Private Sub ComboBox1_Change()
UserForm1.Image1.Picture = LoadPicture("C:\Users\Harry\Pictures\AdressBilder\" & ComboBox1 & _
".jpg")
' UserForm1.Image1.Picture = LoadPicture(workseets("Tabelle2").Range("B2:B15") & ComboBox1 & ( _
".jpg")
End Sub
besten dank für jede hilfe