verrafft
Jul 25, 2011
view7889
view5
0
Goto Top

Preise automatisch auf bestimmte Werte runden.

GermanQuestionMicrosoft OfficeMicrosoft

Preise automatisch auf bestimmte Werte runden.

Hi jungs,

also ich habe mal wieder ne frage.

ich habe eine tabelle mit preisen wie diesen:

243,76
365,98
256,89
211,10
usw.

würde jetzt gerne das alle Preise entweder auf xx4,90 oder xx9,90 aufgerundet werden.

Beispiel:

243,76 = 244,90
365,98 = 369,90
256,89 = 259,90
211,10 = 214,90

Ich hoffe ihr versteht worums geht... face-wink

ich freu mich über jede hilfe.
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 170359

Url: https://administrator.de/contentid/170359

Printed on: April 20, 2024 at 02:04 o'clock

5 Comments
Latest comment
Goto Top
Member: bastla
bastla Jul 25, 2011 at 10:05:40 (UTC)
Goto Top
Hallo Verrafft!

Falls Dein ungenanntes Excel die Funktion "OBERGRENZE()" kennt, etwa so (für den Wert in A1):
=OBERGRENZE(A1;5)-0,1
Grüße
bastla
Member: thaenhusen
thaenhusen Jul 25, 2011 at 10:05:45 (UTC)
Goto Top
Moin.

Vieleicht so?

Public Funtion PreisRound(preis as double)
            If (CDbl((Mid(CStr(preis), Len(CStr(preis)) - 3, Len(CStr(preis))))) <= 4.9) Then
                PreisRound = CDbl((Mid(CStr(preis), 1, Len(CStr(preis)) - 4) & "4,90"))  
            Else
                PreisRound = CDbl((Mid(CStr(preis), 1, Len(CStr(preis)) - 4) & "9,90"))  
            End If
End Function

Und dann den Aufruf in einer Abfrage oder im Excelfeld?

HTH
MK
Member: bastla
bastla Jul 25, 2011 at 10:14:51 (UTC)
Goto Top
@thaenhusen
... oder ganz klassisch:
PreisRound = Int(preis / 5 + 1) * 5 - .1
bzw als Formel:
=GANZZAHL(A1/5+1)*5-0,1
Grüße
bastla
Member: Verrafft
Verrafft Jul 25, 2011 at 10:22:57 (UTC)
Goto Top
schonmal ganz kurz es handelt sich um LibreOffice 3.3.3.... sorry das ich das verpeilt habe... face-wink

ich probier eure tipps mal aus jetzt. danke
Member: Verrafft
Verrafft Jul 25, 2011 at 10:26:41 (UTC)
Goto Top
sauber!!!!!!!!!

GANZZAHL(A1/5+1)*5-0,1 das hats gerockt!

einfach aber genial!

vielen lieben dank bastla... und auch an die anderen!
GermanQuestionMicrosoft OfficeMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment