Wie rundet man einen Zahlenbereich in Excel auf gerade Zahlen?
Was bedeutet „Runden auf gerade“ in Excel? Das Runden auf gerade wird auch als kaufmännisches Runden bezeichnet. Grundsätzlich funktioniert es wie normales Runden, mit einer Ausnahme: Wenn die zu rundende Ziffer die Zahl 5 ist, hängt die Rundungsrichtung von der vorhergehenden Ziffer ab. Ist die Ziffer vor der 5 ungerade, runden Sie auf; ist die Ziffer vor der 5 gerade, runden Sie ab.
Zum Beispiel: 23,345 ergibt beim Runden auf gerade auf der Hundertstelstelle 23,34. Und 12,335 ergibt beim Runden auf gerade auf der Hundertstelstelle 12,34.
In diesem Artikel zeige ich Ihnen, wie Sie das kaufmännische Runden in Excel durchführen.
Zahlen mit einer benutzerdefinierten Funktion auf gerade runden
Zahlen mit VBA-Code auf gerade runden
Zahlen mit Kutools für Excel auf gerade runden
Zahlen mit einer benutzerdefinierten Funktion auf gerade runden
Nutzen Sie die folgende benutzerdefinierte Funktion, um Zahlen in Excel auf gerade zu runden – so geht’s:
1. Markieren Sie die Zahlen, die Sie auf gerade Zahlen runden möchten.
2. Drücken Sie anschließend die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modulfenster ein.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Speichern Sie den Code und geben Sie die Formel = bankersround(A1;2) in die benachbarte leere Zelle ein. Siehe Screenshot:
5. Drücken Sie anschließend die Enter-Taste. Markieren Sie danach die Zelle B1 und ziehen Sie den Ausfüllknauf über den Bereich, auf den Sie die Formel anwenden möchten. Siehe Screenshot:
Zahlen mit VBA-Code auf gerade runden
Wenn Sie die benutzerdefinierte Funktion nicht nutzen möchten, hilft Ihnen der folgende VBA-Code ebenfalls weiter. Gehen Sie dazu wie folgt vor:
1. Markieren Sie den Bereich, den Sie auf gerade Zahlen runden möchten.
2. Halten Sie anschließend die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modul-Fenster ein.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Geben Sie im Eingabefeld an, auf wie viele Dezimalstellen gerundet werden soll. Siehe Screenshot:
5. Klicken Sie dann auf OK, um alle markierten Zahlen auf gerade zu runden. Siehe Screenshots:
 |  |  |
Zahlen mit Kutools für Excel auf gerade runden
Wenn Ihnen sowohl die benutzerdefinierte Funktion als auch der VBA-Code zu kompliziert erscheinen, stelle ich Ihnen eine einfache Lösung vor: Mit Runden ohne Formel aus dem Kutools für Excel können Sie schnell einen Zahlenbereich auf gerade runden.
Kutools für Excel bietet über 300 praktische Excel-Tools – testen Sie es jetzt kostenlos und uneingeschränkt für 30 Tage! Jetzt herunterladen.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:
1. Markieren Sie den Bereich, den Sie auf gerade runden möchten.
2. Klicken Sie auf Kutools > Runden.
3. Geben Sie im Dialogfeld Runden ohne Formel die gewünschte Anzahl von Dezimalstellen ein, wählen Sie anschließend unter Runden auf gerade die Option Option aus, und sehen Sie sich das Ergebnis im Vorschaubereich an. Siehe Screenshot:
4. Klicken Sie anschließend auf OK oder Übernehmen, um alle Zahlen gemäß der angegebenen Anzahl von 2 Dezimalstellen auf gerade zu runden.
Klicken Sie auf „Runden auf gerade“, um mehr über diese Funktion zu erfahren.
Verwandter Artikel:
Einen Zellbereich in Excel runden / aufrunden / abrunden
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins