Office: VBA Text in Zahl konvertieren

ferrisstate · 27. Januar 2010

Hallo Forum,

Ich steh irgendwie auf dem Schlauch. Folgendes Problem ich möchte in einer Exceltabelle (Excel 2000) in Spalte I den exportierten Text in ein Zahl umwandeln.
Habe dies mit folgendem Code versucht. Klappt aber nicht.
LetzteZeile = Sheets("Tabelle1").Range("i10000")
For i = 2 To LetzteZeile
Sheets("Tabelle1").Cells(i, 9) = CDbl(Sheets("Tabelle1").Cells(i, 9))
Cells(i, 9).NumberFormat = "General"
Next

Wenn ich hingegen eine einzelne Zelle über
Sheets("Tabelle1").Cells(11, 9) = CDbl(Sheets("Tabelle1").Cells(11, 9))
anspreche führt er die Umwandlung aus.

Vielen Dank schon im Voraus.
Ferris

:)

jinx · 29. Januar 2010

Moin, Ferrius,

willst Du bis zum Wert gehen. der in der Zelle I10000 steht (oder steht da überhaupt ein Wert), oder bis zur letzten gefüllten Zeile?

Normalerweise müsste auch noch nach der Prüfung auf Inhalt eine Prüfung auf numerische Werte erfolgen - das schaffst Du aber sicherlich alleine, wenn es erforderlich sein sollte:
Code:

Dim lngLetzteZeile As Long
Dim lngZähler As Long
With Sheets("Tabelle1")
lngLetzteZeile = .Cells(Rows.Count, 9).End(xlUp).Row
For lngZähler = 2 To lngLetzteZeile
With .Cells(lngZähler, 9)
If Not IsEmpty(.Value) Then
.Value = CDbl(.Cells(lngZähler, 9).Value)
.NumberFormat = "General"
End If
End With
Next lngZähler
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ferrisstate · 30. Januar 2010

Hallo Jinx,

Vielen Dank, werde der Prüfung nach numerischen Werten mal nach gehen.
Ferris

Office: VBA Text in Zahl konvertieren

VBA Text in Zahl konvertieren

VBA Text in Zahl konvertieren

VBA Text in Zahl konvertieren - Similar Threads - VBA Text Zahl

Per VBA Zeilen einfügen und danach in diese Texte kopieren

Makro/VBA Text in Zahl umwandeln

Text in Zahl umwandeln mit VBA

Mittels VBA Text von Zahl trennen

Zahl und Text verbinden per VBA

VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text)

lange Zahl als Text einlesen, VBA, TextToColumns