If TextBox1.Value = "xy" Then Set ComboBox3.Value
15.10.2004 09:22:48
Christian
VBA nein stimmt nicht, aber gut wäre übertrieben.
Ich versuche folgendes festzuschreiben:
If TextBox1.Value = "xy" Then Set ComboBox3.Value = "xyz"
Hintergrund: Wenn TextBox1 einen bestimmten Wert annimmt, kann ComboBox3 nur einen Wert haben.
Leider funktioniert es nicht so wie ich es mir vorstelle.
Ist der Befehl inkorrekt oder liegt es daran, dass ich ihn an der falschen Stelle bringe.
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Deutsch"
ComboBox1.AddItem "Englisch"
ComboBox2.AddItem "Chinesisch"
ComboBox2.AddItem "Spanisch"
ComboBox2.AddItem "Tschechisch"
ComboBox2.AddItem "Ungarisch"
ComboBox3.AddItem "Med MR"
ComboBox3.AddItem "Med SP"
ComboBox4.AddItem "Onlinehilfe"
ComboBox4.AddItem "Handbuch"
'hier habe ich ihn ausprobiert
End Sub
------------------------------------------
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Eingabe").Activate
Range("H3") = TextBox1
Range("H5") = TextBox2
Range("H6") = TextBox5
Range("H7") = ComboBox1
Range("H8") = ComboBox2
Range("H2") = ComboBox3
Range("H4") = ComboBox4
' Und hier auch
Eingabe.Hide
Range("A1").Activate
End Sub
Anzeige