Herbers Excel-Forum - das Archiv

Aufrunden in VBA

Bild

Betrifft: Aufrunden in VBA
von: Wendy

Geschrieben am: 04.03.2005 10:15:56
Also ich habe vorhin schon mal Hilfe bekommen, aber da wurde mir ein aufgerundetes Ergebnis in einer Box angezeigt.
Das Problem ist der Ausdruck Round(..[..]) funktioniert irgendwie nicht wie er soll..oder besser gesagt ich bekomms nicht gebacken.
Der Wert der gerundet werden soll ist aus einem anderen Feld und wird in einem Kommentar dargestellt. Ja ich habe nun verschiedene Dinge probiert, aber es klappt einfach nicht. :( Wie und wo sollte ich den Round Ausdruck einsetzen?
Muss er bei die Funktion hin?
LG Wendy
Bild

Betrifft: AW: Aufrunden in VBA
von: Matthias G
Geschrieben am: 04.03.2005 10:18:37
Hallo Wendy,
Der Wert der gerundet werden soll ist aus einem anderen Feld und wird in einem Kommentar dargestellt.
Dann liegt er wahrscheinlich im String-Format vor.
Wert = "3,5555555555555"
MsgBox Round(CDbl(Wert),5)
Gruß Matthias
Bild

Betrifft: AW: Aufrunden in VBA
von: Wendy

Geschrieben am: 04.03.2005 10:34:13
Ja..das klappt ja...aber mmh..
Da wo Wert steht, kommt ja die zu rundende Zahl rein.
Aber der Zahl steht zum Beispielt im Sheet A in B13. Und ändert sich jeden Monat.
Und dann soll der gerundete Wert nicht in einer Box wiedergegeben werden.
In der Funktion die ich habe, da ist das Feld schon angegeben, wo der zu rundente Wert stehen soll..er muss halt nur gerundet werden... *g* Was nen Deutsch...
Wendy :)
Bild

Betrifft: AW: Aufrunden in VBA
von: Matthias G
Geschrieben am: 04.03.2005 10:39:17
Hallo Wendy,
poste doch mal deine Funktion, dann kann man die anpassen.
Gruß Matthias
Bild

Betrifft: AW: Aufrunden in VBA
von: Wendy
Geschrieben am: 04.03.2005 10:52:16
Ok..ich habe nur das wichtigste reingemacht..
https://www.herber.de/bbs/user/19194.doc
Bild

Betrifft: AW: Aufrunden in VBA
von: Matthias G

Geschrieben am: 04.03.2005 11:58:59
Hallo Wendy,
schon mal was von Strg-C und Strg-V gehört? ;-)
Word ist hier wirklich nicht nötig!
Sub Aktualisierung()
Dim f, p, r, s As String
Dim Position, i As Integer
On Error GoTo Error_WerteUebertragen
s = "Wrasendampf_T2"
p = "M:\A_Energietechnik_Büro\a_Allgemeines\ENERGIE-ABRECHNUNG\Abrechnung_Neu\"
f = "Abrechnung_Neu.xls"
Kommentar_einfuegen:
Private Function GetValue10(path, file, sheet, ref)
Dim arg As String
ref = "K2"
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue10 = ExecuteExcel4Macro(arg)
End Function
Ich sehe nicht, wo hier gerundet werden soll...
Gruß Matthias
 Bild
Excel-Beispiele zum Thema "Aufrunden in VBA"
Zeitdifferenzen auf Viertelstunden ab- und aufrunden