Office: Nicht speichern wenn bestimmte Zellen leer

Nabend,

nachdem mir hier schon mal so gut geholfen wurde hab ich jetzt das nächste Problem.

Ich habe eine Excel Tabelle, in der bestimmte Sachen eingestellt werden sollen.

Ich hätte gern, dass sich diese Datei NICHT speichern lässt, wenn Zellen X Y Z (sind ca. 10 Zellen) nicht ausgefüllt sind.

Was für Möglichkeiten gibt es da? Habe schon rausgefunden dass man sowas am besten mit VBA löst, allerdings ist es schon gut 8-9 Jahre her das ich das letzte mal damit gearbeitet habe...

Also wenn jemand nen Tipp hät wäre ich sehr dankbar, wie ich das Problem am besten angehe!

Schönen Dank *wink.gif*

:)

 

Code:

unter DieseArbeitsmappe

 

Klasse, das funktioniert schon mal wunderbar. Hab das noch um eine MsgBox ergänzt damit der Anwender auch weiß, warum er nicht speichern kann.

Wie muss ich den Befehl Range("") denn erweitern um dort mehrere Zellen unter zu bekommen?

Danke, klasse wie schnell einem hier geholfen wird!

 

hallo
Versuch's mal damit.Zaehlt die nicht leeren Zellen.
Code:

gruss hary

 

So funktioniert´s, danke!

Ist zwar aufwendiger je mehr Zellen einbezogen werden sollen, aber das geht schon gut.

Danke!

 

Moin
Wenn die zellen zusammen liegen kannst Du den Bereich auch benennen.
gruss hary

 

Hängen natürlich nicht zusammen, sind über´s ganze Arbeitsblatt verteilt.

Aber danke für die Info!

Funktioniert das eigentlich auch wenn ich damit abfragen möchte, ob auf einem anderen Arbeitsblatt Zellen belegt sind?

Mit If Application.CountA(Range("Tabelle2!A1,A2,A1,B1,C1,D1,E1")) 7

funktioniert es leider nicht.

 

Hallo
Edit: Nu hab ich's verstanden. geht so.
Blattname vorran!
Code:

gruss hary

 

Hab mich da wohl ungenau ausgedrückt,

A1 war nicht doppelt, sondern sollte vom Blatt1 UND 2 geprüft werden.

Also Zelle A1,B1,C1 vom Arbeitsblatt1 , A1,B1,C1 vom Arbeitsblatt2. Mal als Beispiel ...

If Application.CountA(Sheets("Tabelle2").Range("A1,A2,B1,C1,D1,E1")) 6

 

hallo
Haben uns ueberschnitten. Hab gerade den Code gaendert. Schau noch mal nach.
gruss hary

 

Super, dank dir!

Genau das meinte ich, damit kann ich jetzt auf jeden Fall das abdecken was mir vorschwebt.

 

So, ich doch nochmal *biggrin.gif*

Ich habe ingesamt ca. 10 Unterpunkte, wo jeweils mehrere Auswahlmöglichkeiten bereit stehen.

Es soll so sein, dass pro Unterpunkt mindestens ein oder mehrere (ist von Punkt zu Punkt unterschiedlich) Auswahlen getroffen werden müssen.

Wie bekomme ich das am besten hin?

Würde das jetzt mit Range("A1,B1,C1") oder >x machen.

Also das geprüft wird ob eine Mindestanzahl der Zellen belegt ist.

Oder gibt´s da noch ne elegantere Methode?

Danke *wink.gif*

 

Hallo
Da faellt mir auch nur die Einzelpruefung pro Unterpunkt ein.
gruss hary

 

Ok, dann mach ich das so.

Wäre dann natürlich nur gut, wenn es nur eine Fehlermeldung gibt, anstatt pro Unterpunkt jeweils eine.

Also eine Meldung mit "Bitte Eingabe prüfen" oder so, und fertig.

Wie bekomme ich denn meherere Einzelprüfungen mit einer Und-Verknüpfung zusammen? So wie bei Excel? Also If Und(...)?

Danke nochmals!

 

Hallo
Code: