Datum aufsteigend sortieren vba
17.02.2019 14:13:58
Christian
ich verzweifel hiere gerade ein wenig an VBA und daran, dass ich eine Spalte mit Werte die ich aus anderen Tabellenblätteren eingefügt habe, aufsteigend sortieren möchte.
1. Lasse ich über die Spalte F die Funktion "Text in Spalten"
wsZiel.Range("F2:F" & lngLZeileQuelle).TextToColumns Destination:=wsZiel.Range("F2"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
lngLZeileZiel = wsZiel.Cells.Find("*", wsZiel.Range("A1"), xlFormulas, xlWhole, xlByRows, _
xlPrevious).Row
For lngAktZeile = 2 To lngLZeileZiel
wsZiel.Range("F" & lngAktZeile).Value = DateValue(wsZiel.Range("F" & lngAktZeile).Value) _
wsZiel.Range("I" & lngAktZeile).Value = DateValue(wsZiel.Range("I" & lngAktZeile).Value) _
If Not IsError(wsZiel.Range("R" & lngAktZeile)) Then
wsZiel.Range("R" & lngAktZeile).Value = DateValue(wsZiel.Range("R" & lngAktZeile). _
Value)
End If
Next lngAktZeile
wsZiel.Activate
wsZiel.AutoFilter.Sort.SortFields.Clear
wsZiel.AutoFilter.Sort.SortFields.Add Key:= _
wsZiel.Range("F1:F" & lngLZeileZiel), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With wsZiel.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Ich hoffe Ihr könnt meinen Problem folgend :)
Beste Grüße
Christian und vielen Dank für euren Support.
