ich habe in Spalte A ein Bereich A50:A120
en dem Datum als Text vorliegt also
z B. 05.03.2003 es ist leider nur Text.
Frage : wie kan ich per Makro den Text
in Datumswerte umwandeln?
Rolf
mit der Funktion Datwert (aufgezeichneter Code)
ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[-1])"
Tschau
Heidrun
nein, das Problem hat sich mir erst durch Deine Frage gestellt.
Heidrun
hier ein Muster:
Sub tdat()
For i = 2 To 10
Cells(i, 2).Value = "=DATEVALUE(RC[-1])"
Next i
End Sub
Heidrun
Bereich makieren und Makro starten
Gruß
Holger
du hast doch bevor du das Makro gestartet hast den bereich makiert ? Denn das Makro durchsucht nur einen makierten Bereich.
Falls ja, dann lösche mal die Zeilen
"If IsDate(.Text) Then" und
"End If"
Gruß
Holger
dann so:
Code eingefügt mit Syntaxhighlighter 1.15
Sub FormatTextToDatum()
Dim rngCell As Range
For Each rngCell In Range("A50", "A120")
With rngCell
.NumberFormat = "General"
If IsDate(.Text) Then
.Value = DateValue(.Text)
End If
End With
Next 'rngCell
End Sub
Gruß
Holger