Aufrunden in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Aufrunden in VBA"