Sortierung mit Kopfzeie trotz "Header:=x1Guess"
09.04.2009 12:57:22
ROlf
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlDescending, Key3:=Range("F2"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Columns("AI:AI").NumberFormat = "yyyy"
Bewirkt die Sortierung meiner Tabelle. Dummerweise wird auch die Titelzeile mit sortiert, obwohl da steht : "Header:=x1Guess". Wo liegt der Fehler, wenn nicht da?
Danke für jede Anregung!
Rolf