Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zahlenformatierung mit Punkt nach der 1. Ziffer

Gruppe

Zahl

Problem

Wie kann ich Zellen so formatieren, daß nach der ersten Ziffer ein Punkt gesetzt wird? Beispiele: 1 = 1., 10 = 1.0, 123455 = 1.234455

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FormatEin()
    Worksheets("Data").OnEntry = "Formatting"
End Sub

Sub FormatAus()
    Worksheets("Data").OnEntry = ""
End Sub

Sub Formatting()
    Application.Caller.NumberFormat = "0\." & _
      String(Len(CStr(Application.Caller)) - 1, "0")
End Sub