![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
MichaBN |
| Datum |
27. November 2025 um 18:04:31 |
| Frage |
Liebe VBA Fans,
ich weiß nicht, wo der Fehler liegt, da der datenBereich als richtig angezeigt wird, sobald ich bei .Apply bin.
Datenberiech wird angezeigt: AU102:CF782. Die zu sortierenden Spalten liegen in diesem Bereich (also die sort Keys: Spalt 47 (AU), Spalte 55 (BC) und 52 (AZ).
Dennoch bekomme ich die Meldung, den Sortierbezug zu prüfen, ob der innerhalb der markierten Daten ist.
Kann mir jemand einen hilfreichen Tipp geben?
Vorab besten Dank!
Sub DynamischSortierenDreiKriterien()
Dim ws As Worksheet
Dim datenBereich As Range
Set ws = ThisWorkbook.Sheets("Datenbank...") >> hier wird das Wort " A n a l y s e " nicht genommen (Fehler im Forum Text?!?)
Set datenBereich = ws.Range("AU103").CurrentRegion
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=datenBereich.Columns(47), SortOn:=xlSortOnValues, Order:=xlDescending
.SortFields.Add Key:=datenBereich.Columns(55), SortOn:=xlSortOnValues, Order:=xlAscending
.SortFields.Add Key:=datenBereich.Columns(52), SortOn:=xlSortOnValues, Order:=xlAscending
.SetRange datenBereich
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub]
|
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang