Hallo Gast43669,
habe deinen vorgeschlagenen Code mal „eingeführt“. Folgendes passiert, wenn ich nun in ALLE Zeilen irgendeinen Wert eingebe:
Fehler beim kompilieren…Syntaxfehler
If WorksheetFunction.CountIf(Target.EntireRow.Columns("G:AI"), "x") > 1 Then
Vielleicht ist es aber einfacher zu erklären...so: wir arbeiten NICHT im Schichtdienst, dennoch hat der Dienstplanersteller auch eine gewisse Fürsorgepflicht zu erfüllen. Nehmen wir den Juli 2017 als Beispiel. Der Mitarbeiter, der in der Zeile K10 (also am 05.07.) mit Nachnamen eingetragen ist, sollte NICHT - wegen ArbZG - den Dienst übernehmen, der am Folgetag in Zeile W11 definiert ist. Sollte mir also während des Erstellens des Dienstplans dahingehend der Faux-Pas unterlaufen, möchte ich mittels einer MsgBox darauf hingewiesen werden.
Es betrifft also nur die Spalten/Zeilen K6:K36 und W6:W36 die davon betroffen sind. Iregndwas mit "Intersect" wäre auch mein Ansatz gewesen, aber ansatzlos...
Hm...echt kompliziert, gelle?
Trotzdem danke ich dir für deine Hilfe. Und ich knacke die Kopfnuss vielleicht noch. Oder auch nicht!
Grüße
Frank
|