convert to number
14.08.2006 21:57:54
StefanB
habe mir ein kleines Macro geschrieben, welches mir die Spalte A in eine Zahl umwandelt. Jetzt gibt es aber ein Problem. Taucht zwischendrin eine Zahl auf so bricht das Macro mit einer Fehlermeldung (Typen unverträglich) ab. Was muß ich denn ändern, damit das Macro stur weiter läuft?
Sub convert()
Dim zei As Long, kurz As Long
kurz = 1
For zei = 1 To Range("A65536").End(xlUp).Row + 1
Range(Cells(kurz, 1), Cells(zei, 1)).Value = CDbl(Left(Range(Cells(kurz, 1), Cells(zei, 1)).Value, 9))
kurz = zei + 1
Next zei
End Sub
Thx
StefanB