Zahlen ohne Komma

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Zahlen ohne Komma
von: Marcel
Geschrieben am: 24.10.2003 20:31:03

hallo Forumnutzer,
ich lasse Zahlen halbieren und möchte sie gerundet ohne Kommastellen in eine Textbox übernehmen.

Kann mir da jemand helfen?

Gruß

Marcel

Bild


Betrifft: Runden(A1;0) o.T.
von: Ramses
Geschrieben am: 24.10.2003 20:36:08

...


Bild


Betrifft: AW: Zahlen ohne Komma
von: PeterW
Geschrieben am: 24.10.2003 20:38:00

Hallo Marcel,

wie soll die Übernahme in eine Textbox ohne VBA passieren? In Textboxen steht immer - wie der Name vermuten läßt - Text. Schau dir in der Excel-Hilfe mal TEXT und RUNDEN an.

Gruß
Peter


Bild


Betrifft: AW: Zahlen ohne Komma
von: Marcel
Geschrieben am: 24.10.2003 21:31:52

Logisch, hab mich falsch ausgedrückt.
In Zelle A7 steht eine Summe. In A8 ist die Formel =A7/2
Nun hab ich in VBA eine msgbox geschrieben

Dim anz = Range("A8")
MsgBox = ("nicht mehr als" & anz & " dürfen weiter.")
So, nun kommt es aber vor, dass in A8 Kommawerte stehen, weil z.B.
7/2=3,5
Ich will aber, dass "anz" die Zahl 4 rausgibt.
Vielen Dank.
Gruß Marcel


Bild


Betrifft: AW: Zahlen ohne Komma
von: PeterW
Geschrieben am: 24.10.2003 21:38:00

Hallo Marcel,

da ist wohl etwas mit der Dimensionierung nicht ganz richtig. Probier es mal so:

Sub GerundeteAnzeige()
  Dim anz As Integer
  anz = Range("A8")
  MsgBox "nicht mehr als " & anz & " dürfen weiter."
End Sub

Gruß
Peter


Bild


Betrifft: AW: Zahlen ohne Komma
von: Marcel
Geschrieben am: 24.10.2003 21:51:19

Passt Danke.


Bild


Betrifft: AW: Zahlen ohne Komma
von: PeterW
Geschrieben am: 24.10.2003 21:47:02

Hallo Marcel,

habe wohl selber etwas übersehen. So sollte es richtig sein:

Sub GerundeteAnzeige()
  Dim anz As Double
  anz = WorksheetFunction.RoundUp(Range("A8"), 0)
  MsgBox "nicht mehr als " & anz & " dürfen weiter."
End Sub

Gruß
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zahlen ohne Komma"