Leere Zeile finden
27.04.2009 13:55:18
chrissey
hab ne (zumindest für mich) knifflige Frage:
Ich habe in einem Tabellenblatt namens Artikel anlegen in Zelle 2,2 einen Wert.
Diesen möchte ich nun auf eine Tabellenblatt namens Verbräuche übertragen.
Soweit so gut, aber der Wert soll sich unter eine Reihe von Werten, welche keine
konstante Anzahl haben, angehängt werden. Also soll die erste leere Zeile
gesucht werden und mit dem wert gefüllt werden.
Hab das schon mal mit Spalten geschafft, auf folgende Weise:
'LeereSpalte finden
'-------------------------------------------------------------
Dim LeSpa As Long
LeSpa = Worksheets("Verbräuche").Cells(2, Columns.Count).End(xlToLeft).Column + 1
'Punkt 1
Worksheets("Verbräuche").Cells(2, LeSpa).Value = Worksheets("Artikel anlegen").Cells(2, 2).Value
Dies müsste ich jetz für Zeilen anstatt für Spalten umformen
Grüße, schon ma Danke und Hilfe!!! ;)