Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aufrunden, abrunden

Aufrunden, abrunden
30.01.2017 11:37:16
Paul
Hallo
Wie kann ich mittels vba eine zahl auf oder abrunden. Wenn in a1 ein Wert eingefügt wird dann soll die Zahl auf oder abgerundet werden.
mfg Paul

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufrunden, abrunden
30.01.2017 11:44:31
Max2
Hallo,
das kannst du machen mit:

Round(Zahl, 2)

Obiges Beispiel rundet die Zahl auf die zweite Nachkommastelle.
AW: Aufrunden, abrunden
30.01.2017 11:52:42
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Das Makro einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    If Target = Range("$A$1") Then
        Dim Anz As Integer
        Anz = 1 'Anzahl Stellen 
        Application.EnableEvents = False
        
        Target = WorksheetFunction.Round(Target, 1)
        ' oder Target =  WorksheetFunction.RoundDown(Target, 1) 
        ' oder Target =  WorksheetFunction.RoundUp(Target, 1) 

    End If
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige