Sub OliBe
With Cells(3, 1)
If .Value 0 Then
.NumberFormat = "0." & Application.WorksheetFunction.Rept("0", Cells(1, 1))
Else
.NumberFormat = "General"
End If
End With
End Sub
Sub Format_Nachkommastellen()
Dim varEingabe As Variant
Eingabe:
varEingabe = InputBox(Prompt:="Anzahl Nachkommastellen ( 0, 1, 2 oder 3):", _
Title:="Zellen formatieren - Nachkommastellen", _
Default:=2)
Select Case varEingabe
Case "" 'Abgebrochen
Case "0"
Selection.NumberFormat = "#,##0"
Case "1", "2", "3"
Selection.NumberFormat = "#,##0." & String(CLng(varEingabe), "0")
Case Else
If MsgBox("unzulässige Eingabe", vbRetryCancel, "") = vbRetry Then GoTo Eingabe
End Select
End Sub
Um die Nachkommastellen in Excel zu steuern, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, um die Nachkommastellen in einer Zelle festzulegen:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden VBA-Code ein:
Sub Format_Nachkommastellen()
Dim varEingabe As Variant
Eingabe:
varEingabe = InputBox(Prompt:="Anzahl Nachkommastellen (0, 1, 2 oder 3):", _
Title:="Zellen formatieren - Nachkommastellen", _
Default:=2)
Select Case varEingabe
Case "" 'Abgebrochen
Case "0"
Selection.NumberFormat = "#,##0"
Case "1", "2", "3"
Selection.NumberFormat = "#,##0." & String(CLng(varEingabe), "0")
Case Else
If MsgBox("unzulässige Eingabe", vbRetryCancel, "") = vbRetry Then GoTo Eingabe
End Select
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Wähle die Zellen aus, für die du die Nachkommastellen anpassen möchtest.
Führe das Makro aus, indem du es im Menü "Entwicklertools" oder über die Symbolleiste für den Schnellzugriff auswählst.
Fehler: "Ungültige Eingabe"
Fehler: Nachkommastellen werden nicht angezeigt
Negative Werte führen zu einem Fehler
Es gibt mehrere Möglichkeiten, die Nachkommastellen in Excel zu steuern:
Direktes Formatieren über das Menü:
Verwendung von Funktionen:
RUNDEN() verwenden, um die Anzahl der Nachkommastellen zu bestimmen:
=RUNDEN(A1; 2) ' Rundet den Wert in A1 auf 2 NachkommastellenDiagramme anpassen:
Nachkommastellen mit InputBox festlegen:
Excel Diagramm Nachkommastellen ändern:
WorksheetFunction.Rept-Funktion, um dynamisch die Anzahl der Nachkommastellen anzupassen.1. Wie kann ich die Anzahl der Dezimalstellen für ein gesamtes Arbeitsblatt festlegen?
Du kannst ein VBA-Makro verwenden, das auf alle Zellen in einem Arbeitsblatt angewendet wird, anstatt nur auf die ausgewählten Zellen.
2. Kann ich die Nachkommastellen für ein Excel-Diagramm separat einstellen?
Ja, du kannst die Nachkommastellen für die Achsenbeschriftungen in den Diagrammeinstellungen anpassen.
3. Wie viele Nachkommastellen kann ich in Excel maximal einstellen?
Excel erlaubt in der Regel bis zu 30 Dezimalstellen, aber in der Praxis ist es sinnvoll, die Anzahl der Nachkommastellen auf 2 oder 3 zu begrenzen, um die Lesbarkeit zu erhalten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen