Hallo ,
ich benötige mal einen Tipp:
Ich benutze das unten angegebene Macro zum trennen und sortieren von String's.
Nur bei dem derzeitigen Problem komme ich da nicht weiter.
Ich habe in einer Spalte folgende Daten:
Datum:
MM.TT.JJJJ und TT/MM/JJJJ
Ich muss um die Daten weiter verarbeiten zu können, alles in einem Format zur Verfügung haben.
Deshalb hatte ich gedacht über eine if Abfrage zu schauen ob es sich um ein Slash handelt, sollte das der Fall sein wird die Schleife umgangen und nur bei "." wird getrennt.
Soweit so gut :-(,hat aber bisher nicht funktioniert.
Vielleicht weiss jemand ja noch eine einfachere Lösung...
Sub ZellenMitPunktAuseinanderNehmen()
Dim i As Integer
Sheets("Tabelle1").Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
i = InStr(ActiveCell.Value, ".")
ActiveCell.Offset(0, 1).Value = _
Left(ActiveCell.Value, i - 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
xjimbeam Gast |
