Gruppe
Allgemein
Problem
Wie kann ich aus einem Zahlenstring bestimmte, sich in der Kopfzeile befindliche Begriffe auslesen und beim Nichtvorhandensein eines dieser Begriffe einen Fehlerwert verhindern?
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