|
Hi Alex,
ich weiß nicht, ob das Beispiel deinen Vorstellungen entspricht, da mir einiges bei der Handhabung nach wie vor nicht klar ist.
Derzeit läuft es so: wenn in einer geplant-Spalte FREI ausgewählt wird, wird ausgehend von der aktiven Spalte jede 14. Zelle der betreffenden Zeile mit der im Code festgelegten Füllfarbe formatiert und FREI eingetragen. Jeder 14. deshalb, da du ja 2 Spalten pro Tag verwendest. Wird etwas anderes ausgewählt, wird die Füllfarbe für jede 14. Zelle ab der aktiven wieder zurückgesetzt, FREI bleibt jedoch stehen.
Die Füllfarben sind im Code in der Select Case Verzweigung festgelegt, die kannst du entsprechend anpassen bzw. auch erweitern. Dazu habe ich noch die Sub Fuellfarbe() implementiert, damit wird die Füllfarbe der gerade aktiven Zelle (die du vorher von Hand mit deiner Wunschfarbe formatierst) in einer MsgBox angezeigt - führe es einfach im VBA-Editor mit F8 aus. Den Code kannst du am Ende dann löschen.
__________________
Bis später,
Karin
|