Laufzeitfehler 13, Text in Zahl
22.05.2005 15:22:12
Florian
ich hoffe ihr könnt mir helfen, hab jetzt schon alles durchprobiert. Ich will Text in eine Zahl umwandeln. Manuell klappt alles wunderbar, aber weils eine größere Datei ist mit Webabfrage ist, wärs nicht schlecht, wenn es über VBA funzen würde. Hängt immer wieder an der Zeile "Ws.Cells(i, 9) = a * 1"
Fehler: Laufzeitfehler 13, Typen unverträglich
Vielen Dank für Eure Hilfe,
Gruß Florian
Sub TextInZahlUmwandeln()
Dim Ws As Worksheet, i As Integer, ZeilenZahl As Integer
Dim a
For Each Ws In Worksheets
ZeilenZahl = Ws.UsedRange.Rows.Count
For i = 2 To ZeilenZahl
a = Ws.Cells(i, 9).Value
Ws.Cells(i, 9) = a * 1
Next i
Next Ws
End Sub
https://www.herber.de/bbs/user/23083.xls