title image


Smiley Re: Sortierproblem - Datum
Hallo Andreas,



du hast ja wohl eine für dich praktikable Lösung bekommen, deshalb meine Lösung nur der Vollständigkeit halber auf deine Datei angepasst.



Mit Alt + F11 gelangst du in die VBA Umgebung.

Dort findes du links deine Mappe als Projekt.

Dort klickst du drauf (ggf. auf das +-Zeichen) und anschließend auf Einfügen - Modul.

Dort, in das sich öffnende Fenste kopierst du das Makro, verlässt die VBA Umgebung durch Schließen mit dem Schließen-Kreuz und kannst nun das Makro nutzen.



Aufrufen mit Extras - Makro - Makros - DatumSort - Ausführen.



Gruß Peter



Public Sub DatumSort()



Dim lZeile As Long



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



For lZeile = 3 To Range("D65536").End(xlUp).Row

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

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

Else

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

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

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

Else

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

End If

End If

Next lZeile



Range("A3:Z" & 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

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: