Hallo zusammen,
ich hoffe, diese Sache wurde nicht schon zu oft gefragt - aber irgendwie bekomme ich es nicht hin.
Ich muss einen Ausgabenplan erstellen und habe hierfür die Spalten in zwei Bereiche unterteilt:
Beispielsweise:
Zellen A16-A50 - Laufende Kosten
Zellen A53-A60 - Sonderkosten
hierfür hab ich eine Userform als Eingabemaske erstellt, mit den Feldern "Artikel" und "Preis" als TextBox. Über einen Commandbutton "Speichern" sollen die Werte in die Tabelle übertragen werden.
Ich benötige jetzt quasi einen Befehl - "suche die nächste freie Zeile im Bereich A16-A50 und schreib den Wert hinein".
Für den unteren Bereich habe ich diesen Befehl schon gefunden:
If ZeileS1.Text <> "" Then Cells(Application.Max(53, Cells(Rows.Count, 1).End(xlUp).Row + 1), 1) = ZeileS1
Da Zeile A52 beschriftet ist und unter der Tabelle nichts mehr kommt - Funktioniert das gut. Weiß jemand wie ich das auf den Bereich A16-A50 übertragen kann?
Vielen Dank schon einmal!
Mit freundlichen Grüßen
pascal
|