title image


Smiley Re: Sortierproblem - Datum
Hallo Andreas,



ich bin einmal davon ausgegangen, dass deine Datumswerte in Spalte A ab Zeile 1 stehen. Dann sollte es so funktionieren, mit einer temporären Zusatzspalte, die nach ihrer Verwendung wieder gelöscht wird:



Public Sub DatumSort()



Dim lZeile As Long



Columns("A:A").Insert Shift:=xlToRight



For lZeile = 1 To Range("B65536").End(xlUp).Row

If IsDate(Range("B" & lZeile).Value) Then

Range("A" & lZeile).Value = Range("B" & lZeile).Value

Else

If Len(Range("B" & lZeile).Value) = 4 Then

Range("A" & lZeile).Value = CDate("31.12." & _

CInt(Range("B" & lZeile).Value) - 1)

Else

Range("A" & lZeile).Value = Range("B" & lZeile).Value

End If

End If

Next lZeile



Range("A1:B" & Range("A65536").End(xlUp).Row).Sort _

Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



Columns("A:A").Delete Shift:=xlToLeft



End Sub





Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: