Mit nachfolgendem Code versuche ich als Datum eingetragene Werte in Spalte A ab Zeile 5 in Textformate umzuwandeln.
Doch die wichtigste Zeile,
.Cells(zNr, 1).Value = .Cells(zNr, 1).Value.NumberFormat = "@"
ergibt die Fehlermeldung "Objekt erforderlich".
Was mache ich falsch?
Danke für jede Rückmeldung.
Peter
Sub ZahlalsText()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim zNr As Long
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
With aSheet
zNr = 5
Do While Cells(zNr, 1) <> ""
.Cells(zNr, 1) = .Cells(zNr, 1).Value.NumberFormat = "@"
zNr = zNr + 1
Loop
End With
End Sub