sortiert nicht nach Jahreszahl
01.01.2020 17:48:12
Wolfgang
den nachfolgenden "Teil-Code" konnte ich hier im Forum recherchieren. Er sortiert, wenn ich das in der Umsetzung richtig beobachte, zwei Spalten. In der Spalte F befindet sich ein Datum und in Spalte K Namen. Was müsste ich am Code verändern, damit auch die Jahreszahl mitsortiert wird. Momentan sortiert der Code zunächst die Spalte K - das läuft auch soweit korrekt, dann die Spalte F, aber beachtet wohl irgendwie nicht mehr die Jahreszahl. Die Zellen sind als Datum "dd. mm yyyy" formatiert. - Danke schon jetzt für die Rückmeldung. Viele Grüße und für 2020 alles Gute - Wolfgang
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "F").End(xlUp).Row
If WorksheetFunction.CountIf(.Columns("K"), Me.TextBox2) > 0 Then
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("K2:K" & loLetzte), SortOn:=xlSortOnValues, Order:= _
xlAscending, _
DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("F2:F" & loLetzte), SortOn:=xlSortOnValues, Order:= _
xlAscending, _
DataOption:=xlSortNormal
With .Sort
.SetRange Range("A1:N" & loLetzte)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
Anzeige