ich habe folgendes Makro:
Public Sub ComboBox1_Change()
Dim strTabName As String
strTabName = ActiveSheet.Name
Sheets(strTabName).Range("M2") = ActiveSheet.ComboBox1.Value
If ComboBox1.ListIndex = 1 Then
MsgBox "ja"
Sheets(strTabName).Range("J2") = 1
Else
Sheets(strTabName).Range("J2") = ""
MsgBox "falsch"
End If
Ich möchte, wenn ich den 1.Wert angeklickt habe, das dann in A10 eine 1 gesetzt wird, beim 2.ausgewählten Text eine 2 u.s.w.
irgenwie klappt es nicht.
mfg klausk