Nummern mit 0 links auffüllen und Textformat
05.12.2006 13:24:56
Peter
In Spalte A ab Zeile 5 stehen in einer Tabelle verschiedene Nummern (i.d.R. 6-stellig). Diese Zahlen sollten nun alle 9-stellig sein durch Berücksichtigung von führenden Nullen (Nullen voranstellen).
Zudem sollte es sich dann um ein Textfformat handeln. Mit meinem Versuch aus einem Code, mit dem ich das Datumsformat erhalte, bin ich nicht weitergekommen.
Kann mit da jemand weiterhelfen?
Danke, Peter
Sub textnullen()
Dim zNr As Long
zNr = 5
Do While Cells(zNr, 1) <> ""
If Cells(zNr, 1) <> 0 Then
Cells(zNr, 1) = Format((Cells(zNr, 1)), "000000000")
'Cells(zNr, 1) = Format((Cells(zNr, 1)), "DD.MM.YYYY")
Else
End If
zNr = zNr + 1
Loop
End Sub
Anzeige