Office: Rahmen automatisch erstellen und entfernen

Hallo zusammen,

ich habe eine Excel Liste mit Urlaubsplanung habe es soweit automatisiert. sodass man in eine Zelle das Datum einträgt und das Kalender wird automatisch monatsweise erstellt.
Samstage und Sonntage werden mit bedingter Formatierung grau hinterlegt.
Die KW steht immer an dem Montag der Woche.
Für Januar in der Spalte B10-AF10.

Nun soll folgendes passieren. Der Code soll prüfen wo in Zelle B10-AF10 ein Wert steht und falls er einen Wert findet soll er den Rahmen xlmedium auf die Linke seite erstellen. Dabei soll er die Linie auch in die unteren 6 Zellen erstellen also mit KW Zelle in insgesamt 7 Zellen sodass es eine dicke Linie gibt.

falls das Jahr im Datumsfeld geändert wird soll die dicke Linie in dünn umgewandelt werden und die neue dicke Linie erneut vor der KW erscheinen.
Die KW werden mit einer Formel in der Zelle ermittelt.

Gibt es dafür eine gute Lösung?

Vielen Dank im voraus.

:)

 

mache es mit bedingter und unterschiedlichen Farben.

 

Danke für die Antwort das Problem ist das es schwarz weiß ausgedruckt wird und daher nicht ersichtlich ist mit den unterschiedlichen Farben. Es sollte schon ein dicker Rahmen sein.

 

das geht nur über VBA, dafür habe ich keine Zeit. Was wohl auch daran liegt das ich keine Datei nachbaue und der Aufbau nicht klar ist.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag

 

hier ist die Datei.

Danke.

 

warum muss die Dicke Linie geändert werden die ist doch nur um den Monat.
Oder Soll jetzt einer auch um die Kalenderwoche?
Das ist der Vorteil, wenn die Datei das enthält was man haben will, es gibt keine Rückfragen.

Ändert man das Datum auf 01.11.15, warum hat der November bei Dir 31 Tage, Dezember nur 30?
Februar habe ich mir nicht angesehen.

 

Hallo,

ich habe mal eine Lösung ohne VBA hochgeladen, du musst ein paar Änderungen im Design in Kauf nehmen. Sonst habe ich ohne VBA keine Idee zur Umsetzung.

@Hajo: Ja, er will nun auch einen Rahmen um die Kalenderwoche haben.
Den beschriebenen Fehler von dir kann ich nicht nachvollziehen: Aus dem eingegebenen Datum wird nur das Jahr abgefragt. Es werden somit immer Okt-Dez angezeigt.

Viele Grüße
Santa

 

Hallo NoName,

es geht auch per Makro und auch mit deinen Formatierungen. Ergänze deine Makros im Modul1 um diesen Code:
Code:

und in den Code der Tabelle4 schreibst du dann diese Zeilen:
Code:

 

Hallo GMG-CC,

vielen Dank genau das habe ich gesucht.
Das Problem ist das er das Makro bei Änderung des Datums nicht durchführt.
Das Datum steht in der Zelle G38-I38 (Zellen verbunden)
Eigentlich sollte das Makro ja urchgeführt werden, sobald ein anderes Datum eingetragen wird.

danke

 

Hallo,

OK, kleiner Flüchtigkeitsfehler. Ändere die das Modul der Tabelle4 so ab:

Code:

dann haut es auch so wie vorgesehen hin.

 

Perfekt danke vielmals *Smilie