Text nach Zahl
29.02.2020 09:29:42
Piotrek
ich habe eine Aufgabe mit der ich völlig überfordert bin. Daher bitte ich um Eure Hilfe.
In einer Tabelle liegen ca. 45000 Zahlen als Text vor. Der Punkt ist ein Komma und nicht
ein 1000-Trennzeichen.
Die Aufgabe wären.
1. aus dem Punkt soll soll ein Komma und
2. aus dem Texttext_Format ein Zahlenformat
erstellt werden damit z.B. Mittelwerte berechnet werden können.
Ich habe aus dem Punkt durch Ersetzen ein Komma erstellt und dann mit Schleife die Aufgabe
gelöst, aber es dauert alles sehr lange.
Sub Text_nach_Zahl()
Dim Bereich As Range
Dim Zelle As Range
Dim Faktor As Variant
Faktor = 1
With Sheets("Werte")
ls = Cells(11, Columns.Count).End(xlToLeft).Column 'letzte Spalte
lz = .Cells(.Rows.Count, 2).End(xlUp).Row 'Letzte Zeile der Spalte
Set Bereich = .Range("A25:F" & lz)
For Each Zelle In Bereich
If IsNumeric(Zelle.Value) Then
Zelle.Formula = Zelle.Value * Faktor
End If
Next Zelle
End With
Ich möchte nun diese Aufgabe gern mit Dictionaries lösen, um auch zu lernen, habe aber überhaupt keine Ahnung wie es geht. Könnte jemand mir mit einem Code helfen?
Vielen Dank im voraus,
Peter
Anbei die Beispieldatei:
href="https://www.herber.de/bbs/user/135532.xlsm">https://www.herber.de/bbs/user/135532.xlsm