Combox
17.04.2008 16:24:19
gp
ich habe eine ComBox, diese wird gefüllt über einen fest definierten Bereich in der Tabelle.
Bei Aenderung des Inhalts in der Combox (Change) soll der dann enthaltene Wert in eine,
oder noch besser mehrere Zellen eingetragen werden.
Private Sub ComboBox1_Change()
If Me.ComboBox1 = "N-16mm" Then ........z.B. H2 und H30 und H60
If Me.ComboBox1 = "S-16mm" Then ........
If Me.ComboBox1 = "N-35mm" Then .......
If Me.ComboBox1 = "S-35mm" Then .......
End Sub
Was müsste ich schreiben nach Then, oder gibt es einfachere Lösungen.
Danke für Hilfe.
Gruss
Gunter
Anzeige