letzte Zeile, letzte Spalte über VBA ermitteln

Eine beliebte Anwendung ist das "Ziehen" von Daten aus einer anderen Datei, die Excel dann automatisch an das Ende einer bestehenden Tabelle anfügen soll. Um automatisch das Ende der bestehenden Liste zu finden, helfen die folgendne beiden Befehle.

Sub letzte_Zeile_Test()
'finden der letzten zeile in Spalte A
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letztezeile
End Sub

Sub letzte_Spalte_Test()
'finden der letzten Spalte in Zeile 1
letztespalte = Sheets(1).Cells(1, 256).End(xlToLeft).Column
MsgBox letztespalte
End Sub