Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellwerte runden ohne Formel

Zellwerte runden ohne Formel
11.01.2019 16:07:58
Schmitty
Hallo zusammen,
ich habe in meiner Excel-Datei Werte mit 4 Stellen hinter dem Komma stehen, also z. B. "9,1234".
Ich muss diese Werte mit zwei Stellen hinter dem Komma haben, also "9,12", wobei kaufmänisch gerundet werden muss (0-4 abrunden; 5-9 aufrunden). Das ganze müsste ohne Formel funktionieren, da ich keine Hilfstabelle haben möchte. Über Format kann ich nur die Optik der Werte ändern, gerechnet wird aber immer mit den vier Stellen hinter dem Komma.
Hat jemand eine Idee...?
Gruß
Christian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwerte runden ohne Formel
11.01.2019 16:32:16
UweD
Dann per VBA
Sub runden()
    Dim SP As Integer, LR As Long, LC As Integer
    SP = 1 'Spalte mit den Werten 
    LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    LC = Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte belegte Spalte 
    
    'Formel in temporäre Spalte 
    With Cells(1, LC + 1).Resize(LR, 1)
        .FormulaR1C1 = "=IF(ISNUMBER(RC" & SP & "),ROUND(RC" & SP & ",2),"""")"
        
        'als Werte in ursprünglische Spalte kopieren 
        Cells(1, SP).Resize(LR, 1).Value = .Value
    End With
    
    'TempSpalte löschen 
    Columns(LC).Delete
End Sub
Verwendet temporär die Formel
=WENN(ISTZAHL($A1);RUNDEN($A1;2);"")

LG UweD
Anzeige
AW: Zellwerte runden ohne Formel
11.01.2019 16:39:15
Daniel
Hi
am einfachsten so, das gilt dann aber für alle Werte in der Datei:
1. Zahlenformat auf zwei NK-Stellen einstellen
2. in den Optionen - Erweitert - für diese Arbeitsmappe einstellen: Genauigkeit wie angezeigt
damit werden alle Werte der Datei auf die angezeigten Stellen gerundet.
die Einstellung kannst du hinterher bei Bedarf wieder aufheben, da dieses Prozess nicht rückgängig gemacht werden kann.
Gruß Daniel
Anzeige
Was hindert dich daran, ein RUNDEN ...
11.01.2019 20:08:13
Luc:-?
…in die betreffenden FmlZellen nachzusetzen, Christian?
Das kann man durchaus mit Suchen/Ersetzen machen, wenn die Fml eindeutig endet. Die OriginalFml bleibt so in den Zellen erhalten:
1. Ersetze = durch #RUNDEN( (oder ein anderes, nicht in der Fml auftretendes Zeichen statt #);
2. Ersetze eine eindeutige Anzahl der letzten Fml-Zeichen durch genau diese Zeichen mit angefügtem ;2);
3. Ersetze # (bzw das ggf andere dafür benutzte Zeichen) wieder durch = !
Gruß, Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellwerte in Excel runden ohne Formel


Schritt-für-Schritt-Anleitung

Um die Zellwerte in Excel ohne Formel zu runden, folge diesen Schritten:

  1. Zahlenformat einstellen: Markiere die Zellen, die Du runden möchtest. Rechtsklicke und wähle „Zellen formatieren“. Wähle im Reiter „Zahlen“ die Kategorie „Zahl“ und stelle die Dezimalstellen auf „2“ ein.

  2. Genauigkeit wie angezeigt aktivieren:

    • Gehe zu „Datei“ > „Optionen“.
    • Wähle „Erweitert“ und scrolle zu „Beim Berechnen dieser Arbeitsmappe“.
    • Aktiviere die Option „Genauigkeit wie angezeigt“.

    Hinweis: Diese Einstellung ist nicht rückgängig zu machen und wirkt sich auf alle Werte in der Datei aus.


Häufige Fehler und Lösungen

  • Fehler: Die Originalwerte bleiben unverändert
    Lösung: Stelle sicher, dass die Option „Genauigkeit wie angezeigt“ aktiviert ist. Andernfalls bleibt die Berechnung mit den Originalwerten bestehen.

  • Fehler: Werte werden nicht gerundet
    Lösung: Prüfe, ob Du das Zahlenformat korrekt auf „Zahl“ mit zwei Dezimalstellen eingestellt hast.


Alternative Methoden

Falls Du keine der oben genannten Methoden verwenden möchtest, gibt es auch die Möglichkeit, VBA (Visual Basic for Applications) zu nutzen:

Sub runden()
    Dim SP As Integer, LR As Long, LC As Integer
    SP = 1 'Spalte mit den Werten 
    LR = Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    LC = Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte belegte Spalte 

    'Formel in temporäre Spalte 
    With Cells(1, LC + 1).Resize(LR, 1)
        .FormulaR1C1 = "=IF(ISNUMBER(RC" & SP & "),ROUND(RC" & SP & ",2),"""")"

        'als Werte in ursprüngliche Spalte kopieren 
        Cells(1, SP).Resize(LR, 1).Value = .Value
    End With

    'TempSpalte löschen 
    Columns(LC).Delete
End Sub

Praktische Beispiele

  • Beispiel 1: Du hast die Zahl „9,1234“ in Zelle A1. Nach Anwendung der oben beschriebenen Methode wird der Wert auf „9,12“ gerundet.

  • Beispiel 2: Wenn Du mit Werten wie „10,5678“ arbeitest und die Genauigkeit wie angezeigt aktivierst, wird der Wert auf „10,57“ gerundet.


Tipps für Profis

  • Nutze die Suchen/Ersetzen-Funktion in Excel, um Formeln in Zellen schnell zu ändern. Ersetze „=“ durch „#RUNDEN(“, füge „;2)“ hinzu und führe die Rückumwandlung durch, um die ursprüngliche Formel beizubehalten.

  • Wenn Du häufig mit verschiedenen Runden musst, erwäge das Erstellen eines Makros für wiederkehrende Aufgaben, um Zeit zu sparen.


FAQ: Häufige Fragen

1. Kann ich Excel ohne Formel runden?
Ja, Du kannst Excel so einstellen, dass die Werte gerundet werden, ohne dass Du eine Formel in die Zellen eingeben musst.

2. Was passiert mit meinen Originaldaten, wenn ich die Genauigkeit wie angezeigt aktiviere?
Die Originaldaten werden dauerhaft gerundet, und die genauen Werte werden nicht mehr angezeigt oder verwendet. Achte darauf, dass Du diese Option nur aktivierst, wenn Du die Werte endgültig anpassen möchtest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige