Vorab, Ich weiß dass die Zeile If ComboBox1.Text = "TK00" Then
falsch ist, aber wie kann ich es bitte erreichen dass bei Auswahl in der ComboBox der richtige Wert in die TextBox eingetragen wird? Bei Tk00 kklappt es. Bei TK01 klarerweise nicht. Ich würde es wenn möglich mit Select Case versuchen.
Private Sub ComboBox1_Change()
If ComboBox1.Text = "TK00" Then
Select Case ComboBox1
Case "TK00"
TextBox1 = "4070010"
Case "TK01"
TextBox1 = "4070020"
End Select
End If
End Sub
Danke
Josef