Office: Spezial Runden

Hallo,

meine Kenntnisse reichen leider nicht um folgendes Problem zu lösen:

Zahlen mit folgenden letzten Ziffern sollen auf 5 gerundet werden: 2,3,4,6
Zahlen mit diesen letzten Ziffern sollen auf 9 gerundet werden: 7,8,0,1

Beispiele:
92, 93, 94, 96 auf 95
97, 98, 100, 101 auf 99.
1000 -> 999

Es müssen bis zu 4 stellige Zahlen einbezogen werden.

Würde mich über Lösungen freuen. Hab Grundkenntnisse im Programmieren, könnte ggf. mitbasteln.

 

Hallo,

die 5 und die 9 dürfen wohl nich mitspielen?

Arme 5 und 9... :cry:

 

Dein Mitleid für Zahlen in allen Ehren :D

Aber die müssen ja gar nicht mitspielen, da sie sich bereits in dem gewünschten Status befinden..

 

Moin silex1,

es gibt wahrscheinlich eine reine Formel-Lösung, aber ich bin halt bequem und löse so etwas per UDF (selbstdefinierter Funktion):

Code:

Option Explicit

Function MyRunden(Zahl)
   Select Case Right(Zahl, 1)
   Case 2, 3, 4, 6
      MyRunden = (Left(Zahl, Len(Zahl) - 1) & "5") * 1
   Case 0
      MyRunden = Zahl - 1
   Case Else
      MyRunden = (Left(Zahl, Len(Zahl) - 1) & "9") * 1
   End Select
End Function

Und hier kannst du nachlesen, wie du die Funktion einbinden kannst.

 

Vielen Dank Captain Nemo, das hat mir sehr geholfen!

Musste nur noch ne Kleinigkeit ändern:
Und zwar das Case 1 einfügen, sonst machter aus 01 -> 09.
Außerdem muss man in die erste Reihe noch die Zahl 5 dazunehmen, weil das Script sie sonst als Else werten würde und daraus eine 9 macht.

Code:

Function MyRunden(Zahl)
   Select Case Right(Zahl, 1)
   Case 2, 3, 4, 5, 6
      MyRunden = (Left(Zahl, Len(Zahl) - 1) & "5") * 1
   Case 0
      MyRunden = Zahl - 1
    Case 1
        MyRunden = Zahl - 2
   Case Else
      MyRunden = (Left(Zahl, Len(Zahl) - 1) & "9") * 1
   End Select
End Function

Hast du noch Lust das etwas zu erklären? Grundsätzlich hab ichs verstanden, sonst hätte ich das nicht fixen können, aber die Kombination von "left" und "len" ist mit schleierhaft.
Allerdings bin ich jetzt schon glücklich, Hauptsache es läuft!

Angenehme Restwoche wünsche ich!

 

Hallo,

und hier noch ne Formel.

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C
18	1000	999

Zelle	Formel
C18	=RUNDEN((B18+1)/5;0)*5-(REST(RUNDEN((B18+1)/5;0)*0,5;1)*10=0)

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

Gruß

Edgar

 

Moin breedmaster,

Klar, gerne!

• Also, ich übergebe der Funktion die Zahl als Zahl, nicht als Text.
• Mit der Funktion LEFT() mache ich daraus prinzipiell einen Text, den ich "zerpflücken" kann.
• Die Funktion LEN() bestimmt die Länge eines Textes.
• So, ich nehme alle Ziffern der Text-Zahl bis auf die letzte. Bei 1234 wäre das die Länge 4, Len(Zahl)-1 ergibt also 3 Ziffern. in dem Fall 123.
• Mit dem Ampersand (&) verknüpfe ich die bisherigen Ziffern mit der neuen (je-nach-Fall)-Ziffer. In dem Fall ist es die "5".
  
  Bislang ist das ja noch Text. Das Ergebnis wäre "1235"
  Dieses wiederum mit 1 multipliziert ergibt eine Zahl als Ergebnis.

Falls das nicht so ganz klar war, gerne noch einmal fragen! Ich bin zwar eine Nachteule, aber so allmählich lässt die Konzentration zu später Stunde doch nach ...