Manche Leute sagen wenn sie Kaffee trinken können Sie nicht schlafen. Bei mir ist es genau umgekehrt: wenn ich schlafe, kann ich keinen Kaffee trinken.

In einer Pivottabelle sollen die Kalenderwochen als Spaltenbeschriftung verwendet werden. Eigentlich kein Problem. Jedoch beim Jahreswechsel soll natürlich gezählt werden: 51, 52, 53, 1, 2, 3, …

Würd man die Standardsortierung der Pivottabelle verwenden, wäre die Zählung: 1, 2, 3, … 52, 53.

Aber man kann doch benutzerdefiniert sortieren. Fügt man eine benutzerdefinierte Liste per Programmierung in Excel ein, beispielsweise so:

Sub BenutzerdefinierteListeEinfuegen()
    Dim customList As Variant
    Dim i As Integer
    
    ' Definiere die benutzerdefinierte Liste von 40 bis 53 und dann 1 bis 13
    customList = Array("40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14")
    
    ' Füge die benutzerdefinierte Liste in Excel ein
    Application.AddCustomList ListArray:=customList
End Sub

wird die Liste immer nach laufender Kalenderwoche sortiert.

Allerdings frage ich mich: Was passiert, wenn dieses Makro zwei Mal aufgerufen wird? Ein Fehler, weil die Liste schon vorhanden ist? Eine weitere Liste?

Die Antwort: gar nichts: Excel übergeht diese Liste – sie ist schon da. Sehr schön – Excel hat heute mal nicht genervt.