11.04.2019, 13:44
11.04.2019, 14:13
leider bekomme ich die Meldung: Syntaxfehler
11.04.2019, 15:10
Moin
Importiere die Daten mit Power Query. Dort kannst du das Zahlenformat einfach wandeln.
Importiere die Daten mit Power Query. Dort kannst du das Zahlenformat einfach wandeln.
11.04.2019, 15:37
Regel 1 für User:
Do not
sondern kommuniziere die Fehlemeldung verständlich.
Do not
Zitat:leider bekomme ich die Meldung: Syntaxfehler
sondern kommuniziere die Fehlemeldung verständlich.
11.04.2019, 15:59
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.....
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.....
11.04.2019, 16:09
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 Sub11.04.2019, 16:09
das ist der Code, der bei mir gelaufen ist (der erste war abgetippt)
Danach sollten alle "falschen" Zahlen grün formatiert sein. Die Laufzeit sollte ca 10 Sekunden betragen. Nach 2 Minute kannst Du abbrechen.
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 SubDanach sollten alle "falschen" Zahlen grün formatiert sein. Die Laufzeit sollte ca 10 Sekunden betragen. Nach 2 Minute kannst Du abbrechen.
11.04.2019, 16:41
in der Beispielmappe wandelt der Code ALLE Zahlen ins richtige deutsche Zahlenformat:
Bei deiner großen Tabelle wird der letzteBefehl relativ lange dauern (1-2 Minuten?)
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 SubBei deiner großen Tabelle wird der letzteBefehl relativ lange dauern (1-2 Minuten?)
11.04.2019, 16:43
11.04.2019, 16:51
@snb
ich hatte den Browser nicht aktualisiert.
ich hatte den Browser nicht aktualisiert.