Auslesen von Werten aus einer Combobox
30.08.2008 12:24:00
Werten
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über einen Lösungsvorschlag wäre ich sehr froh.
Sub ComboBoxFüllenBezug()
Worksheets("Osterhase").ComboBox1.ListFillRange = _
"E11:E25"
End Sub
Sub ComboBox1_Click()
Dim varWert As Variant
Dim lngLetzteZelle As Long
lngLetzteZelle = Cells(Rows.Count, 4).End(xlUp).Row + 1 'die erste freie Zelle in Spalte D
varWert = Me.ComboBox1.Value
Cells(lngLetzteZelle, 4).Value = varWert
End Sub
Anzeige