nächste leere zelle
14.04.2005 14:18:11
Hamza
hab mir eine userform eingerichtet womit ich eigentlich die Daten
aus dem ComboBoxen und Listboxen die Daten aus in die
nächste leere Zeile eingetragen werden.
Also z.B.
Inhalt ComboBox1 in der aktuellen Zeile in die erste Spalte.
Inhalt ListIndex1 in der aktuellen Zeile in die zweite Spalte usw.
die Leere Spalte finde ich schonmal mit dem folgenden Makro aber weiter komme
ich nicht.
Private Sub CommandButton1_Click()
Cells(3, 1).Select
Cells(3, 1) = Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Gruß
Hamza