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