Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Runden des Zellinhaltes

Forumthread: VBA Runden des Zellinhaltes

VBA Runden des Zellinhaltes
07.11.2018 15:11:20
Nicole
Hallo zusammen,
wir müssen für unsere Planung tausende von Zeilen bearbeiten mit Formeln und Fixen Zahlen. Jedoch sollen alle am Schluss auf volle tausender gerundet werden.
Durch aufnehmen habe ich folgenden Code : 
Sub Makro2()
ActiveCell.FormulaR1C1 = "=ROUND(595,-3)"
End Sub

Wie kann ich den Wert 595 nun auf die aktive Zelle umschreiben.
Als Beispiel in meiner Zelle steht =A1 nach der Formel soll drin stehen
=Runden(A1;-3)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Runden des Zellinhaltes
07.11.2018 15:23:41
PeterK
Hallo
Formatier deine Zellen mit 0."000" (dann bleiben die Werte erhalten, Du siehst aber nur runde Zahlen)
AW: VBA Runden des Zellinhaltes
07.11.2018 15:26:56
Daniel
Hi
naja so wird das nix.
Runden von vielen Zahlen auf 1000er geht am schnellsten wahrscheinlich so:
1. lege für die Zahlen, die gerundet werden sollen folgendes Zahlenformat fest: "0,."
damit werden dir die Tausender angezeigt.
2. aktiviere in den Optionen - Erweitert - Beim Berechnen dieser Arbeitsmappe das Häkchen "Genauigkeit wie angezeigt"
3. nachdem du die Meldung bestätigt hast, kannst du das Häkchen wieder rausnehmen und im Tabellenblatt das Zahlenformat für die Zellen wieder auf den ursprünglichen Wert setzen.
Gruß Daniel
Anzeige
AW: VBA Runden des Zellinhaltes
07.11.2018 15:33:42
Nicole
Hallo Daniel,
ich arbeite in mehreren Dateien mit mehreren Tabellenreiter und Zeilen.
Da finde ich das eigentlich zu umständlich. Außerdem kann es immer sein dass nachträglich was geändert werden muss und dann muss man des jedes mal wieder neu machen.
Wir arbeiten hier alle mit der Runden Formel und wollen diese nur per Kurzwahl zu unseren Formeln und Zahlen einfügen.
Dennoch danke für den Tipp.
Anzeige
AW: VBA Runden des Zellinhaltes
07.11.2018 15:45:12
Daniel
Hi
naja meinetwegen per Code, muss einmal auf jede Datei angewendet werden.
der Code fügt jeder Zahl und jeder Formel, die noch kein Runden enthält, die Rundungsfunktion hinzu 

dim Zelle as range
dim sh as worksheet
for each sh in activeworkbook.worksheets
for each Zelle in sh.UsedRange.specialCells(xlcelltypeconstants, 1)
Zelle.Formlua = "=Round(" & Zelle.Value & ",-3)"
Next
for each Zelle in ActiveSheet.usedrange.SpecialCells(xlcelltypeformulas, 1)
if Instr(Zelle.Formula, "=ROUND")  1 then
Zelle.Formula = "=" & Round(" & mid(zelle.formula, 2) & ",-3)"
end if
Next
nextg
wenn ihr die Rundung nachträglich noch beeinflussen wollt, dann legt ihr euch einen Namen mit dem Wert -3 an und schreibt in die Formel satt dem -3 diesen Namen.
wenn ihr dann wieder die richtigen Zahlen haben wollt, dann ändert ihr einfach den Wert zu diesem Namen.
Gruß Daniel
Anzeige
AW: VBA Runden des Zellinhaltes
07.11.2018 15:49:08
Nicole
Danke Daniel für den Code. Leider brauch ich es nur in einzelnen Spalten und nicht im ganzen Worksheet.
Jedoch habe ich schon eine Lösung. Dennoch danke für deine Hilfe.
AW: VBA Runden des Zellinhaltes
07.11.2018 15:56:09
Daniel
ja schön für dich
wie sieht denn deine Lösung aus und wo hast du sie her?
allerdings verstehe ich deinen Einwand nicht
zuerst sagst du mir dass du viele Worksheets in vielen Dateien bearbeiten musst und jetzt doch nur einzelne Spalten, naja, musst ja wissen was du willst.
Wenn du VBA-Programmierung einsetzt solltest du aber selbstständig in der Lage sein, den Code entsprechend anzupassne und das UsedRange durch den dir genehmen Zellbereich anzupassen.
wenn du dazu aber Hilfe brauchst, solltest du die Finger von dem Projekt lassen und es jemanden übegeben der sich damit auskennt.
Gruß Daniel
Anzeige
AW: VBA Runden des Zellinhaltes
07.11.2018 15:59:00
Nicole
Danke Daniel für deinen ach so netten Einwand. Das "Projekt" sollte uns nur auf die schnelle helfen. Und da mehrere Worksheets dennoch aus mehreren Spalten bestehen kann es sehr wohl sein dass ich nicht alles gerundet haben will. Meine Anforderung war ja das die Aktive Zelle umgeschrieben werden soll. Und da ich ja eine Lösung gefunden habe, werde ich wohl kaum zu blöd dafür gewesen sein. Vielen Dank für deine Hilfe.
Anzeige
;

Forumthreads zu verwandten Themen

auf volle Euro aufrunden
Bernd

Hallo liebe Helferlein,
ich habe in der Recherche leider nichts gefunden.
Ich benötige eine Formel, die immer auf den nächst vollen Euro aufrundet.
aus z.B. 1.860,48 wird 1.861,00
vielen lieben Dank für Eure Hilfe
Gruss Bernd
23.02.2009 10:41:15
Thread-ID: 1052992
2 Beiträge
Anzeige
Aufrunden auf volle 5
Lisa

Hallo !
Wie kann ich den in VBA (!) eine Zahl auf die nächste durch 5 teilbare Zahl AUFRUNDEN ? Ein kurzes Beispiel:
Aus 35,001 wird 40,
aus 35,000 wird/bleibt 35,000,
aus 34,892 wird 35,000.
Vielen lieben Dank für Eure Hilfe!
Grüße
Lisa
05.08.2002 16:59:08
Thread-ID: 145011
3 Beiträge
Aufrunden auf volle 50.000,00
HoPe

Hallo,ich hoffe, dass mir jemand einen Tipp geben kann.
Folgendes Problem: Ich möchte in EXCEL eine Zahl auf die nächsten 50.000,00 aufrunden.
Ich kenne die Formel AUFRUNDEN, jedoch habe ich bisher nur von der Möglichkeit gelesen, dass man auf volle 10, 100, 1000 usw. aufrunden kann.
K...
09.05.2003 10:30:19
Thread-ID: 254180
3 Beiträge
abrunden auf volle zehner
max
hallo,
ich möchte ein errechnetes ergebnis auf volle zehner abrunden.
z.b errechnete zahl = 218 soll auf 210 abgerundet werden.
mit welcher formel mache ich das?
danke
29.01.2004 20:07:46
Thread-ID: 373364
4 Beiträge
Anzeige
Aufrunden auf volle Minutenzahl
Lena

Hallo…
Mit welcher Funktion kann ich die Uhrzeit Aufrunden. Z.B. A1 = 00:12:16 und in B1 soll dann stehen: 00:13:00
Vielen Dank für eure Hilfe im Voraus.
Mit freundlichen Grüßen
Lena
01.02.2006 11:24:51
Thread-ID: 726697
3 Beiträge
Anzeige
Runden einer Zahl auf volle Hunderter
Klaus

Hallo Excelianer,
jetzt steh ich ein wenig auf dem Schlauch. Kann man in irgendeiner Weise am besten ohne makroprogrammierung eine Zahl, mit oder ohne Komma auf volle Hunderter runden. Also bspw. 345,66 auf 300. Ich find nix im Funktionsassistenten. Geht das überhaupt oder muss man ein makr...
03.03.2006 12:22:52
Thread-ID: 740006
3 Beiträge
Runden einer Zelle mit Zeitformat auf volle halbe
jochen

Hallo Profis
ich habe mir eine Arbeitszeittabelle gebastelt. Jetzt sitze ich über einem Problem und komme nicht weiter:
In A1 steht eine errechnete Arbeitszeit, in Zelle B1 soll jetzt die Zeit von A1 gerundet auf die volle halbe Stunde stehen. Wie bekomme ich das hin? Mit der funktion A...
19.06.2006 18:02:54
Thread-ID: 774529
4 Beiträge
Auf- / Abrunden auf volle Hundert
Jutta

Hallo,
ich suche eine Lösung um auf volle Hundert auf-/ oder abzurunden (also ab 50 aufrunden, unter 50 abrunden)
Beispiel:
24380 soll werden 24400
24240 soll werden 24200
Die Lösungen " Obergrenze " bzw. "Untergrenze" nützt mir hier nichts, da ja die Formel über eine ganze...
20.10.2006 09:51:08
Thread-ID: 812521
7 Beiträge
Auf Tausender ab oder Aufrunden
heinzel

Morgen zusammen
In der Zollferwaltung müsste ich Zahlen immer auf Tausender ab oder Aufrunden, welche Formel geht da.
Beisp. Fr. 1'499 auf Fr. 1'000 oder ab Fr. 1'500 auf Fr. 2'000
oder Fr. 10'377 auf Fr. 10'000 oder Fr. 10'500 auf Fr. 11'000 usw.
also immer auf Tausender auf o...
17.02.2007 10:21:00
Thread-ID: 847097
3 Beiträge
Aufrunden auf volle Euro innerhalb einen Formel
Hubertus
Hallo,

ich hab mal ein Formelproblem welches ich möglichst elegant lösen
in einen Preisliste haben Ich folgenden Formel
=WENN(AL6=0;"-";((AL6*AX$2)+AO6)/(1-$AX$3))

Möchte betrag auf nächste volle Euro aufrunden
Formel "=Aufrunden(zahl;0)" ist ja klar

Frage, wi...
15.10.2023 11:49:24
Thread-ID: 1949591
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellinhalte mit VBA auf volle Tausender runden

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Neues Modul einfügen: Klicke mit der rechten Maustaste auf VBAProject (DeineDatei) und wähle Einfügen > Modul.

  3. Code einfügen: Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:

    Sub RundenAufTausender()
    Dim Zelle As Range
    For Each Zelle In Selection
        If IsNumeric(Zelle.Value) Then
            Zelle.Value = Application.WorksheetFunction.Round(Zelle.Value, -3)
        End If
    Next Zelle
End Sub

  4. Makro ausführen: Wähle die Zellen aus, die du runden möchtest, und führe das Makro RundenAufTausender aus.

Mit diesem einfachen VBA-Skript kannst du die Werte in den ausgewählten Zellen auf volle Tausender runden.

Häufige Fehler und Lösungen

  • Fehler: "Typen unverträglich" beim Ausführen des Makros.

    • Lösung: Stelle sicher, dass die ausgewählten Zellen tatsächlich numerische Werte enthalten. Du kannst dies überprüfen, indem du die Zellen markierst und den Wert in der Bearbeitungsleiste ansiehst.

  • Fehler: Das Makro ändert die Formatierung der Zellen.

    • Lösung: Stelle sicher, dass du die Zellen vorher nicht mit einem speziellen Zahlenformat (z.B. 0.000) formatiert hast. Setze die Formatierung zurück, bevor du das Makro ausführst.

Alternative Methoden

  1. Excel-Funktion nutzen: Statt VBA kannst du die Funktion =ROUND(A1, -3) direkt in die Zelle eingeben.
  2. Bedingte Formatierung: Du kannst die bedingte Formatierung verwenden, um visuell anzuzeigen, wenn Zahlen nicht auf volle Tausender gerundet sind, aber das wird die Werte nicht verändern.
  3. Tausenderformat: Setze das Format der Zellen auf "0," um die Zahlen ohne Dezimalstellen anzuzeigen.

Praktische Beispiele

  • Beispiel 1: Wenn in Zelle A1 der Wert 3456 steht, wird nach Ausführung des Makros der Wert auf 3000 gerundet.
  • Beispiel 2: Wenn du eine ganze Spalte von Werten runden möchtest, markiere die gesamte Spalte und führe das Makro aus.

Tipps für Profis

  • Variablen anpassen: Überlege, ob du eine Konstante für den Wert -3 nutzen willst, um die Lesbarkeit deines Codes zu erhöhen.
  • Aufrunden oder Abrunden: Du kannst die Funktion Application.WorksheetFunction.RoundUp oder Application.WorksheetFunction.RoundDown nutzen, um die Werte nach Bedarf aufzurunden oder abzurunden.
  • Fehlerbehandlung einfügen: Überlege, eine Fehlerbehandlung in deinen Code einzufügen, um unerwartete Eingaben besser zu handhaben.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Zahlen immer auf volle Tausender gerundet werden?
Du kannst das oben angegebene VBA-Skript verwenden, um die Werte in den Zellen zu runden.

2. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten Excel-Versionen ab Excel 2007 funktionieren.

3. Was passiert, wenn ich versuche, nicht-numerische Werte zu runden?
Das Skript ignoriert nicht-numerische Werte, sodass keine Fehlermeldung angezeigt wird, und es bleibt beim ursprünglichen Wert.

4. Ist es möglich, die Zellen nach dem Runden wieder in das ursprüngliche Format zu bringen?
Ja, du kannst die Formatierung der Zellen jederzeit zurücksetzen, um sie im ursprünglichen Format anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige