879 Aufrufe
Gefragt in Tabellenkalkulation von
Ich sammle Daten (in Zeilen) aus mehreren Tabellen und fülle diese laufend in eine neue Tabelle ab. Ich möchte die Zeilennummer der nächsten freien Zelle (diese Zelle ist nach dem letzten Eintrag bereits die aktive Zelle) festhalten, um beim Schleifendurchgang aus der nächsten Tabelle dort mit dem nächsten Eintrag fortfahren zu können.

1 Antwort

0 Punkte
Beantwortet von coros Experte (4k Punkte)
Moin Mrs. oder Mr. ????

Nachfolgend mal 2 Makros, die Dir die erste freie Zeile ermittelt.


Option Explicit

Sub Erste_Freie_Zelle_im_gesamten_Dokument()
Dim lngFirstRow As Variant 'Long
On Error GoTo errorhandler
lngFirstRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Offset(1, 0).Row
MsgBox "1. freie Zeile im gesamten Dokument befindet sich in Zeile " & lngFirstRow
Exit Sub
errorhandler:
MsgBox "Fehler!!! - 1. freie Zeile im gesamten Dokument könnte sich in Zeile " & lngFirstRow & " befinden"
End Sub



Sub Erste_Freie_Zelle_in_Spalte_A()
Dim lngFirstRow As Long
'Für andere Spalte als A die Indexzahl 1 gegen eine andere Spaltenindexzahl _
austauschen. Spalte B wäre z.B. die Zahl 2, Spalte C die Zahl 3 usw.
lngFirstRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
MsgBox "1. freie Zelle in Spalte A befindet sich in Zeile " & lngFirstRow
End Sub


Für Dein Vorhaben interessant sind die Zeilen in den Makros, die mit „lngFirstRow =…..“ anfangen.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
...