Abwesenheitsplaner für Feiertage "X"

[schauan]

Hallöchen,

Eingabeformular, Datenhaltung und Anzeige
wo finde ich das alles?

dort, wo Du das anlegst. Kommt nicht von alleine Schützt aber auch nicht unbedingt vor Fehleingaben.

Das x-Zeichen soll ihnen helfen an den Feiertagen für die Mitarbeiter nicht versehentlich eine Abwesenheit einzutragen.

Etwas, was die bedingte Formatierung anzeigt, verhindert keine Eingabe.

Wenn Du das x in der Auswahl hast, dann kannst Du es eintragen, bevor Du die Liste raus gibst.
Du kannst auch
- einen Farbverlauf - von der Mitte aus - nehmen, das sieht aus wie ein verschwommenes x
- gleiche Schriftfarbe wie die Zellfarbe nehmen, dann sieht man den Eintrag nicht
- bei Eintrag an Feiertagen in der bed. Formatierung zusätzlich andere Farben nehmen, z.B. rote Schrift auf gelben Hintergrund
- Feiertage usw. aus der Anwesenheitsliste ganz raus nehmen
- ...
- ein Makro schreiben - setzt aber voraus, dass die Kollegen die Ausführung erlauben bzw. auch generell Makros erlaubt sind ...

Gibt es eigentlich den Fall, dass die Kollegen dort absichtlich was rein schreiben müssen?

[Tommiks]

@schauan,

die Schichtführer wollen in die Zellen der Feiertage nichts schreiben. Deshalb kam die Bitte von Ihnen, dass diese Spalten mit einem X-Zeichen versehen sein sollen. Die farbliche Trennung der Feiertage reicht ihnen nicht aus. Denn das verhindert das Überschreiben nicht...
Deshalb wäre ich über eine Makro-Lösung froh... Danke...

[schauan]

Hallöchen,

im Prinzip so was :

Code:

Sub Mein_X()
Dim iCnt%
'Schleife von Spalte V (22) bis zum Jahresende (387 bei Schaltjahr)
For iCnt = 22 To 387
  'Wenn das Datum oben in der Feiertagsliste ist, dann (sicherheitshalber ein paar Zeilen mehr)
  If WorksheetFunction.CountIf(Sheets("Werkzeug").Range("C1:C15"), Cells(1, iCnt)) Then
    'von Zeile 7 bis 401 x eintragen
    Range(Cells(7, iCnt), Cells(401, iCnt)).Value = "x"
  'Ende Wenn das Datum oben in der Feiertagsliste ist, dann (sicherheitshalber ein paar Zeilen mehr)
  End If
'Ende Schleife von Spalte V (22) bis zum Jahresende (387 bei Schaltjahr)
Next
End Sub

[HKindler]

Hi,

wird mit den Eintragungen der Schichtführer noch irgendetwas gemacht, also irgendwelche Auswertungen erzeugt, oder dienen diese "nur" zur Ansicht/Info?

Falls keine weitere Auswertungen erfolgen: verwendet die bedingte Formatierung, die zur farblichen Kennzeichnung dient und ändere damit nicht die Hintergrundfarbe, sondern auch das Zellformat und zwar auf ";;;" (ohne die "-Zeichen). Damit sond die Zellen dann optisch leer, auch wenn irgendwas drin steht.

Falls Auswertungen erfolgen, dann muss man diese entsprechend anpassen.

Ansonsten könnte man noch die Zellen händisch oder mit einem Makro sperren.

Oder du passt deine Auswahlliste abhängig von Feiertag oder nicht an.

[Tommiks]

@schauan,

bombastisch...Hat sofort reagiert...

Danke...