Office: Benutzerdefinierte Sortierung + Filter zurücksetzen

User · 22. Juni 2017

Hallo an Alle

Vielleicht könnte ihr mir helfen. Ich möchte auf einer Tabelle zuerst den eventuell eingestellt Autofilter wider zurücksetzen und dann benutzerdefiniert sortieren aber es geht nicht und ich Kapier einfach nicht, was an dem Code falsch ist.*eek.gif*

Im Moment wird der Auto Filter einfach ausgeschaltet er soll aber eingeschaltet bleiben, nur eben die Einstellungen darin zurückgesetzt werden.

Und das sortieren klappt überhaupt nicht.

Code:

Sub Zusammenfassung_Sortieren_Klick()

Dim lngLetzteZeile As Integer

Dim wsZusam As Worksheet
Dim wsZusamAlt As Worksheet
Set wsZusam = ThisWorkbook.Sheets("Zusammenfassung")
Set wsZusamAlt = ThisWorkbook.Sheets("Zusammenfassung Alt")

With ActiveSheet
If .AutoFilterMode = True Then
.AutoFilterMode = False
End If
End With

With wsZusamAlt
lngLetzteZeile = LetzteBeschriebeneZeile(.Range("A:O"))

If lngLetzteZeile < 3 Then
Set wsZusam = Nothing
Set wsZusamAlt = Nothing: Exit Sub
End If
End With

If ActiveSheet.Name = wsZusamAlt.Name Then
With wsZusamAlt.Sort
.SortFields.Clear
.SortFields.Add Key:=Range(Cells(5, 3), Cells(5, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(6, 3), Cells(6, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(3, 3), Cells(3, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(4, 3), Cells(4, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(Cells(1, 2), Cells(15, lngLetzteZeile))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
End If

Set wsZusam = Nothing
Set wsZusamAlt = Nothing

End Sub

Public Function LetzteBeschriebeneZeile(ByRef rngBereich As Range) As Long
' Ermittelt die letzte beschriebene Zeile
On Error Resume Next
LetzteBeschriebeneZeile = rngBereich.Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Row
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Simpel

:)

Hajo_Zi · 23. Juni 2017

ich habe mir den Code jetzt nicht angesehen, da ich die Aufgabe nur mit wenigen Zeilen mache.
Code:

Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 23. Juni 2017

Super Filterproblem ist gelöst Danke sehr.*biggrin.gif* Genau so wollte ich es. Einfach aufheben wenn was gefiltert ist aber ohne den Filter abzuschalten.

Kann mir noch jemand sagen was ich bei der Sortierung falsch machen??

Aktueller Code mit behobenen Filterproblem:

Code:

Sub Zusammenfassung_Sortieren_Klick()

Dim lngLetzteZeile As Integer

Dim wsZusam As Worksheet
Dim wsZusamAlt As Worksheet
Set wsZusam = ThisWorkbook.Sheets("Zusammenfassung")
Set wsZusamAlt = ThisWorkbook.Sheets("Zusammenfassung Alt")

With wsZusamAlt
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
End With

With wsZusamAlt
lngLetzteZeile = LetzteBeschriebeneZeile(.Range("A:O"))

If lngLetzteZeile < 3 Then
Set wsZusam = Nothing
Set wsZusamAlt = Nothing: Exit Sub
End If
End With

If ActiveSheet.Name = wsZusamAlt.Name Then
With wsZusamAlt.Sort
.SortFields.Clear
.SortFields.Add Key:=Range(Cells(5, 3), Cells(5, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(6, 3), Cells(6, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(3, 3), Cells(3, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range(Cells(4, 3), Cells(4, lngLetzteZeile)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(Cells(1, 2), Cells(15, lngLetzteZeile))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
End If

Set wsZusam = Nothing
Set wsZusamAlt = Nothing
End Sub

Public Function LetzteBeschriebeneZeile(ByRef rngBereich As Range) As Long
' Ermittelt die letzte beschriebene Zeile
On Error Resume Next
LetzteBeschriebeneZeile = rngBereich.Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Row
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bzw. Gibt es für die Benutzerdefinierte Sortierung noch eine kürzere Schreibweise ???

Grüße Simpel

User · 25. Juni 2017

Hallo

Das mit der Sortierung hat sich erledigt, ich Idiot hab bei der .Cells Angabe die Zeilen und Spalten genau verkehrtherum angegeben. Da kommt übrigens der Fehler 1004.

Grüße Simpel

Office: Benutzerdefinierte Sortierung + Filter zurücksetzen

Benutzerdefinierte Sortierung + Filter zurücksetzen

Benutzerdefinierte Sortierung + Filter zurücksetzen

Benutzerdefinierte Sortierung + Filter zurücksetzen

Benutzerdefinierte Sortierung + Filter zurücksetzen - Similar Threads - Benutzerdefinierte Sortierung Filter

2 Benutzerdefiniertes Inhaltsverzeichnis erstellen

56 Benutzerdefinierte Farben in die Farbpalette integrieren

Bericht per VBA formatieren

Benutzerdefinierte Spalte anhand von Bedingungen in Powerquery

Benutzerdefiniertes Sortieren nach eigener Liste funktioniert nicht

Text automatisch in benutzerdefinierte Zelle integrieren

Sortierung nach benutzerdefinierter Liste