Zeichenanzahl
01.04.2009 09:55:15
Michi
gestern hat mir jemand einen VBA-Code gegeben, der die Anzahl der Zeichen festlegt. Es müssen genau 8 Zeichen sein, d.h. z.B.:
aus 0.025 wird 0.025000
aus -25.1 wird -25.1000
aus 50214.4563 wird 50214.45
der Code sieht wie folgt aus:
Sub n()
Dim i As Long
Application.ScreenUpdating = False
Columns("A:C").NumberFormat = "@"
For i = 1 To 43825
Cells(i, 1) = Left(CStr(Cells(i, 1)) & "0000000", 8)
Cells(i, 2) = Left(CStr(Cells(i, 2)) & "0000000", 8)
Cells(i, 3) = Left(CStr(Cells(i, 3)) & "0000000", 8)
Cells(i, 4) = Left(CStr(Cells(i, 4)) & "0000000", 8)
Cells(i, 5) = Left(CStr(Cells(i, 5)) & "0000000", 8)
Cells(i, 6) = Left(CStr(Cells(i, 6)) & "0000000", 8)
Next
Application.ScreenUpdating = True
End Sub
Allerdings habe ich jetzt noch das Problem, dass er bei ganzen Zahlen nur die Nullen dranhängt:
aus 1 wird 10000000
aus 12 wird 12000000 usw.
Hat jemand eine Idee, wie man das Problem noch beheben kann?
Gruß,
Michi
Anzeige