Alphabetische Sortierung in VBA
13.08.2014 13:51:08
Thomas
ich weiß, dass es einige Foren zu dem Thema gibt, allerdings habe ich keins gefunden indem mein Problem behandelt wird. Falls es doch eins gibt, bitte ich das zu entschuldigen.
Ich versuche meinen als Tabelle formatierten Bereich beim Starten der Anwendung alphabetisch zu sortieren (nach Spalte A, die allerdings eine Überschrift hat die nicht berücksichtigt werden sollte).
Private Sub UserForm1_Activate()
Worksheets("Datenbank").Activate
ActiveSheet.Range("Tabelle2").Select
With ActiveSheet.Range
.Range("Tabelle2").Sort _
Key1:=.Range("Tabelle2"), Order1:=xlAscending, _
Header:=xlGuess, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Wo genau liegt mein Fehler? Ist es überhaupt möglich einen Bereich der als Tabelle formatiert ist alphabetisch zu sortieren?
Vielen Dank schonmal an die Helfer!