Excel Makro

[Magoo]

Hi Leute!

Ich habe ein kleines Problem in einem Excel Makro! Ich möchte eine komplette Spalte bearbeiten. Durch eine Schnittstelle unserer PPS-Software bekomme ich eine Spalte mit Datumsangaben übergeben. Allerdings sind diese Datumsangaben in Klammern eingebunden.

Jetzt möchte ich, das die Klammern durch ein Makro entfernt werden und die Zeilen dann nach dem Datum sortiert werden. Dies funktioniert allerdings nicht so, wie ich mir das gedacht habe.

Ich entferne zuerst die Klammern. Anschliessend formatiere ich die Zellen in Datumszellen im Format "TT.MM.JJ". Nun setzt ich den Befehl zum Sortieren ab, aber er sortiert nicht nach dem Datum, sondern mehr nach den Zahlen von dem Datum!

Jetzt meine Frage:

Was muss ich machen, damit Excel meine Zeilen nach Datum sortiert?

Für alle Tipps bin ich sehr Dankbar!

THX

Magoo

--------------------

Hier habt ihr noch das bisschen an Code, was ich "erfunden" habe:

Sub Test()

' Datum wird von "(15.06.01)" auf "15.06.01" umformatiert

' Anschliessend werden alle Zeilen nach Datum sortiert

' Anzahl der Zeilen festlegen

' Wird später automatisch ermittelt

Let Zeilen = 4

' In jeder Zeile die Klammern entfernen

For i = 1 To Zeilen

Range("A" + CStr(i)).Select

Datum_mit_Klammern = ActiveCell

l = Len(Datum_mit_Klammern)

Datum_ohne_Klammern = Mid(Datum_mit_Klammern, 2, l - 2)

ActiveCell = Datum_ohne_Klammern

Next i

' Zellenformatierung auf Datum im Format TT.MM.JJ umstellen

Columns("A:A").Select

Selection.NumberFormat = "dd/mm/yy"

'Zellen nach Datum sortieren

Range("A1:A4").Select

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

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

End Sub