Zelleingabe per InputBox()

[Wolfgang Lampert]

Hi, ich möchte per InputBox einen Zelleintrag machen ohne vorher festzulegen, ob es sich um einen String/Zahl/Datum handelt.
Leider sind die Ergebnisse nicht korrekt - ich vermute, dass das Land umgestellt werden muss?

Sub inputBox
..
nsEingabe = inputbox("Text1","Text2")
if IsNumeric(nsEingabe) then
oCell.value = nsEingabe
elseif IsDate(nsEingabe) then
oCell.value = nsEingabe
else oCell.string = nsEingabe
End if
end Sub

Eingabe
1,2345 wird als Zahl 1 (ohne Dezimale)
"" wird als IsDate ""
31.12.2003 wird als Zahl 0
31,12,2003 als String
31.12 als Zahl 31,12 interpretiert

Sicher gibt es hierfür eine Lösung - leider nicht bei meinem Kenntnisstand
Gruss Wolf

[Wolfgang Lampert]

Hi Stephan,
super wie immer.
Aber langsam wird es für mich frustrierend. Auf oCell.FormulaLocal wäre ich alleine nie gekommen - und bevor ich irgendeine Frage an das Forum richte, gebe ich mein Bestes.
gruss Wolf

[Wolfgang Lampert]

Und wieder eine gute Idee:
ICH schnipsle auch erst einmal meine Erkenntisse zusammen und frag' irgendwann hinterher einmal: "Warum.."
Stop, EIN Warum interessiert mich doch:
Was macht .CurrentController.

oDoc = StarDesktop.CurrentComponent
oBereich = oDoc.getCurrentSelection().getRangeAddress() REM Cursorauswahl identifizieren
oSheet = oDoc.getCurrentController.ActiveSheet
..
oCell.FormulaLocal = nsEingabe
oCell.NumberFormat = 36
..
Rem Cursor auf Eingabezelle
oDoc.CurrentController.Select(oCell) REM ??? was bewirkt ".CurrentController."

Ich brauche das, um den Cursor auf die mit InputBox gefüllte Zelle zu bringen.
Aber bitte keine Mühe und Recherche; wie gesagt ich schnipsle im Moment.
mfg Wolf