Range
13.03.2006 11:31:06
Günther
will innerhalb eines Range-Objektes eventuell als Zahl eingegebene PLZ in 5-stelligen String mit eventuell führender 0 umwandeln. Beim Rückschreiben an das Range-Objekt wird aber konsequent der Text wieder in eine Zahl gewandelt. Was mache ich falsch? - Hier der Code:
Sub plz()
Dim plzbereich As Range
Dim plz As String
For Each plzbereich In Selection
plz = plzbereich.Value
If Len(Trim(plz)) = 4 Then
plz = "0" & plz
Else
plz = Trim(plz)
End If
plzbereich.Value = plz
Next plzbereich
End Sub
Vielen Dank für Eure Hilfe im Vorraus.
Günther
Anzeige