Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboBox1_Click()
If ComboBox1.Value = "4 (es handelt sich hierbei um Missmanagement)" Then
Worksheets("Tabelle1").Cells(10,10) =4
End If
If ComboBox1.Value ="5 (Wasserball macht Spass)" Then
Worksheets("Tabelle1").Cells(10,10) =5
End If
If……..
Geht das vielleicht auch in einer Schleife, wobei nur die Zahl von 1-10 der ComboBox berücksichtigt wird und der Erklärungstext in den Klammern beim Auslesen ignoriert wird?
Euch einen schönen Abend und danke für Eure Ratschläge,
Nic