das klappt aber nicht... wenn dann so:
nul = 0
eins = 1
zwei = 2
if (eins > nul) then
if (eins < zwei) then
if IsNumeric(eins) then
eins = eins
else
eins = nul
end if
end if
else
eins = nul
end if
msgbox nul
msgbox eins
msgbox zwei
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Auftrag von Markus
> Oestreicher
> Gesendet: Dienstag, 28. September 2004 17:46
> An: [EMAIL PROTECTED]
> Betreff: Re: [Coffeehouse] Bezahlung "Lines of Code"
>
>
> Andreas Roth wrote:
> > Antwort = "k"_
> > "a"_
> > "n"_
> > "n"_
> > "s"_
> > "t"_
> > " "_
> > "den "_
> > "Code bei VBA ganz" _
> > "sch�n strecken"
>
> Erstmal ein paar Eingabepr�fungen...
>
> if (1 > 0) and (1 < 2) then
> if IsNumeric(1) then
> 1 = 1
> else
> 1 = 0
> end if
> else
> 1 = 0
> end if
>
> ;-)
>
> Markus
>
> _______________________________________________
> Coffeehouse Mailingliste, Postings senden an:
> [EMAIL PROTECTED]
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/coffeehouse
>
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse
