Mit diesem Code aktiviere ich den Sortieren-Dialog:
Option Explicit
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
Jetzt fehlt mir nur noch, dass beim Erscheinen des Dialogs gleich "Keine Überschrift" angeklickt ist.Kann mir das noch jemand ergänzen?
Danke uns Servus, Walter
P.S. Sehe ich zum 1. Mal, dass keine Frage offen ist bzw. war!