Zahl aufrunden

Forumthread: Zahl aufrunden

Zahl aufrunden

08.06.2006 15:14:38

Spieler

Hallo zusammen
Problem:
Zahl auf 10-Stellen aufrunden. Das heisst in der aktiven Zelle wo die Zahl eingegeben wird.
Beispiel: 434 -- 440, 459 -- 460 usw.
=aufrunden(xx:-1) kann nicht auf die aktive Zelle runden -- Zirkelbezug.
Habe einmal von einem VBA gehört.
Kann mir jemand weiterhelfen?
Danke.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahl aufrunden

08.06.2006 15:28:12

Gegenspieler
AW: Zahl aufrunden

08.06.2006 15:34:30

fcs
AW: Zahl aufrunden

08.06.2006 16:30:31

Spieler
AW: Zahl aufrunden

08.06.2006 16:30:36

Spieler
AW: Zahl aufrunden

08.06.2006 16:30:39

Spieler
AW: Zahl aufrunden

08.06.2006 16:31:08

Spieler
AW: Zahl aufrunden

08.06.2006 16:31:10

Spieler
AW: Zahl aufrunden

08.06.2006 16:32:11

Spieler

AW: Zahl aufrunden

08.06.2006 15:28:12

Gegenspieler

Hi,
Rechtsklick auf den Reiter der Tabelle, 'Code anzeigen' auswählen und folgendes reinkopieren:


Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) Then Target.Value = Round(Target.Value / 10, 0) * 10
End Sub

Schönen Gruß,
Andi

AW: Zahl aufrunden

08.06.2006 15:34:30

fcs

Hallo Spieler,
wenn du bei der Eingabe nicht im Kopf aufrunden willst, dann gibt es 2 Lösungen:
1. Du berechnest die Aufgerundete Zahl in einer Nachbarzelle:
Eingabe in A1
Formel in B1: =AUFRUNDEN(A1;-1)
2. Ein Makro, das bei Wertänderung im Eingabebereich, den Wert rundet.


Private Sub Worksheet_Change(ByVal Target As Range)
'Aufrunden des Eingabewertes bei Eingabe im Zellbereich
If Not Intersect(Target, Range("A2:A65000")) Is Nothing Then
Target.Value = Application.WorksheetFunction.RoundUp(Target.Value, -1)
End If
End Sub

Das Makro im VBA-Editor unter der Tabelle einfügen, in der die Aufrundung erfolgen soll.
Den Bereich "A2:A65000" anpassen!.
mfg
Franz

AW: Zahl aufrunden

08.06.2006 16:30:31

Spieler