AW: Nachkommastellen festlegen
31.10.2011 19:52:00
fcs
Hallo Oli,
nachfolgendes Makro in einem allgemeinen Modul deiner persönlichen Makroarbeitsmappe einfügen.
Dann Symbolleiste für den Schnellzugriff anpassen.
Im Dialog "Befehle--Makkros" wählen. Marko selektieren und hinzufügen. ggf. via Ändern noch die Grafik der Schaltfläche anpassen.
Gruß
Franz
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