Zahlen als wissenschaftliches Format übernommen

[roegger]

super, danke!
lg
Roman

[roegger]

leider bekomme ich die Meldung: Syntaxfehler

[shift-del]

Moin

Importiere die Daten mit Power Query. Dort kannst du das Zahlenformat einfach wandeln.

[Fennek]

Regel 1 für User:

Do not

leider bekomme ich die Meldung: Syntaxfehler

sondern kommuniziere die Fehlemeldung verständlich.

[roegger]

Lieber Fennek,

ich habe die Entwicklertools aktiviert, bin auf Makros gegangen und habe deinen Code zwischen Sub s()

End Sub eingefügt. Wenn ich dann auf Run klicke kommt die Fehlermeldung: Fehler beim Kompilieren: Syntaxfehler
aber vielleicht bin ich einfach auch zu dumm um den Code auszuführen.....

[snb]

Läuft hier bestens:

Code:

Sub M_snb
  Sheet1.UsedRange.NumberFormat = "general"
   
  For Each it In Sheet1.Cells.SpecialCells(2, 1)
    it.Value = CDbl(Format(Left(it, 3) / 100, "0.00"))
  Next
End Sub

[Fennek]

das ist der Code, der bei mir gelaufen ist (der erste war abgetippt)

Code:

Sub T_1()
Ar = Cells(1).CurrentRegion
For i = 2 To UBound(Ar)
    For j = 1 To UBound(Ar, 2)
        If InStr(1, Ar(i, j), ",") > 0 Then Cells(i, j).Interior.Color = vbGreen 'Debug.Print Ar(i, j)
    Next j
Next i
End Sub

Danach sollten alle "falschen" Zahlen grün formatiert sein. Die Laufzeit sollte ca 10 Sekunden betragen. Nach 2 Minute kannst Du abbrechen.

[Fennek]

in der Beispielmappe wandelt der Code ALLE Zahlen ins richtige deutsche Zahlenformat:

Code:

Sub F_en()
Ar = Cells(1).CurrentRegion
For i = 2 To UBound(Ar)
    For j = 1 To UBound(Ar, 2)
        If InStr(1, Ar(i, j), ",") > 0 Then
            Cells(i, j).Interior.Color = vbGreen
            Fc = Int(Log(Ar(i, j)) / Log(10))
            Cells(i, j) = Ar(i, j) / 10 ^ Fc
        Cells(i, j).NumberFormat = "General"
        End If
    Next j
Next i
With ActiveSheet.UsedRange
    .Value = .Value
End With
End Sub

Bei deiner großen Tabelle wird der letzteBefehl relativ lange dauern (1-2 Minuten?)

[snb]

@Fen

Schau mal: https://www.clever-excel-forum.de/thread...#pid157157

[Fennek]

@snb

ich hatte den Browser nicht aktualisiert.