ich mochte einen Quelltext schreiben, mit etwa folgendem Inhalt:
prüfe die Länge der Zahl: Beispiel: 1234 Länge = 4
füge nun voran gestellte Nullen hinzu bis die Länge = 8 erreicht wird.
Kann mir da jemand helfen?
Grüße
Heiko
MsgBox Format(Range("A1"), "00000000")
P.S.: Das mit if... und len... kannst du weglassen.
MfG Peter
Option Explicit
Function Acht(ByVal Zelle As Range) As String
Acht = Right("00000000" & CStr(Zelle), 8)
End Function