Spalten sortieren

Hallo zusammen,
ich habe eine Tabelle von A2 - AD2. Die Spalten sollen in folgender Reihnenfolge via VBR sortiert werden. Leider sagt er mir immer Laufzeitfehler 91
Range("A2:AD900").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort.SortFields.Add Key:= _
Range("D2:D900"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort.SortFields.Add Key:= _
Range("B2:B900"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Eingabe").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim wksEingabe As Worksheet Set wksEingabe = ActiveWorkbook.Worksheets("Eingabe") With wksEingabe .Activate 'Prüfen, ob der Autofilter schon aktiv ist If .AutoFilterMode = True Then If .FilterMode = True Then ' .ShowAllData End If Else .Range("A2:AD900").Select Selection.AutoFilter End If End With With wksEingabe.AutoFilter.Sort .SortFields.Clear .SortFields.Add Key:=wksEingabe.Range("D2"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With With wksEingabe.AutoFilter.Sort .SortFields.Clear .SortFields.Add Key:=wksEingabe.Range("B2"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Sub Test2() Dim wks As Worksheet, Zeile As Long Set wks = ActiveWorkbook.Worksheets("Tabelle1") With wks Zeile = .UsedRange.Row + .UsedRange.Rows.Count - 1 'letzte benutzte Zeile With .Sort .SortFields.Clear .SortFields.Add(wks.Range("A2"), xlSortOnCellColor, xlDescending, , _ xlSortNormal).SortOnValue.Color = RGB(13, 13, 13) .SetRange wks.Range("A1:F" & Zeile) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End Sub

Hallo Guse,
die Tabelle hat ja jetzt einen anderen Namen. Also müssen die entsprechenden Prüfungen ob Autofilter vorhanden ebenfalls wieder eingebaut werden.
Gruß
Franz

Sub test()
Dim wksEingabe As Worksheet
Dim wks As Worksheet, Zeile As Long
Set wksEingabe = ActiveWorkbook.Worksheets("Eingabe")
With wksEingabe
.Activate
'Prüfen, ob der Autofilter schon aktiv ist
If .AutoFilterMode = True Then
If .FilterMode = True Then
'                .ShowAllData
End If
Else
.Range("A2:AD900").Select
Selection.AutoFilter
End If
End With
With wksEingabe.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=wksEingabe.Range("D2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With wksEingabe.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=wksEingabe.Range("B2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Set wks = ActiveWorkbook.Worksheets("Tabelle1") 'ggf. "Tabelle1" durch "Eingabe" ersetzen
With wks
.Activate
Zeile = .UsedRange.Row + .UsedRange.Rows.Count - 1 'letzte benutzte Zeile
'Prüfen, ob der Autofilter schon aktiv ist
If .AutoFilterMode = True Then
If .FilterMode = True Then
'                .ShowAllData
End If
Else
.Range("A2:AD" & Zeile).Select
Selection.AutoFilter
End If
End With
With wks.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add(Key:=wks.Range("A2"), SortOn:=xlSortOnCellColor, _
Order:=xlDescending, DataOption:=xlSortNormal).SortOnValue.Color _
= RGB(13, 13, 13)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread