Excel VBA Bereiche auf verschiedene Bedingungen prüfen

Question

Hallo zusammen,

ich habe mehrere Eingabeblätter, in dem man in bestimmte Bereiche Werte eintragen kann, aus denen dann über einen Button mehrere Berechnungen per Makro starten.

Da ich manchmal etwas vergesslich bin, kommt es vor, dass ich eine Eingabe vergesse (oder auch mal Text statt Zahlen eingebe).
Ich habe mir überlegt, beim Klick auf den Button abzuprüfen, ob auch alles korrekt eingegeben wurde und sollte das nicht so sein mit einer MsgBox darauf hinzuweisen.

Wie kann ich prüfen, ob alle Eingabefelder ausgefüllt, ungleich Null sind und eine Zahl enthalten?

Beispielsweise für das Tabellenblatt "Eingabe1", Zellen B2:B5 und B7:B15 ?

Danke schon mal im voraus für eure Hilfe :-)

Answer 1

Hallo,

Mit der Gültigkeitsprüfung „Benutzerdefiniert“ Formel z.B. =ISTZAHL(B2:B5) ist es mit der Fehlermeldung Typ „Stopp“ gar nicht möglich im Zellbereich B2 bis B5 einen Text einzugeben, sondern nur eine Zahl.

Die leeren Felder in gegenständlichen Bereich könnte man mit der bedingten Formatierung farblich kennzeichnen >Zellwert ist >gleich >0.

Ich hoffe diese Möglichkeit entspricht Deinen Vorstellungen

Schöne Grüße

Paul1

Answer 2

Hallo Paul1,

also die Eingabe von Text oder der Zahl 0 kann ich per Gültigkeitsprüfung verhindern, das ist schon mal ein guter Tipp - danke.

Fehlt nur noch eine automatische Prüfung und Warnung, wenn überhaupt kein Wert in einer der Zellen des Bereichs steht.

Answer 3

Hallo,

Ob in einem Zellbereich leere Zellen vorhanden sind und wieviele ginge mit der Formel:

=ANZAHLLEEREZELLEN(B2:B5)

schöne Grüße

Paul1

Answer 4

Hallo Paul1,

auch eine gute Möglichkeit, danke.

Ich habe es jetzt nur in VBA gemacht mit Application.WorksheetFunction.CountBlank(...)