Deine (untenstehende) Prozedur um TextBoxen anhand ComboBox-Auswahl zu füllen funktioniert nur wenn die UserForm im selben Tabellenblatt wie die Daten geöffnet wird.
nun möchte ich aber die UserForm in einem anderen Tabellenblatt öffnen. habe verschiedene Sachen probiert nur klappt es nicht.
Wie sollte man vorgehen damit es läuft?
Danke, Daniele
Private Sub UserForm_Initialize()
Sheets("Tabelle1").Select
ComboBox1.Clear
Dim i%
i = 3
Do Until IsEmpty(Cells(i, 1))
ComboBox1.AddItem Cells(i, 1)
i = i + 1
Loop
End Sub
Private Sub ComboBox1_Change()
'füllt die cobobox mit den Datensätzen
Dim r%
r = ComboBox1.ListIndex + 3
TextBox1.Text = Cells(r, 1)
TextBox2.Text = Cells(r, 2)
TextBox3.Text = Cells(r, 3)
TextBox4.Text = Cells(r, 4)
TextBox5.Text = Cells(r, 5)
End Sub