Hi Nils,
Na, immerhin schon etwas Code. Wenn du dir jetzt noch die Microsoft-Doku zur IsEmpty-Funktion durchliest, erkennst du, dass du diese immer nur auf EINE Zelle anwenden kannst. Du müsstest deine Bedingung also mit AND für jede Zelle verknüpfen. Alternativ kannst du natürlich auch mit einer For Each-Schleife alle Zellen im Range durchgehen und in einer Variable einen Zähler hochzählen. Entspricht das Ergebnis in der Variable am Ende der Schleife der Anzahl an Pflichtzellen, kannst du das Blatt sperren. Du kannst aber auch eine Funktion wie CountA zu Hilfe nehmen.
Außerdem fehlt noch der Teil, wo du den Zellen sagst, dass sie im gesperrten Blatt keine Eingaben mehr zulassen sollen. Den entsprechenden Befehl sollte dir der Makrorekorder bereits ausgespuckt haben.
Gruß Mr. K.
|