Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Runden per VBA

Runden per VBA
16.03.2007 10:45:16
{mskro}
Hallo Excelfreunde,
hat vielleicht jemand eine Idee, wie ich in einem VBA auf 2 Stellen Runden kann, wenn ich folgende Zeile verwende.

Sub test()
Range("I10") = Sheets("Vorgaben").Range("E20") / 12
End Sub
Gruß Manfred

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Runden per VBA
16.03.2007 10:51:24
Ramses
Hallo

Sub test()
Range("I10") = application.worksheetfunction.round(Sheets("Vorgaben").Range("E20") / 12,2)
End Sub
Sollte tun
Gruss Rainer
Erledigt
16.03.2007 11:00:44
{mskro}
Danke Rainer,
bin gerade noch selber drauf gekommen mit

Sub test()
Range("I10") = Sheets("Vorgaben").Round(Range("E20") / 12, 2)
End Sub
Gruss Manfred
Das glaubst du aber selbst nicht....
16.03.2007 12:20:29
Ramses
Hallo
das der Code von Dir funktioniert,... oder ?
Das hast du noch nicht ausprobiert.
Gruss Raienr
AW: so schon :-)
16.03.2007 12:36:22
{mskro}
Hallo Rainer,
ja, aber nur mit einer kleinen Änderung. :-)

Sub test()
Round(Range("I10") = Sheets("Vorgaben").Range("E20") / 12, 2)
End Sub
Gruss Manfred
Anzeige
Aber sicher nicht :-) o.w.T.
16.03.2007 12:44:06
Ramses
...
AW: Aber sicher nicht :-) o.w.T.
16.03.2007 13:20:00
{mskro}
...oh man, du bringst mich schon ganz durcheinander.
Natürlich nicht so, sondern

Sub test()
Range("I10") = Round(Sheets("Vorgaben").Range("E20") / 12, 2)
End Sub

Gruss Manfred
Na also, wie ich geschrieben habe :-) o.w.T.
16.03.2007 13:25:28
Ramses
...
nur kürzer ;-) o.T.
16.03.2007 13:51:00
{mskro}
Dafür Funktioniert es überall...
16.03.2007 14:16:36
Ramses
Hallo
Ohne "Application.worksheetfunction" machen einige EXCEL-Versionen Probleme :-)
Gruss Rainer
AW: Dafür Funktioniert es überall...
16.03.2007 14:28:00
{mskro}
Ok, vielen Dank für den Tip
und ein schönes Wochenende
Gruss Manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige