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
Hi, ich möchte per InputBox einen Zelleintrag machen ohne [u]vorher[/u] festzulegen, ob es sich um einen String/Zahl/Datum handelt.
Leider sind die Ergebnisse nicht korrekt - ich vermute, dass das Land umgestellt werden muss?
[quote]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[/quote]
[u]Eingabe[/u]
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