Gruppe
Format
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
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