Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anzeige
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
Anzeige
AW: Zahl aufrunden
08.06.2006 16:30:31
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.
AW: Zahl aufrunden
08.06.2006 16:30:36
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.
AW: Zahl aufrunden
08.06.2006 16:30:39
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.
AW: Zahl aufrunden
08.06.2006 16:31:08
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.
AW: Zahl aufrunden
08.06.2006 16:31:10
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.
AW: Zahl aufrunden
08.06.2006 16:32:11
Spieler
Vielen Dank, Lösung 2 hat wunderbar geklappt.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige