zelle auf integer Zahl überprüfen
03.05.2006 10:09:58
Andreas
Kurze Frage ?
Wie kann ich abfragen ob in einer bestimmten Zelle sagen wir Zelle A1 eine Zahl oder irgendetwas anderes steht
soweit hab ichs schon nur die if Zeile muss noch in die richtige Syntax dass ist mein Problem
y = Sheets("Tabelle1").Cells(1,1)
if y = "integer Zahl" Then
y = y
Else: y = 0
End if
Sheets("Tabelle1").Cells(1, 2)= y
~f~
die null soll auch in B1 erscheinen wenn nichts in A1 steht oder besser noch es soll auch nichts in B1 erscheinen wenn in A1 nichts steht
im Moment sieht meine Abfrage so aus da die Integer Zahl im Hauptmakro auch positiv begrenzt ist hier im Beispiel auf < 5
~f~
y = Sheets("Tabelle1").Cells(1,1)
if y < 5 Then
y = y
Else: y = 0
End if
Sheets("Tabelle1").Cells(1, 2)= y
es funktioniert ohne Probleme nur erscheint
wenn man nichts in A1 eingibt in B1 ein #NV
es soll aber wenn man nichts eingibt auch nichts erscheinen oder optional wenn nichts nicht geht dann eine 0
Dann kam mir der Gedanke das man das vielleicht mit einer abfrage auf ingeger werd oder nicht durch füren kann nur leider fehlt mir wie oben beschrieben die nötige Syntax