Zahl aus CSV-Datei in zu verwendende Zahl wandeln?

Hallo Leute!
Ich habe da eine Optimierungsfrage. Ich lese über ein Makro Daten aus einer CSV-Datei ein. Diese enthält u.a. Temperaturwerte, die ich auswerten will/ muss. Nun ist das Problem, dass der Wert zwar als Zahl eingelesen wird, aber für z.B. ein Diagramm so nicht verwertbar ist, da die Zahl nicht als Zahl erkannt wird. Daher überschreibe ich die Zahlen durch ein Makro mit den eigenen Werten, so dass aus der nicht zu verwendeten Zahl eine zu verwendende Zahl wird, ähnlich dem Prozedere, wenn ich die F2 und danach die Enter-Taste betätigen würde. Nachfolgend mal den Makroschnipsel:
With wksQuelldaten
For Each rngCell In .Range("C1:ER" & intLastRowJahresübersicht)
With rngCell
.NumberFormat = "General"
If IsNumeric(.Text) Then
.Value = CDbl(.Text)
End If
End With
Next
End With
Allerdings dauert diese Methode recht lange, da hier doch reichlich Spalten und auch viele Zeilen (bis zu 10.000 Zeilen) durchlaufen werden. Meine Frage nun, gibt es noch eine schnellere Methode um das zu erreichen, was der obige Makrocode in doch recht langsamer Zeit erreicht?
Danke Euch schon mal für Eure Hilfe,
Kasimir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim arrData As Variant Dim i As Long, j As Long With wksQuelldaten arrData = .Range("C1:ER" & intLastRowJahresübersicht).Values For i = l To UBound(arrData, 1) For j = 1 To UBound(arrData, 2) arrData(i, j) = CDbl(arrData(i, j)) Next Next i With .Range("C1").Resize(UBound(arrData, 1), UBound(arrData, 2)) .NumberFormat = "General" 'Bitte testen, ob es diese Zeile notwendig ist .Value = arrData End With End With

Dim arrData As Variant Dim i As Long, j As Long With wksQuelldaten arrData = .Range("C1:ER" & intLastRowJahresübersicht) For i = l To UBound(arrData, 1) For j = 1 To UBound(arrData, 2) arrData(i, j) = CDbl(arrData(i, j)) Next Next i With .Range("C1").Resize(UBound(arrData, 1), UBound(arrData, 2)) .NumberFormat = "General" 'Bitte testen, ob es diese Zeile notwendig ist .Value = arrData End With End With

Sub txt2num() intLastRowJahresübersicht = 77 Application.CutCopyMode = False 'diese Zelle muss das Format "Standard" besitzen Range("A1").Copy 'dieser Bereich enthält nur als Text importierte numerische Werte 'Achtung: Text wird sonst zu 0 (Null) Range("C1:ER" & intLastRowJahresübersicht).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd Application.CutCopyMode = False End Sub

Sub Test_2() Dim Bereich As Range Dim leZeile As Long Application.ScreenUpdating = False leZeile = Range("C65536").End(xlUp).Row Set Bereich = Range("C1:ER" & leZeile) Bereich.NumberFormat = "0.00" Application.ScreenUpdating = True End Sub

Hallo an alle!
Erst mal sorry, dass ich erst so spät reagiere, aber ich hatte vorher keine Zeit. Dann danke für die Unterstützung. Allerdings bringt keine Lösung das erhoffte Ergebnis. Das liegt aber auch an mir. ich hatte vergessen zu sagen, dass nicht alle Spalten Zahlen erhalten. Es gibt auch reichlich Spalten, die Text erhalten.
@Martin: Deine Lösung läuft in einen Fehler, da eben, wie oben erwähnt, nicht alle Zellen Zahlen, sondern auch welche Text erhalten.
@Uwe: Leider bringt mir das nichts, da hier nur das Format geändert wird, aber nicht die Zahl als Zahl umgestellt wird.
@Franz: Am Einfügen der CSV-Daten glaube ich liegt es nicht.. Wobei ich auch nicht so ganz weiß, was Du mit Local auf True setzen meinst.
Ich habe mal eine Datei hochgeladen, an der man das eventuell nachvollziehen kann.
https://www.herber.de/bbs/user/89056.xls
Es geht mir hier im speziellen um z.B. die Spalten G und J, also um die Ist- und Solltemperaturen. Eventuell hat ja noch jemand Lust, sich die Sache anzusehen.
Danke nochmal,
Kasimir

Sub Text_in_Zahl() Dim x As Long Dim LeZeile As Long LeZeile = Range("G65536").End(xlUp).Row For x = 2 To LeZeile Cells(x, 7).NumberFormat = "General" Cells(x, 7).NumberFormat = "0.00" Cells(x, 7) = CSng(Cells(x, 7)) Next End Sub

Sub changetxt2num() Dim myarray As Variant Dim i As Long Dim lz As Long lz = Cells(Rows.Count, 7).End(xlUp).Row myarray = Range("G2:G100").Value For i = 1 To UBound(myarray) myarray(i, 1) = myarray(i, 1) * 1 Next Range("J2:J100") = myarray myarray = Range("G2:G100").Value For i = 1 To UBound(myarray) myarray(i, 1) = myarray(i, 1) * 1 Next Range("G2:G100") = myarray End Sub

Sub changetxt2num() Dim myarray As Variant Dim i As Long Dim lz As Long lz = Cells(Rows.Count, 7).End(xlUp).Row myarray = Range("G2:G100").Value For i = 1 To UBound(myarray) myarray(i, 1) = myarray(i, 1) * 1 Next Range("G2:G100") = myarray Erase myarray myarray = Range("J2:J100").Value For i = 1 To UBound(myarray) myarray(i, 1) = myarray(i, 1) * 1 Next Range("J2:J100") = myarray Erase myarray myarray = Range("K2:K100").Value For i = 1 To UBound(myarray) myarray(i, 1) = Replace(myarray(i, 1), ".", ",") Next Range("K2:K100") = myarray Erase myarray End Sub

Beliebteste Forumthreads (12 Monate)

Zahl aus CSV-Datei in zu verwendende Zahl wandeln?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahl aus CSV-Datei in zu verwendende Zahl wandeln?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread