Bereich = "A5:H30"
Sortierspalte = "A"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess
Dieser Makro Code funktioniert zwar aber nur für einen Bestimmten Bereich.
Wenn man Werte ergänzt sollte er aber auch funktionieren ohne das man den Bereich ständig ändern muss.
Außerdem ist zu beachten das sich die Kopfzeile in Zeile 5 befindet und die sich nicht mit verschieben soll.
Kann da jemand helfen?