Office: Runden

Helfe beim Thema Runden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, kann mir jemand vielleicht Helfen in meinem Korrekturblatt müsste ich die Ergebnisse Runden. Das Problem ist die Waage hat folgende... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Wolf38, 25. Mai 2010.

Seite 1 von 2
  1. WOLF38
    Wolf38

    Runden


    Hallo Leute,

    kann mir jemand vielleicht Helfen in meinem Korrekturblatt müsste ich die Ergebnisse Runden.

    Das Problem ist die Waage hat folgende Schritte

    0-60 kg in 0.020 kg Schritten
    60- 150 kg in 0.050 kg Schritten
    150-300 kg in 0.100 kg Schritten


    Also das Programm müsste erkennen um was für ein Gewicht es sich handelt in der Spalte E und dann entscheiden ob es Rundet in 0.020/0.050/0.100 Schritten.

    Hoffe das jemand meine Erklärung auch verstehen kann.

    Danke mal !

    :)
     
    Wolf38, 25. Mai 2010
    #1
  2. EDGAR BASLER
    Edgar Basler
    Über eine 3-fach Abfrage kann dies durchgeführt werden:

    =WENN(A6>=150;UNTERGRENZE((A6+0,05);0,1);WENN(A6>=60;UNTERGRENZE((A6+0,025);0,05);UNTERGRENZE((A6+0,01);0,02)))

    Zur Erklärung:
    Wenn man die Hälfte der Rundungsweite dazu addiert und dann über die Funktion der Untergrenze geht funktioniert es .....

    Einfach mal probieren.
     
    Edgar Basler, 27. Mai 2010
    #2
  3. WOLF38
    Wolf38
    aber super wäre wenn man das mit VBA machen könnte, weil da habe ich nicht das Problem das ich eine Riesige Formel habe.

    Und mich interessiert das VBA auch, und möchte mit diesen Beispielen auch was dazu lernen.

    Darum wäre es Toll einen Tipp in diese Richtung zu bekommen.


    LG Wolf38
     
    Wolf38, 27. Mai 2010
    #3
  4. WOLF38
    Wolf38

    Runden

    Hab da einen Code gefunden der eigentlich was für mich sein könnte, wenn ich alles verstehen würde !


    Sub ErhoehenUndFormatieren()
    Dim rng As Range
    Dim dValue As Double
    Dim iCounter As Integer, iRow As Integer
    Application.ScreenUpdating = False
    iRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("C1").Copy
    Range("A1:A" & iRow).PasteSpecial _
    Paste:=xlValues, _
    Operation:=xlMultiply, _
    SkipBlanks:=False, _
    Transpose:=False
    For iCounter = 1 To iRow
    dValue = Cells(iRow, 1).Value
    Select Case dValue
    Case Is
     
    Wolf38, 27. Mai 2010
    #4
  5. BOSKOBIATI
    BoskoBiati
    Hallo,

    hier mal mit einer etwas kürzeren Formel:

    Code:
     
    BoskoBiati, 27. Mai 2010
    #5
  6. WOLF38
    Wolf38
    Danke für die nette Antwort !


    *top
     
    Wolf38, 28. Mai 2010
    #6
  7. BOSKOBIATI
    BoskoBiati
    Hallo Wolf,

    die Frage ist einfach, warum Du so eine Tabelle nehmen musst, um Dich in VBA zu üben. Wie willst Du das Runden bewerkstelligen, automatisch oder auf Knopfdruck?
    Im ersten Fall läuft es wahrscheinlich darauf hinaus, dass beim Öffnen das Makro eine Formel in die Tabelle schreibt, dann kannst Du gleich eine Formel nehmen (das liegt daran, dass Deine Werte aus Formeln kommen und somit über ein Change nicht erfasst werden)
    Im zweiten Fall ist es wohl auch einfacher eine Formel in die Tabelle zu schreiben, weil damit das Runden automatisch geht.

    Wenn Du irgendwo diese Massen von Hand einschreibst, dann ist das mit einem ca. 10-zeiligen Makro zu erschlagen.
     
    BoskoBiati, 28. Mai 2010
    #7
  8. WOLF38
    Wolf38

    Runden

    Hallo,

    es sollte schon Automatisch funktionieren, weil sonst vergisst einer den Knopf zu drücken und dann passen die Zahlen nicht.

    Ich hab deine Formel mal heut kurz ausprobiert. Und da hab ich gleich mal das nächste Problem festgestellt. Weil ich berechne ein Rezept und wenn ich die Rundung durchführe dann komme natürlich weniger heraus durch das Runden.

    z.B. ich hab Summe 500 kg siehe Tabelle dann werden Fixe zahlen abgezogen von den 500 kg und der rest nennt sich clear und das ist die Restsumme. Aber durch das Runden stimmt mir diese Restsumme nicht mehr.

    Wie hast du das gemeint mit den 10 Zeilen für das Makro ?


    Ich weiss schon das ich nichts weiss, aber ich denke mal lernen kann nie schaden !

    Danke !

    Gruss

    Wolf38*Smilie
     
    Wolf38, 28. Mai 2010
    #8
  9. BOSKOBIATI
    BoskoBiati
    Hallo,

    das ist das Problem beim Runden: die Summe der gerundeten Zahlen ist eine Andere. Dieses Problem kann Excel nicht lösen. Du kannst zwar das Ergebnis hinbiegen, aber ich weiß nicht ob das so befriedigend ist. Bei den Mengen, die Du hast, würde ich sowieso die Kleinmengen bis 60 kg über Addition einwiegen, da fällt das Runden nicht mehr ins Gewicht. Es ist übrigens noch die Frage, mit welcher Genauigkeit Deine Waage arbeitet. Die Ablesegenauigkeit der Waage ist u.U. deutlich besser, als der Fehler, d.H. Du liest zwar 20g ab, aber die Waage arbeitet z.B. nur auf 0,5% genau, macht bei 30kg 150g!
    Das mit dem Makro wird nur dann was, wenn Du die Gewichte irgendwo von Hand eingibst.
     
    BoskoBiati, 28. Mai 2010
    #9
  10. WOLF38
    Wolf38
    Hallo,

    nun ich versuche noch mal mein Problem genauer darzustellen. Wenn du mein Korrekturblatt mal angeschaut hast, siehst du das man auf der rechten Seite die Werte von Hand eingibt. Das ist das so genannte Vorgängerrezept. Und das kann ja mit Korrekturen die 500 kg überschreiten. Daher rechne ich auf der rechten Seite die Summen herunter das ich immer die gleich Ansatzgrösse habe.

    Jetzt ist ein Problem aufgetreten, das bei einem Audit jemand 60,567kg eingewogen hat. Und er machte es so 60 kg auf der 0-300kg Waage und die
    0,567 kg auf einer 0-5 kg Waage. Und das ist natürlich falsch und das gefiel dem Auditor ganz und gar nicht.

    Daher wollte ich gleich meine Werte im Korrekturblatt so Runden das jeder gleich weiss wo die Abwaage gemacht wird.

    Weil die Werte vom Korrekturblatt werden von mir in den SAP Auftrag übertragen in die Spalte Rezeptierte Menge.

    Nun weiss ich nicht ob das jetzt verständlicher ist für dich was ich genau machen möchte !

    Aber ich denke du hast schon sehr viel verstanden, was ich meine.

    Danke mal !

    Es kann auch eine andere Lösung sein.

    Gruss

    Wolf38*Smilie
     
    Wolf38, 28. Mai 2010
    #10
  11. BOSKOBIATI
    BoskoBiati
    Hallo,

    hier mal ein Makro für dieses Tabellenblatt, etwas mehr als 10 Zeilen:

    Option Explicit

    Code:
     
    BoskoBiati, 29. Mai 2010
    #11
  12. JINX
    jinx
    Moin, Edgar,

    auch wenn Excel2003 nach einem Durchlauf "aussteigt" (was weder Excel97 noch Excel2000 beständig tun), sollten vor dem Schreiben in einem Worksheet_Change_Ereignis die durch das Schreiben erneut initiierten Aufrufe des Ereignisses ausgeschaltet werden durch Application.EnableEvents = False und abschließend wieder eingeschaltet werden...
     
    jinx, 29. Mai 2010
    #12
  13. WOLF38
    Wolf38

    Runden

    Hallo,

    danke mal für den ersten Code, er funktioniert genau so wie ich es benötige.
    Es ist eine tolle Sache wenn man sich in VBA auskennt. Ich kann leider nur immer staunen was man da so alles machen kann.

    Ein kleines Problem hab ich dann immer noch *wink.gif*

    Durch das Runden von meinen Werten ergibt sich ein noch falsches Ergebnis!
    alt ohne Runden neu mit automatisch Runden
    350,266 350,900
    100,000 100,000
    3,750 3,750
    19,483 19,560
    8,954 8,980
    3,664 3,680
    4,969 4,980
    6,752 6,780
    1,883 1,880
    0,180 0,180
    0,100 0,100
    500,001 500,600

    Jetzt müsste man noch hinbekommen ! Das ich als Ergebnis 500 bekomme.

    Und diese 0,600 könnten von der grössten Menge (350,900) abgezogen werden.

    Also das Programm müsste Richtig Runden und auch noch abziehen von der grössten Menge !

    Ob das auch geht ???????

    Vielleicht hast du noch eine ausbaustufe von deinem Makro *wink.gif*

    Danke mal ...... für deine Mühen !

    Gruss

    Wolf38
     
    Wolf38, 29. Mai 2010
    #13
  14. ERICH G.
    Erich G.
    Hi,
    probiers mal damit: Code:
     
    Erich G., 29. Mai 2010
    #14
  15. OFFICEUSER
    OfficeUser Neuer User
    Hallo Jinx,

    danke für den Hinweis, ich vergesse es immer wieder.

    Hallo Wolf,

    ich erhalte ein anderes Ergebnis:

    Tabelle1

     EFGHIJKLMNOPQRST
    5350,300##            350,266kg
    6100,000##            100,000kg
    73,760##            3,750kg
    8                
    919,480##         100  19,483kg
    108,960##         100  8,954kg
    113,660##         100  3,664kg
    124,960##         100  4,969kg
    136,760##         100  6,752kg
    141,880##         100  1,883kg
    150,180##            0,180kg
    160,100##            0,100kg
    17 ##             kg
    180,000##            0,000kg
    19500,000kg            500,001kg
    ZelleFormel
    F5=INDEX(_kg1;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F6=INDEX(_kg2;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F7=INDEX(_kg3;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F9=INDEX(_kg4;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F10=INDEX(_kg5;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F11=INDEX(_kg6;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F12=INDEX(_kg7;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F13=INDEX(_kg8;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F14=INDEX(_kg9;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F15=INDEX(_kg10;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F16=INDEX(_kg11;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F17=INDEX(_kg12;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    F18=INDEX(_kg13;VERGLEICH('\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]PU Probase & Candulor Hot&Cold '!$C;_TeileNr;0))
    S19=SUMME(S5:S18)
    ZelleNameBezieht sich auf
    F5_kg1=BEREICH.VERSCHIEBEN(_TeileNr;;28;Runden
    F5_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F6_kg2=BEREICH.VERSCHIEBEN(_TeileNr;;29;Runden
    F6_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F7_kg3=BEREICH.VERSCHIEBEN(_TeileNr;;30;Runden
    F7_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F9_kg4=BEREICH.VERSCHIEBEN(_TeileNr;;31;Runden
    F9_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F10_kg5=BEREICH.VERSCHIEBEN(_TeileNr;;32;Runden
    F10_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F11_kg6=BEREICH.VERSCHIEBEN(_TeileNr;;33;Runden
    F11_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F12_kg7=BEREICH.VERSCHIEBEN(_TeileNr;;34;Runden
    F12_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F13_kg8=BEREICH.VERSCHIEBEN(_TeileNr;;35;Runden
    F13_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F14_kg9=BEREICH.VERSCHIEBEN(_TeileNr;;36;Runden
    F14_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F15_kg10=BEREICH.VERSCHIEBEN(_TeileNr;;37;Runden
    F15_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F16_kg11=BEREICH.VERSCHIEBEN(_TeileNr;;38;Runden
    F16_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F17_kg12=BEREICH.VERSCHIEBEN(_TeileNr;;39;Runden
    F17_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    F18_kg13=BEREICH.VERSCHIEBEN(_TeileNr;;40;Runden
    F18_TeileNr='\liscsrv12\PC\Bereich Kunststoffe\PTP Kunststoffe\Korrekturblätter neu 2008\[MASTER Vorlage  Korrekturblatt Hot & Cold mit neuen Farben 30.04.2010.xls]Datentabelle1'!$A  
    Excel Jeanie HTML 4

    Hier nochmal der Code mit der Verbesserung:

    ption Explicit

    Code:
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    OfficeUser, 29. Mai 2010
    #15
Seite 1 von 2
Thema:

Runden

Die Seite wird geladen...

  1. Runden - Similar Threads - Runden

  2. aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

    in Microsoft Excel Hilfe
    aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren: Hallo liebes Forum, Ich habe eine Excel-Tabelle mit einer Liste von Namen und Geburtstagen und möchte in einer Zusatzspalte das aktuelle Alter ausweisen und Alter mit 0 oder 5 gelb markieren. Dazu...

  3. Datum/Uhrzeit runden in PowerQuery

    in Microsoft Excel Hilfe
    Datum/Uhrzeit runden in PowerQuery: Hallo zusammen, ich brauche eure Hilfe. Gibt es in PowerQuery eine Möglichkeit bei folgendem Format die Sekunden automatisch für die ganze Spalte auf 00 zu setzen? 24.01.2024 14:29:43 >>>...

  4. Runden bei Zeiten

    in Microsoft Excel Hilfe
    Runden bei Zeiten: Hallo, ich habe folgendes Problem, wenn ich Zeiten Runden auf 2 Kommastellen gerne hätte kommt immer 00:00,00 heraus =MIN(B4:B9)/100*95 das ist die bisherige Formel, das wird zwar richtig...

  5. immer auf die nächsten 0,50€ aufrunden

    in Microsoft Excel Hilfe
    immer auf die nächsten 0,50€ aufrunden: Hallo zusammen, nach erfolglosen Versuchen muss ich mich jetzt an euch wenden. Ich habe eine Tabelle mit Preisen: Diese sollen alle IMMER auf die nächsten 0,50 € aufgerundet, aber NICHT...

  6. Problem mit Runden (round)

    in Microsoft Access Hilfe
    Problem mit Runden (round): Hallo allerseits, bisher bin ich mit der Runden-Anweisung, round(Zahl,Anzahl Nachkommastellen) immer gut gefahren. Die Anwendung behandelt Geldbeträge mit Berechnung von Brutto-, Netto- und...

  7. #Wert!

    in Microsoft Excel Hilfe
    #Wert!: Hallo, ich bekomme immer den Fehler #Wert! beim kopieren der Formel angezeigt. In Zelle a2 Betrag einer Rechnung, Zelle c2 70% aus a2, bei 0 Zelle leer und gleichzeitig soll das Ergebnis auf 2...

  8. Mathematisches Runden (Banker's Rounding) ohne VBA

    in Microsoft Excel Tutorials
    Mathematisches Runden (Banker's Rounding) ohne VBA: im Gegensatz zum normalen "kaufmännischen Runden": =WENN(ISTGERADE(A1/1%)*(REST(A1/1%;1)<=0,5);ABRUNDEN(A1;2);RUNDEN(A1;2)) Quelle, abgewandelt auf Cent: Banker's rounding formula in Excel Am...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden