Sie wollen in #Excel mit #VBA die #letzteZeile oder die #letzteSpalte finden? Da haben Sie viele Möglichkeiten – ich stelle Ihnen diese Woche ein paar davon vor, es wird jeweils die Zeilennummer bzw. die Spaltennummer (also nicht der Buchstabe) geliefert. mySheet ist eine Objektvariable, die auf das auszuwertende Blatt verweist (z.B. per
Set mySheet = ThisWorkbook.Worksheets("Tabelle1")
oder
Set mySheet = ActiveSheet
schon irgendwo früher im Code. Wir gehen davon aus, dass das passt :-).
LastRowNo = mySheet.Cells(mySheet.Rows.Count, "A").End(xlUp).Row
LastColNo = mySheet.Cells(1, mySheet.Columns.Count).End(xlToLeft).Column
Hier wird die letzte Zeile ermittelt, indem von der letzten Zeile des Arbeitsblattes (mySheet.Rows.Count) in der Spalte A (falls die nicht geeignet ist, nehmen Sie eine andere) so weit hinaufgeklettert (xlUp) wird, bis eine Zelle mit Inhalt (Formatierungen werden ignoriert) auftaucht. Deren Zeilennummer wird der Variablen LastRowNo zugewiesen.
Analog wird für die Spalten gearbeitet: in Zeile 1 wird von der möglichen letzten Blattspalte aus nach links gegangen (xlToLeft), bis eine nicht-leere Zelle auftaucht.
katharinakanns
Soprani Software 