Einträge bei bestimmter Bedingung löschen

Guten Morgen zusammen,
folgendes Problem beschäftigt mich heute morgen. Ich habe einen Kalender aufgebaut um die Abwesenheiten einzutragen. Dieser Kalender hat spaltenweise die Jahrestage abgebtragen und zeilenweise die entsprechenden Personen. Eine bedingte Formatierung sorgt dafür, dass Samstage und Sonntage farblich über den ganzen Kalender hinweg gekennzeichnet sind. Gibt ein Mitarbeiter nun in eine Zelle ein "u" für Urlaub ein, dann wird diese Zelle farbig markiert, teilweise auch schraffiert. Nun bräuchte ich ein Makro, welches prüft ob der Tag der Eingabe ein Samstag oder Sonn- bzw. Feiertag ist und dann die Eintragung ohne Kommentar löscht, so dass wieder nur die farbliche Markierung der Samstage, Sonntage und Feiertage angezeigt wird. Mit einer ZählenWenn-Funktion werden die Urlaubstage übers Jahr am Ende erfasst, daher wäre es ausser der farblichen Markierung hilfreich, wenn Samstage, Sonn- und Feiertage keine zu zählenden Einträge enthalten.
Hoffentlich habe ich mich einigermaßen verständlich ausgedrückt und jemand kann mir freundlicherweise seine Hilfe angedeihen lassen ;o)
Viele Grüße
Carmen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Wochenenden_loeschen() Dim iIndx As Integer For iIndx = 1 To Range("A65536").End(xlUp).Row ' von 1 bis Ende If Weekday(Range("A" & iIndx).Value) = 1 Or _ Weekday(Range("A" & iIndx).Value) = 7 Then ' Sonnabend/Sonntag ? Range("C" & iIndx).Value = "" ' auf leer löschen 'Range("C" & iIndx).Value = 0 ' auf Null löschen End If Next iIndx ' nächster Eintrag End Sub

Hi Carmen,
in F3 steht =A1 und dort steht im Moment drinnen "01.01.2004". In G3 steht dann F3+1, in H3 folglich G3+1 usw.
Das hört sich korrekt an.
Muss es in der Formel eigentlich nicht F$4 kleiner 5 heissen, wenn ich die Samstag auch ausgeschlossen haben will?
Nein - die Funktion WOCHENTAG hat einen 2. Parameter, den ich auf '2' gesetzt habe. Somit ist Montag die 1, Sonntag folglich die 7 - und ein Wochentag kleiner 6 somit Montag bis Freitag.
Es fällt mir etwas schwer, den Fehler nachzuvollziehen, daher erklär ich die Formel einfach ganz kurz, so dass du möglicherweise selbst drauf kommst:
=UND(WOCHENTAG(F$3;2)<6;ZÄHLENWENN(Feiertage;F$3)=0)
2 Bedingungen müssen erfüllt sein:
1.) Der Wochentag aus dem Datum in F3 muss <6 sein (das hatten wir schon)
2.) Das Datum aus F3 darf NICHT im benamten Bereich 'Feiertage' vorkommen.
Als letztes fällt mir ein:
In der Gültigkeit muss im Register 'Fehlermeldung' der Haken bei 'Fehlermeldung anzeigen' aktiviert sein.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

Einträge bei bestimmter Bedingung löschen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einträge bei bestimmter Bedingung löschen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread