Hallo nochmals,
mit dem nachstehenden Code von Ramses trenne ich die Spalte Datum auf in 3 Spalten um nach dem Monat und Tagen sortieren zu können....funzt auch prima...j
Columns("B:C").Insert
Dim i As Long
Dim myTmp As Double
For i = 1 To Cells(65536, 1).End(xlUp).Row
Debug.Print Cells(i, 1)
If IsDate(Cells(i, 1)) Then
myTmp = Cells(i, 1).Value
Cells(i, 1) = Format(myTmp, "dd")
Cells(i, 1).NumberFormat = "General"
Cells(i, 2) = Format(myTmp, "mm")
Cells(i, 3) = Format(myTmp, "yyyy")
End If
Next i
Columns("B:C").NumberFormat = "General"
anschließend sollten die 3 Spalten wieder zu einer vereinigt werden, damit dann wieder ein Datum vorhanden ist..
Wer weiß da nen Code?
Danke Peter S.