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 hilfeDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen