Office: (Office 2010) VBA Prüfen ob Zelle eine INTEGER-Zahl enthält

Hallo,

ich möchte ein kleines Unterprogramm verwenden, um zu prüfen ob In einer Zelle ein INTEGER-Wert steht, mit dem ich weiter rechnen kann. Dazu will ich an das sub folgende Variablen übergeben:

• Feldbezeichnung - gibt bei der MsgBox für den Anwender den Namen des Feldes aus
• Feldadresse
• Variablenname - wenn eine INTEGER-Zahl in der Zelle steht, soll diese Variable den Zellenwert bekommen
• Pflichtfeld - gibt an, ob das Feld ausgefüllt sein muss, oder auch leer bleiben darf

Code:

Den Aufruf wollte ich so machen:

Code:

Aber wenn ich es eingegeben habe (die Zeile mit INTTest) kommt immer "Fehler beim kompilieren ... Erwartet: ="

Da wären Sie also, meine Probleme:
1) Ich will gar keinen Wert zurückbekommen! Oder muss ich doch?
2) Ist die Range so richtig übergeben?

Viele Grüße
333

:)

 

sub 123() ist kein gültiger Name (darf nicht mit einer Zahl beginnen)!

 

Hallo ?,

Public Function isINT(Target As Variant) As Boolean
isINT = IsNumeric(Target)
If isINT Then isINT = Target > 0
If isINT Then isINT = Target - Cint(Target) = 0
End Function

Sub nn()
MsgBox isINT(Range("A1"))
MsgBox isINT(0)
MsgBox isINT(10.2)
End Sub





« Gruß Sepp »

 

hi

das prüft ob in der Zelle ein INTEGER steht

Code:

kannst es ja noch weiter ausbauen.

^^ zu deinen Fragen 123 ist mal nicht gültig
und mit dem =
du hast in deinem Funktionsaufruf die Klammern drinnen, diese Klammer erfordern ein =

z.B
INTTest "testfeld", Cells(2, 3), "test", True

mit Rückgabe ist doch einfach zu arbeiten

z.B
Code:

oder

Code:

 

Wow, das geht schnell hier. Danke für die Hilfe. Um die Antworten mal durchzugehen:

Zum Einwand von Hasso:
sub 123() geht nicht, richtig. Hatte ich nur als Beispiel reingekritzelt und in Echt nie verwendet.

Zur Antwort von josef e:
Das habe ich nicht weiter verfolgt, weil ich ja nicht nur wissen will ob INTEGER oder nicht, sondern auch gleich den Wert in eine Variabe bekommen will ohne das extra im Programm zu machen. Ich will einfach nur eine Stelle im Quellcode haben, wo ich die Adresse an die Variable koppel, damit ich es später mal wiederfinde *wink.gif*

Zur Antwort von chris-kaiser:
Danke, jetzt wo ich weiss, dass die Klammern das Problem waren bin ich wieder ein ganzes Stück schlauer. Bin gar nicht auf die Idee gekommen die wegzulassen... aber nun funktioniert es auch. Letztendlich sieht es so aus:

Code:

und Aufruf mit

Code:

Viele Grüße
333
(oder Markus, wenn Euch das zu anonym ist)