Ich habe mehrere Textboxen in einem UserForm.
Jetzt habe ich aus eine Tabelle einen Wert ausgelesen und möchte ihn in die erste Textbox eintragen.
Mein versuch schlägt fehl:
Private Sub ComboBox1_Change()
cc = 0
plus:
cc = cc + 1
If cc > 81 Then GoTo ENDE
Sheets("Test").Select
Cells(cc, 4).Select
wert1 = ActiveCell.Value
If wert1 <> ComboBox1 Then GoTo plus
If wert1 = ComboBox1 Then Cells(cc, 3).Select
wert2 = ActiveCell.Value
TextBox1.Value = wert2
Wo ist der Fehler?
ENDE:
If cc < 81 Then GoTo plus
End Sub