Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wie kann ich auf und auf,- und abrunden mit Grenzwerte

Wie kann ich auf und auf,- und abrunden mit Grenzwerte
03.11.2023 16:48:18
Hubertus
Hallo zusammen,

Möchte Preise runden aber mit Unter und Obergrenze (Grenzwerte)

Ich hoffe das ich es richtig erklärt haben
Alle preise zwischen 100 und 600, Obergrenze 25 sollte auf den nächste 99 abgerundet werden
Alle preisen haben 2 dezimalen
Beispiel
100 abgerundet auf 99
115,23 abgerundet auf 99
125 abgerundet auf 99
126,25 aufgerundet auf nächste Ganzzahl also 127

300 abgerundet auf 299
315 abgerundet auf 299
325 abgerundet auf 299
455,50 aufgerundet auf 256
588 bleibt 588
Etc.

Alle Preisen ab 700 mit einen Obergrenze 45 sollte auf hunderte 99 oder tausenden 99
700 abgerundet auf 699
744 abgerundet auf 699
834 abgerundet auf 799
845,50 aufgerundet rundet auf nächste volle Zahl also 846
1025 abgerundet auf 999
Etc.

Ansonsten für alles andere Preisen nur aufrunden
Var.1
Alle andere Preise aufrunden auf der nächsten vollen Ganzzahl

Var 2
oder wenn‘ geht alle andere Preise aufrunden auf nächste 5 oder 9 Ganzzahl

Beste Grüße
Karel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie kann ich auf und auf,- und abrunden mit Grenzwerte
03.11.2023 17:43:04
Yal
Hallo Karel,

das Thema wurde vor kurzem in einem sehr viel ausführliche Konversation (oder "Thread") behandelt:
https://www.herber.de/forum/archiv/1944to1948/1946583_Auf_und_Abrunden_auf_Ganzzahl_5_oder_9_mit_Schwellenwert.html

Der Fragesteller hatte zufällig dieselbe Nickname wie Du.

Es wird in dem Fall wahrscheinlich auch drauf laufen, dass eine UDF geschrieben werden muss, da die Anforderung komplex und nicht linear sind.

Public Function SpezRund(ByVal Target As Range)

Dim Hunderter As Long

'Default value
SpezRund = WorksheetFunction.RoundUp(Target.Value, 0)

'Sonderfall als Korrektur der "Default"
If Target.Value > 100 Then
Hunderter = WorksheetFunction.RoundDown(Target.Value, -2)
If (Target.Value - Hunderter) = IIf(Target.Value 700, 25, 45) Then SpezRund = Hunderter - 1
End If
End Function


VG
Yal
Anzeige
AW: Wie kann ich auf und auf,- und abrunden mit Grenzwerte
03.11.2023 17:58:02
onur
Der Fragesteller hatte zufällig dieselbe Nickname wie Du. Was für ein Zufall... :)
Ich habe irgenwie den Eindruck, dass diese Frage alle paar Wochen hier landet.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige