Code: Dialog Sortieren

Sub Tabellesortieren()
Dim Lz As Long    'letzte befüllte Zeile
Dim Ls As Long    'letzte Spalte
Ls = Cells(2, Columns.Count).End(xlToLeft).Column   'ermittelt die Spalte der letzten Ü _
berschrift in Zeile 2
Lz = Range(Columns(1), Columns(Ls)).SpecialCells(xlCellTypeLastCell).Row 'ermittelt letzte  _
_
befüllte Zeile
Range(Cells(3, 1), Cells(Lz, Ls)).Select
Application.Dialogs(xlDialogSort).Show
End Sub