Runden ganze Zahlen, Matrix, Bereich
19.02.2009 19:30:00
Roger
Auf dem Netz habe ich ein Makro gefunden, das mir glaube ich helfen könnte und habe das etwas angepasst. Nun funktioniert das leider aber nicht.
Fehlermeldung: Objekt erforderlich
Ziel: Ich habe eine Matrix, bei der ich die Zahlen auf ganze Zahlen runden möchte.
Das ist mein erster Versuch mit einem Makro zu arbeiten, weshalb ich nicht wirklich eine Ahnung habe...
Danke für eure Hilfe. Nachfolgend das Makro:
Sub runden()
Dim rngBer As Range
Dim rngZelle As Range
Set rngBer = Application.InputBox(prompt:="Bitte Bereich mit Maus auswählen", Type:=1)
For Each rngZelle In rngBer
rngZelle.Value = WorksheetFunction.Round(rngZelle.Value, 0)
Next
End Sub