VBA "Typen unverträglich"

Question

Hallo,

ich möchte in einer Abfrage einschränken,dass ein Datenfeld <>leer ist und dessen Inhalt eine numerische Variable ist.:

If Cells(l, 2) <> "" And (Cells(l, 2) * 1)>0 Then

Solange wie der Zellinhalt numerisch ist klappt das Ganze. Wenn der Inhalt allerdings alphanumerisch ist kommt der Fehler, den ich eigentlich mit
If Cells(l, 2) <> "" And Not IsError(Cells(l, 2) * 1) Then
umgehen wollte, was aber nicht funktioniert.
Hat jemand einen Tipp?
Danke und Gruß Andreas

Answer 1

Hallo Andreas

warum nicht
If Cells(l, 2) <> "" And Cells(l, 2) >0 Then

Gruß Hajo

Answer 2

Hi Adreas,

vielleicht hilft ja schon

If IsNumeric(Cells(l, 2)) Then MsgBox "Ok"

Bis später,
Karin

Answer 3

Hallo,
danke für die schnelle Tipps!!!
Hajo, das klappt leider nicht, weil bei dieser Abfrage schon der Fehler ausgegeben wird, da es sich ja ggf. um ein Textfeld handeln kann. Trotzdem danke.

Karin, dein Tipp ist die Lösung - kannte den Befehl bisher nicht, hilft mir sicher auch in anderen Fällen!!
Gruß Andreas

Answer 4

hi Ahorn ^^

*kicher kicher* ,das kommt bestimmt oefter bei dir :-)))

gruss nighty

Answer 5

hi Ahorn ^^

da du ueber anfaenger schon hinaus bist,kostet das ein virtuelles rumfass fuer das fprum :-)

gruss nighty