Office: gültigkeitsprüfung in vba nur dann, wenn wert in zelle steht

hallo zusammen,

bin neu hier und hab ein hausgemachtes problem mit vba.

ich versuch es mal so einfach wie möglich zu beschreiben:

ich möchte in excel pflichtfelder einführen, es soll also nicht erlaubt sein, keinen wert in einem bestimmten bereich ( b1:c3 ) keine werte einzutragen.
soweit sogut, das hab ich hinbekommen, aber nun kann es sein, dass die liste bzw der bereich "länger" als 3 zellen wird.

nun möchte ich das ganze mit einer abfrage verbinden, die sich auf die spalte a bezieht. wenn also a1 einen wert enthält ( bspw: 1 ), dann soll meine vba prozedur starten.
ich möchte den "prüfrahmen ( oben bis c3 ) soweit ausbauen, bis in spalte a eine zelle ohne wert auftaucht.

höllisch kompliziert geschrieben, das geb ich zu, aber ich hoffe ihr könnt mir trotzdem irgendwie weiterhelfen.

das ist der quelltext der bei mir läuft.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Zelle

For Each Zelle In Range("b1:c3")
If Zelle.Value = "" Then
Cancel = True And MsgBox("Mitarbeiter Rufbereitschaft")
Exit For
End If
Next Zelle


End Sub


ich möchte nun, dass der bereich nach range irgendwie abhängig von der spalte a wird. ist das machbar?


vielen dank schonmal für eure hilfe und ideen.

mfg

:)

 

Moin, Quasimodo,

ja, hier wird die letzte genutzte Zeile der Spalte A von unten her (also von der letzten Zeile) festgestellt und ausgwertet:


Code:

Statt einer Schleife würde ich einen Zellenvergleich machen, wenn keine Formeln in den Zellen vorhanden sind:

Code:

 

zunächst mal danke für die schnelle antwort.

der zweite quelltext sieht ganz gut aus, aber ich hab noch nicht ganz verstanden wo bzw wie ich es einbauen muss. bzw, was es genau macht.

fragt es nur ab, ob die spalte a länger ist als der andere prüfbereich?
wie muss ich es dann mit meiner ursprünglichen abfrage bezüglich der gültigkeit ( der prüfbereich soll keine leeren zellen enthalten dürfen ) kombinieren oder einbauen?

setz ich das textstück einfach vor meine:

For Each Zelle In Range("Prüfbereich")
If Zelle.Value = "" Then
Cancel = True And MsgBox("fehlertext")
Exit For
End If
Next Zelle

?

vielen dank im voraus

 

Moin, Quasimodo,

warum willst Du zweimal den gleichen Bereich prüfen? Für mich sieht das eher nach einer Entweder Oder-Alternative aus (nur eine der beiden Prozeduren kann im Klassenmodul verwendet werden, sonst "meckert" VBA über den doppelten Namen - die jeweils andere kann auskommentiert werden {dazu gibt es in der Symbolleiste Bearbeiten in der VBE ein Hilfsmittel, mit dem auch mehrere Zeilen "auf einen Streich" bearbeitet werden können).

 

vielleicht hab ich mich da unklar ausgedrückt.
ich möchte einen bereich überprüfen, der keine leeren zellen enthalten soll. dazu hab ich den von mir eingepflegten quelltext genommen, was auch funktioniert. er liefert mit eine fehlermeldung, wenn in diesem bereich noch ein leeren feld vorhanden ist.

da ich nun aber nicht weiß, wie groß der prüfbereich wird, wollte ich dies von einer davor befindlichen spalte abhängig machen.
steht in dieser spalte ein wert ( bspw in a1 : 1 ) dann soll der prüfbereich min die länge haben, bis zu zeile 1. steht also in a12 auch noch eine 1 oder eine 12, ganz egal, dann soll mein prüfbereich von 1 bis 12 gehen...

vielleicht nimmt der von dir geschriebene text das ja schon vorweg und ich seh es nur noch nicht. werd nochmal ein wenig damit herumexperimentieren.

mfg

 

Moin, Quasimodo,

die Variable lngLetzte ermittelt die letzte von unten festgestellte gefüllte sichtbare Zelle in Spalte A, und diese Variable wird dann für den Bereich genutzt - zur Zeit verstehe ich Dein Problem nicht (gehe bitte in die Entwicklungsumgebung und gehe den Code im Einzelschrittmodus per F8 durch, dann wird Dir der Wert beim Drüberfahren mit der Maus angezeigt, vielleicht hilft Dir das beim Verstehen des Codes, der meinem Verständnis von Code das macht, was Du möchtest).