VBA-Script - Datumskonvertierung
16.07.2005 18:37:46
Paul
benötige für eine Datumskonvertierung eine entsprechende Möglichkeit, von dem vorhandenen Textformat - z.B."08032005" - in das Datumsformat - z.B. "TT-MMM-JJJJ" - zu konvertieren. Dazu habe ich mir das nachfolgende VB-Script erstellt. Liegt ein Zellwert in dem beschriebenen Textformat vor, konvertiert das Sript auch richtig. Liegt aber nun beispielsweise kein Wert vor (Zelle ist leer) dann steigt das Sript mit einer Fehlermeldung (falsches Format.. oder so) aus. Wie bekommt man es nun hin, das VBA-Script so zu erweitern, das bei anderen vorliegenden Formaten, das Script nicht endet, sondern diese Zellen überspringt.
Schon mal besten Dank für hilfreiche Lösungsvorschläge.
Hier nun das Script:
Sub datumsformat()
Dim Datzahl As Range
For Each Datzahl In Selection
Datzahl = Format(DateSerial(Right(Datzahl, 2), Mid(Datzahl, 3, 2), Left(Datzahl, 2)), "dd-mmm-yyyy")
Next Datzahl
End Sub