Zeitspanne in Jahreskalender farbig markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thomas
Verwende diese Befehlszeile
Cells(z, r).Interior.ColorIndex = 6 (die Hintergrundfarbe ändert sich in Gelb)
in allen Code-Bereichen, in denen das "U" für Urlaub eingetragen wird.
Z Bsp bei:


For r = sp To sp2                                           ' sonst Schleifenstart für Tabelleneintrag
Cells(3, r).Select                                      ' Zellen selektieren
If Format(Cells(3, r), "ddd") = "Sa" _
Or Cells(2000, r) = 2 _
Or Format(Cells(3, r), "ddd") = "So" Then GoTo sprung ' wenn Sonnabend oder Sonntag kein Eintrag
Cells(z, r) = "U"                                       ' Eintrag für Urlaub
Cells(z, r).Interior.ColorIndex = 6 'hier ist die Hintergrundfarbe
ut = ut + 1
TextBox3 = "Es werden " & ut & " Urlaubstage" & Chr(13) & "benötigt"
sprung:                                                         ' Sprungziel (wenn kein Eintrag)
Next r                                                      ' Schleifenzähler

Natürlich musst du die Variable für die Spalte - hier r - richtig anpassen
Und deinen "Alles-Löschen-Button" erweiterst du so:


Range("B5", "FZ" & z).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone 'mit dieser Zeile wird auch die Hintergrundfarbe wieder gelöscht

Ich kopiere hier nur den Code-Teil in meine Antwort, die direkt vor "meinen" Zeilen erscheint oder direkt folgen, damit du dich orientieren kannst, wo denn "meine" Zeilen eingefügt werden müssen.
Konnte ich helfen?
Ciao
Thorsten

Hi Thomas
Ich glaube, ich bin so weit fertig (umfangreiche Tests deinerseits ergeben vielleicht ein anderes Ergebnis :-) )
Hier erst mal die Dateien:
https://www.herber.de/bbs/user/39099.xls die Datei, in denen du die Urlaubsdaten EINTRÄGST (bei mir war der Dateiname = Urlaubseintrag.xls)

Die Datei https://www.herber.de/bbs/user/39100.xls wurde aus Datenschutzgründen gelöscht

die Datei, in der die Urlaubsdaten grafisch dargestellt werden (bei mir war der Dateiname = Urlaubsjahresplan.xls)
Voraussetzung(en):
In der ersten Datei beachte im VBA-Code die Kommentare und ändere den Code entsprechend
(in 6 Code-Zeilen ist der Dateiname der Datei mit den grafischen Einträgen eingetragen - du musst den richtigen Dateinamen eintragen (siehe oben), da die Dateien ja jetzt anders heißen)
Mit dem Design der zweiten Datei kannst du immer nur den Urlaub für EIN Jahr eintragen.
Sobald sich das Jahr ändert, werden alle Urlaubseinträge gelöscht.
Somit ist es mit dem Design der 2. Datei auch nicht möglich, jahresübergreifenden Urlaub - z Bsp 27.12.2006 - 03.01.2007 - einzutragen.
Konnte ich helfen?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Zeitspanne in Jahreskalender farbig markieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitspanne in Jahreskalender farbig markieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread