Sub los()
Dim ZlnG, rng As Range
For Each rng In Selection
ZlnG = WorksheetFunction.RoundDown(rng.Value, 0)
rng = ZlnG
Next
End Sub
Sub zuGanz()
Dim arrW, zz As Long, ss As Long
arrW = Selection
For zz = 1 To UBound(arrW)
For ss = 1 To UBound(arrW, 2)
arrW(zz, ss) = Fix(arrW(zz, ss))
Next ss
Next zz
Selection = arrW
End Sub
Um Kommazahlen in Excel in ganze Zahlen umzuwandeln, kannst Du entweder eine einfache Formel verwenden oder ein VBA-Makro. Hier sind die Schritte für beide Methoden:
1. Mit der Formel ABRUNDEN:
=ABRUNDEN(A1; 0)A1 durch die Zelle, die die Kommazahl enthält.2. Mit VBA-Makro:
ALT + F11, um den VBA-Editor zu öffnen. Sub los()
Dim ZlnG, rng As Range
For Each rng In Selection
ZlnG = WorksheetFunction.RoundDown(rng.Value, 0)
rng = ZlnG
Next
End SubFehler: Es passiert nichts, wenn ich das Makro ausführe.
Fehler: Die Formel gibt einen Fehler aus.
Neben der Verwendung von VBA-Makros und der ABRUNDEN-Funktion gibt es auch andere Methoden, um Kommazahlen in ganze Zahlen umzuwandeln:
Sub zuGanz()
Dim arrW, zz As Long, ss As Long
arrW = Selection
For zz = 1 To UBound(arrW)
For ss = 1 To UBound(arrW, 2)
arrW(zz, ss) = Fix(arrW(zz, ss))
Next ss
Next zz
Selection = arrW
End Sub=GANZZAHL(A1)Angenommen, Du hast die folgenden Werte in den Zellen A1 bis A3:
| A |
|---|
| 15,3 |
| 25,3 |
| 26,3 |
Wenn Du die Formel =ABRUNDEN(A1; 0) in B1 eingibst und nach unten ziehst, erhältst Du:
| A | B |
|---|---|
| 15,3 | 15 |
| 25,3 | 25 |
| 26,3 | 26 |
Wenn Du das Makro verwendest, wird der gesamte Bereich auf einmal konvertiert.
1. Wie kann ich Kommazahlen in ganze Zahlen umwandeln, ohne die Nachkommastellen zu verlieren? Du kannst die Funktion GANZZAHL verwenden, um nur die ganze Zahl vor dem Komma zu erhalten, ohne Nachkommastellen.
2. Ist es möglich, alle Kommazahlen in einem Arbeitsblatt auf einmal in ganze Zahlen umzuwandeln? Ja, Du kannst das VBA-Makro so anpassen, dass es das gesamte Arbeitsblatt durchläuft, anstatt nur den ausgewählten Bereich.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen