Stefan's Weblog

7Aug/120

Text in Zahlen umwandeln

Mit diesem sehr einfachen Makro, lässt sich Text in Zahlen umwandeln.
Zu beachten ist, dass aus einer "Textzahl" 00012 die Zahl 12 wird. Die drei führenden Nullen werden entfernt.

Code

Sub TextInZahl()
   With Range("i2:i20")
    .NumberFormat = "General"
    .Value = .Value
   End With
End Sub