Hallo liebe VBA-Freunde,
ich sitze jetzt schon ein paar Stunden daran, ein Ergebnis im Textfeld aufzurunden und das will nicht klappen.
Eigentlich sollte es doch ganz einfach sein.
Mein Ursprung lautet:
TB_Check_1.Value = Format(TB_Check_1.Value / 3, "#,##0")
Die Daten werden aus einem Register aus Excel geholt per
TB_Check_1.Value = Round(WorksheetFunction.SumIf([Daten_Suchbereich], konto1, [Daten_aktuell]), 0)
Bis dahin ist alles noch gut. Aber ist die Zahl aus der Exceltabelle z.B. 1 und soll durch 3 dividiert werden, gibt mir das Textfeld Null aus - es soll aber auf 1 aufrunden.
Ich habe es auch schon mit Roundup probiert, aber das funktioniert auch nicht.
(TB_Check_1.Value = Format(TB_Check_1.Value / 3, (Roundup [0])))
Wo liegt denn hier der Hund bloß begraben?
Gruß und vielen Dank im voraus, falls es jemand weiß
Susan