Zahl inkl. führende Null übernehmen
Peter
Eine Funktion liefert mir in einem Spaltenbereich Tabellennamen zurück. Die Tabellennamen sind in der Regel vierstellige Zahlen, wobei die erste Zahl jeweils eine "0" ist.
Diesen Spaltenbereich übernehme ich nun in eine andere Spalte:
rDest.Value = rTemp.Value
mit
With rDest
.NumberFormat = "0000"
End With
werden mir die Zahlen wieder wie gewünscht angezeigt, doch der Zell-Inhalt verändert sich nicht.
Wie erreiche ich, dass im Zielbereich führende Nullen nicht unterschlagen werden?
"0623" soll als "0623" und nicht als 623 eingetragen werden.
Danke für eine Antwort.
Gruss, Peter
Anzeige