-
Sortier Mix, benutzerdefinierte Reihenfolge VBA
From
Oezcan.Ulucan@outlook.com@21:1/5 to
All on Sat May 23 04:38:24 2020
Hallo Liebe Gemeinde,
Ich habe eine benutzerdefinierte Liste (es existiert nur eine benutzerdefinierte Liste ) für die Sortierung in Excel hinterlegt.
Ich Sortiere zuerst nach : Spalte A (Datum) aufsteigend
Spalte H (Buchstaben) benutzerdefinierte Liste
Spalte G (Datum) absteigend
Leider Funktioniert es nicht. Was mache ich Falsch ?
With Master
Range(strBer).Sort key1:=Range(strSpA & "8"), order1:=xlDescending, _
key2:=Range(strSpH & "8"), OrderCustom:=Application.CustomListCount + 1, _
key3:=Range(strSpG & "8"), Order3:=xlAscending, Header:=xlYes
End With
Könnt Ihr helfen ?
Bitte Bleibt Gesund!
VG
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
-
From
Oezcan.Ulucan@outlook.com@21:1/5 to
All on Sat May 23 06:15:47 2020
Hallo Liebe Gemeinde,
Ich habe eine benutzerdefinierte Liste (es existiert nur eine benutzerdefinierte Liste ) für die Sortierung in Excel hinterlegt.
Ich Sortiere zuerst nach : Spalte A (Datum) aufsteigend
Spalte H (Buchstaben) benutzerdefinierte Liste
Spalte G (Datum) absteigend
Leider Funktioniert es nicht. Was mache ich Falsch ?
With Master
Range(strBer).Sort key1:=Range(strSpA & "8"), Order1:=xlAscending, _
key2:=Range(strSpH & "8"), OrderCustom:=1, MatchCase:=False, _
key3:=Range(strSpG & "8"), Order1:=xlAscending, Header:=xlYes
End With
Könnt Ihr helfen ?
Bitte Bleibt Gesund!
VG
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
-
From
Oezcan.Ulucan@outlook.com@21:1/5 to
All on Sat May 23 05:26:41 2020
Hallo Liebe Gemeinde,
Ich habe eine benutzerdefinierte Liste (es existiert nur eine benutzerdefinierte Liste ) für die Sortierung in Excel hinterlegt.
Ich Sortiere zuerst nach : Spalte A (Datum) aufsteigend
Spalte H (Buchstaben) benutzerdefinierte Liste
Spalte G (Datum) absteigend
Leider Funktioniert es nicht. Was mache ich Falsch ?
With Master
Range(strBer).Sort key1:=Range(strSpA & "8"), Order1:=xlAscending, _
key2:=Range(strSpH & "8"), OrderCustom:="H,A,B", MatchCase:=False, _
key3:=Range(strSpG & "8"), Order1:=xlAscending, Header:=xlYes
End With
Könnt Ihr helfen ?
Bitte Bleibt Gesund!
VG
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
-
From
Can Ulucan@21:1/5 to
All on Sat May 23 06:18:27 2020
Hallo Liebe Gemeinde,
Ich habe eine benutzerdefinierte Liste (es existiert nur eine benutzerdefinierte Liste ) für die Sortierung in Excel hinterlegt.
Ich Sortiere zuerst nach : Spalte A (Datum) aufsteigend
Spalte H (Buchstaben) benutzerdefinierte Liste
Spalte G (Datum) absteigend
Leider Funktioniert es nicht. Was mache ich Falsch ?
With Master
Range(strBer).Sort key1:=Range(strSpA & "8"), Order1:=xlAscending, _
key2:=Range(strSpH & "8"), OrderCustom:=1, MatchCase:=False, _
key3:=Range(strSpG & "8"), Order1:=xlAscending, Header:=xlYes
End With
Könnt Ihr helfen ?
Bitte Bleibt Gesund!
VG
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
-
From
noodnutt@gmail.com@21:1/5 to
All on Wed May 27 12:57:37 2020
Hi VG
versuchen
Range("A8", Master.Range("A" & Master.Rows.Count).End(xlUp)).Select
Master.Sort.SortFields.Clear
Master.Sort.SortFields.Add Key:=Range("A8", Master.Range("A" & Master.Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Master.Sort.SortFields.Add Key:=Range("H8", Master.Range("H" & Master.Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Ordercustom:=1, DataOption:=xlSortNormal
Master.Sort.SortFields.Add Key:=Range("G8", Master.Range("G" & Master.Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Master.Sort
.SetRange Range("A8", Master.Range("G" & Master.Rows.Count).End(xlUp))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
HTH
Mark
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)