VBA - Text in trennen
20.06.2014 18:07:24
Roland
Hallo zusammen,
mein eigentliches Problem wurde bereits in einem Archiv-Thread gelöst, jedoch habe ich noch eine Nachfrage. Ich habe in Spalte A Daten stehen, die mit einem Leerzeichen voneinander getrennt sind:
1.01.14 14:47
2.01.14 14:47
15.02.14 12:54
25.02.14 13:14
05.03.14 13:36
Ich möchte mithilfe eines Makros ausschließlich das Datum (ohne Uhrzeit) in Spalte A stehen haben. Dazu verwende ich folgenden Code:
Sub Uhrzeiten_loeschen()
Dim Zeile As Long
For Zeile = 1 To 5
'Text zerlegen, Trennzeichen ist ein Leerzeichen Semikolon
Textteile = Split(Cells(Zeile, 1), " ")
'schreiben
Cells(Zeile, 1) = Textteile(y)
Next
End Sub
Das Makro funktioniert einwandfrei, jedoch können die Daten anschließend nicht mehr von einer ZÄHLENWENNS-Funktion erfasst werden. Auch die Autofilter-Funktion funktioniert nicht mehr korrekt. Vorher konnte ich auf den Autofilter klicken, hatte dann den "Datumsfilter" und konnte so z.B. auf "Letzte Woche", "Diese Woche", "Nächste Woche" filtern. Jetzt ist es ein "Textfilter".
Was auffällig ist: Nachdem das Makro seine Arbeit getan hat, verschiebt sich der Zelleninhalt nach links. (vorher stand er rechts)
Wenn ich in die Zelle hineinklicke - so als würde ich etwas hineinschreiben wollen - und dann auf "Enter" drücke, verschiebt sich der Zelleninhalt wieder nach rechts und wird sowohl von der ZÄHLENWENNS-Funktion, als auch vom Autofilter erfasst.
Ich hoffe, dass ich das Problem einigermaßen beschreiben konnte?
Schöne Grüße
Roland