Hallo Hajo,
Danke für die prompte Antwort!
Ich habe es versucht mit:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
oder
Schaltfläche:
Sub Schaltfläche8_BeiKlick()
UserForm1.Show
End Sub
In der UserForm1 selbst:
Private Sub ComboBox1_Change()
Set gefunden = Tabelle1.Range("A1:A9").Find(ComboBox1)
If Not gefunden Is Nothing Then
TextBox1 = gefunden.Offset(0, 1).Value
TextBox2 = gefunden.Offset(0, 2).Value
TextBox3 = gefunden.Offset(0, 3).Value
End If
End Sub
Die funktionieren nur in Tabelle 1, in Tabelle2 kann die Userform schon aufgerufen werden, allerdings sind keine Inhalte in den Combo-Boxen bzw. Test-Boxen zu sehen.
Das ist der Ist-Zustand!
Gruß
Paul1