Markierte Zellen: Text in Datum umwandeln
15.09.2008 11:41:00
Peter
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich ändern, damit ich nur eine Schleife brauche?
Sub text_in_datum()
Dim c As Range
For Each c In Selection
If Not (IsEmpty(c)) Then
c.Value = CDate(c.Value)
c.NumberFormat = "dd.mm.yy"
End If
Next c
For Each c In Selection
If Not (IsEmpty(c)) Then
c.Value = CDate(c.Value)
c.NumberFormat = "dd.mm.yy"
End If
Next c
End Sub
Anzeige