Office: RoundDown mit VBA

Hallo,

wie kann ich in einem Makro die Abrunden Funktion aufrufen??

So stelle ich mir den Code vor, funktioniert aber leider nicht...
Jemand eine Idee?

Code:

If Application.Max(BREITE, LAENGE) <= Application.Max(R_LAENGE, R_BREITE) = True _
Then RoundDown(R_LAENGE / Application.Max(BREITE, LAENGE))

 

Ich vermute mal Du benutzt nicht 2010? Application. davor.

Gruß Hajo

 

Genau, ich benutze Excel 2000

 

ich interpretiere jetzt mal das "Genau" als das Problem ist gelöst.

Gruß Hajo

 

Hallo,

ich habe Excel2007 und da funktioniert diese Funktion und ich bin mir einigermaßen sicher, dass dies auch für Excel2003 zutrifft. Für ältere Versionen kann ich nicht weiterhelfen.
Aber auf jeden Fall gilt für die Funktion ROUNDDOWN, dass sie 2 Parameter benötigt. Nachfolgend die Hilfe aus Excel2007:

 

Hallo,

und weiters gilt noch Folgendes:
Die ROUNDDOWN-Funktion ist keine in VBA eingebaute Funktion, sondern sie muss entweder als Methode des Application-Objektes oder des WorksheetFunction-Objektes aufgerufen werden.

 

Bei Deinem Beispiel vermute ich mal, daß es sich um Integer-Berechnung handelt. Sollte dem nicht so sein, vergiß das Folgende...

Aber die einfachste, schnellste und übersichtlichste Methode zum "Abrunden" ist ganz einfach die, den Nachkommateil einer Zahl mit der int() Funktion abzuschneiden.

Code:

[B]int([/B] R_LAENGE / Application.Max(BREITE, LAENGE) [B])[/B]

könnte also ev. schon die Lösung Deines Problems sein, ohne daß Worksheet-Funktionen aufgerufen werden müssen.

Gruß, Michael

 

Hallo,

hier die Lösung des Problems:

Code:

If Application.Max(BREITE, LAENGE) <= Application.Max(R_LAENGE, R_BREITE) = True _
Then Range("A1") = Application.RoundDown(R_LAENGE / Application.Max(BREITE, LAENGE), 0)

Danke schön!!!