Office: (Office 2013) Zellen freigeben wenn Bedingung erfüllt

Hallo alle miteinander,

ich braeuchte dringend eure Hilfe mit einer Excel Tabelle. Grundsaetzlich sollte das gesamte Blatt schreibgeschuezt werden, nur bestimmte Zellen sollen zur Bearbeitung freigegeben werden, je nach dem, welcher Monat gerade ist. Also wenn E7=AX6, sollen die Zellen F9:F11 und G9:G11 bearbeitet werden koennen. Aendert sich AX6 zu "Aug", sollen dementsprechend C9:C11 und D9:D11 entsperrt sein. Perfekt waere es dann noch, wenn die freigegebenen Zellen farbig markiert waeren. :D
Ich habe das bereits mit der Datenueberpruefung, aber das hat nicht funktioniert...
Ich vermute, dass ich dafuer ein Makro schreiben muss, was ich allerdings noch nie gemacht habe... Kann bisher nur aufzeichnen
Also falls sich jemand hier berufen fuehlt, mir zu helfen waere es echt super! ;)

Vielen Dank im Voraus!

 

Hallo,

also ebenfalls echt super wäre es für einen Helfenden, wenn du eine Excel-Datei mit allen entscheidenden Elementen (Formeln, Werte, etc.), ohne weiteres auch in anonymisierter Form, hochladen würdest. Denn anhand von JPG-Bildchen kann man leider nicht die wichtigen Dinge im Hintergrund erkennen - noch dazu da ja dein Bildchen in einem gewissen Widerspruch zu deiner Beschreibung steht (falsche Monatsbereiche).

Hochladen kannst du eine Datei, wenn du auf den Button "Erweitert" rechts unterhalb des Editierfensters klickst und danach den Button "Anhänge verwalten" verwendest. - Excel-Datei-Upload bis 100 kB möglich.

 

Hallo Anton,

da hast du Recht :)
Beispiel Datei nun hochgeladen :D

Hoffe, es wird jetzt ein bisschen klarer, was ich gerne erreichen würde.

Danke :)

 

Hallo,

in der beiliegenden Excel-Datei habe ich alles von deiner Datei übernommen und in den Code-Modulen für die Arbeitsblätter "Input" und "Tabelle2" VBA-Makros eingefügt.

1. Im Codemodul des Arbeitsblattes "Input" habe ich eine Ereignisbehandlung der Zelle "C1" eingefügt. Wenn im DropDown dieser Zelle entweder "Aug", "Sep" oder "Oct" ausgewählt werden, wird das Arbeitsblatt "Tabelle2" entsprechend angepasst.
   Wird im DropDown ein anderer Monat ausgewählt, erfolgt eine Fehler/Hinweismeldung, dass kein entsprechender Zellbereich festgelegt ist.
2. Im Codemodul von Arbeitsblatt "Tabelle2" befindet sich die SUB "ZellSchutz(strMon As String)":
   - Dort werden zuerst die monatsabhängigen Zellbereiche (für die zu entsperrenden Zellen) festgelegt
   - dann wird der Blattschutz aufgehoben und die bisher hell-rosa eingefärbten Zellen in den Zeilen 4-6 auf weiß gestellt.
   - dann wird der gewünschte Monatsbereich hell-rosa eingefärbt und das Sperrkennzeichen dieser Zellen entfernt
   - Zum Schluss wird der Blattschutz wieder hergestellt, sodass die Zellen mit aktivem Sperrkennzeichen wieder gesperrt sind.

• Wenn du das Arbeitsblatt "Tabelle2" umbenennen möchtest, müsstest du darauf achten, im Codemodul vom Arbeitsblatt "Input" den Makroaufruf entsprechend anzupassen; er lautet zur Zeit:
  Call Worksheets("Tabelle2").ZellSchutz(.Value)
  "Tabelle2" wäre dann entsprechend auszutauschen.
• Wenn du die Zelle für das DropDown (zur Zeit in Tabelle2!$C$1) verschiebst, musst du die Makrozeile
  If .Address = "$C$1" Then
  anpassen (Austauschen von "$C$1").
• Wenn du im Arbeitsblatt "Tabelle2" Zellbereiche für weitere Monate hinzufügen möchtest, müsstest du im Makro dieses Blattes das "Select Case … Case Monat … End Select" entsprechend ergänzen.

 

Hallo,

habe versehentlich auf die Datei vergessen:

 

Hallo Anton,

super!!! Vielen vielen Dank! Es funktioniert sogar mit allen zwölf Monaten :D

Liebe Grüße
Karin