Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auf nächst höhere gerade Zahl runden?

Auf nächst höhere gerade Zahl runden?
10.04.2008 16:19:00
Gilligan
Hi Leute,
wie kann ich am einfachsten und schnellsten per VBA auf die nächst höhere ganze gerade Zahl runden?
Danke für die Hilfe.
Gilligan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 16:28:36
Hajo_Zi
Hallo Gilligan,
=AUFRUNDEN(H30*5;-1)/5

AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 16:37:00
Rudi
Hallo,
sorry: Quatsch
1. kein VBA
2. =Aufrunden(A1;0)
Zahl = WorksheetFunction.RoundUp(Zahl, 0)
oder ohne WorksheetFunction
Zahl = Int(Zahl + 1) + (Zahl * 10 Mod 10 = 0)
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

So funzt es!
10.04.2008 16:54:27
Gilligan
If WorksheetFunction.RoundUp(Zahl, 0) Mod 2 = 0 Then
Zahl = WorksheetFunction.RoundUp(Zahl, 0)
Else
Zahl = WorksheetFunction.RoundUp(Zahl, 0) + 1
End If
Danke sehr!

AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 16:38:54
Gilligan
Sorry Hajo,
also die nächst höhere Zahl, die durch 2 teilbar ist. Per VBA wäre klasse. Da gibts aber nur die Round-Funktion, soweit ich weiss.

Anzeige
AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 16:46:00
Hajo_Zi
Hallo Gilligan
RoundUp
Gruß Hajo

AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 16:54:39
Renee
Hi Gilligan,

MeineZahl = Int(MeineZahl+1) + int(MeineZahl+1) mod 2


GreetZ Renée

AW: Auf nächst höhere gerade Zahl runden?
10.04.2008 19:50:00
Erich
Hallo Gilligan,
so gehts wohl auch schznell:

Sub myOBERGRENZE()
Const dblW As Double = 0.3
MsgBox Application.Ceiling(dblW, 2)
' oder
MsgBox Application.WorksheetFunction.Ceiling(dblW, 2)
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige