Hallo wie kann ich zu der jeweiligen Spalte siehe Beispiel Datei, das Datum mit den jeweiligen Namen unterhalb der selben Spalte aufsteigend nach Datum sortieren lassen ?
Sub SortiereSpalteAufsteigend()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "IG5:IL60"
Sortierspalte = "IL"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
an sowas hatte ich gedacht aber es sollte auch die Namen mit sortieren.Sub SortiereSpalteAufsteigend()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "B4:G64"
Sortierspalte = "G"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub