Zeichen an best. Stelle einer Zelle einfügen 2
24.04.2013 11:43:16
Horst
leider muss ich nochmal einen eigentlich schon für mich abgehakten Thread quasi wieder hochholen.
Tino hat mir einen Super-Code zur Verfügung gestellt, welcher aus einem Datum à la
9Mar2013
9. Apr 2013 macht.
Jetzt funktioniert das bei einstelligen Tagen super, jedoch scheine ich den Code leider noch nicht so verstanden zu haben, dass ich dies auf z.B. den 18.03.2013 umschreiben könnte. Kann mir da jemand helfen? Vorher wird schon ermittelt, wieviel stellig der Tag ist, die Schleife könnte ich also nutzen.
Hier der Code:
sText = Range("A2")
For n = 1 To Len(sText) 'Len gibt Ganzzahl aus, u.a. zum Zaehlen der Zeichen
If Not IsNumeric(Mid(sText, n, 1)) Then Exit For
Next n 'String wird aufgeteilt und Array zugewiesen
ArValue(0) = Mid(sText, 1, n - 1) 'Tag
ArValue(2) = Right$(sText, 4) 'Jahr
ArValue(1) = Mid(sText, n, Len(sText) - n - 4 + 1) 'Monat
sText = Join(ArValue, ".")
If IsDate(sText) Then
Datum = CDate(sText)
End If
Vielen lieben Dank!
Anzeige