Zahlenwerte bei Übernahme aus R/3

Bei der Übernahme aus SAP werden manches mal die Zahlen nicht als solche erkannt. Abhilfe schafft folgendes Makro:

Sub Zahlenkonvertieren()
 For i = 0 To 9
  Selection.Replace What:=i,
  Replacement:=i,
  LookAt:=xlPart,
  SearchOrder:=xlByRows,
  MatchCase:=False
 Next i
End Sub

Betreffende Spalte(n) markieren und Makro ausführen. Es wird dann einfach jede Zahl durch sich selber ersetzt und schon werden sie als Zahlenwert erkannt.