verrafft
Goto Top

Preise automatisch auf bestimmte Werte runden.

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.

Content-ID: 170359

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

Ausgedruckt am: 24.11.2024 um 07:11 Uhr

bastla
bastla 25.07.2011 um 12:05:40 Uhr
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
thaenhusen
thaenhusen 25.07.2011 um 12:05:45 Uhr
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
bastla
bastla 25.07.2011 um 12:14:51 Uhr
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
Verrafft
Verrafft 25.07.2011 um 12:22:57 Uhr
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
Verrafft
Verrafft 25.07.2011 um 12:26:41 Uhr
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!