TT.MM.JJJJ als String und nicht als Datum
08.02.2006 14:54:07
Peter
Ich wage nochmals einen neuen Versuch im Anschluss an meine noch offene Frage von heute morgen.
In Spalte A habe ich verschiedene Daten eingetragen, mit Datumsformat. Wie wandle ich diese Zellen um, dass das Format "TT.MM.JJJJ" nicht mehr als Datum sondern als Text festgelegt ist? (Die Zeichenfolge muss als String und nicht als Datum (mit inhärenter serieller Zahl) erkannt werden.
In einem weiteren Schritt werde ich die Tabelle (mit anderen formatierten Inhalten) in einem neuen Sheet abspeichern und anschliessend mit " .Sheets(1).Cells.ClearFormats" sämtliche Formate entfernen.
Nach dieser Aktion müssen jedoch die Daten in Spalte A als String erscheinen und nicht die entsprechende serielle Zahl des Datums.
Kann mir jemand weiterhelfen? Wie lautet der Code, den ich im nachfolgenden Code
im Anschluss an "Do While Cells(zNr, 1) " eingeben muss?
Besten Dank für die Rückmeldung.
Peter
Sub da_to_te()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim zNr As Long
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
With aSheet
zNr = 1
Do While Cells(zNr, 1) <> ""
zNr = zNr + 1
Loop
End With
End Sub