'Ermitteln der letzte Zeile über alle Spalten
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox "letzte Zeile über alle Spalten: " & letztezeile
'Ermitteln der letzte Zeile der Spalte A
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "letzte Zeile der Spalte A: " & letztezeile'letzte Spalte über alle Zeilen
'Ermitteln der letzten Zeile über alle Zeilen
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
MsgBox "letzte Spalte über alle Zeilen: " & letztespalte
'Ermitteln der letzte Spalte der Zeile 4
letztespalte = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
MsgBox "letzte Spalte der Zeile 4: " & letztespalte