Spalte nach vorgegeben Farben suchen

Hallo zusammen
Ich hab ein Problem, ich bin arbeite gerade an einer Zeiteinteilung der Mitarbeiter für eine Schreinerei. Jeder Mitarbeiter hat eine bestimmte Farbe . Jeder Tag ist eine Spalte und in den diversen Zeilen werden dann die Mitarbeiter mit ihrer Farbe eingetragen. Ich möchte im ersten Zelle der Spalte quasi ein Kontrollfeld machen, das anzeigt ob alle Mitarbeiter eingeteilt sind oder nicht, quasi Grün = alle eingeteilt, und Rot es fehlt jemand(es ist egal was für ein Mitarbeiter fehlt , es ist nur wichtig Rot oder Grün). Soweit bin ich auch schon gekommen mit einer Hilfsspalte + Name definieren mit der Formel =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";)).
Mein Problem ist , manche Mitarbeiter können zwei mal oder dreimal vorkommen spricht die Farbe z.b. Grün für einen Mitarbeiter ist zweimal vergeben. Mehreingaben(Mehreinteilungen einer Farbe sollen nicht mitgezählt werden).
Geht das mit Excel noch oder ist da Schluss....
Danke im Voraus
Gruas miche
https://www.herber.de/bbs/user/110818.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FarbPrüfung() Dim rngAlle As Range, rngCheck As Range Dim Zelle1 As Range, Zelle2 As Range Dim bVorhanden As Boolean Set rngAlle = Range("A1:E4,A5:C8") 'Bereich anpassen Set rngCheck = Range("I10:I27") 'Bereich anpassen For Each Zelle1 In rngAlle bVorhanden = False For Each Zelle2 In rngCheck If Zelle1.Interior.Color = Zelle2.Interior.Color Then bVorhanden = True Exit For End If Next Zelle2 If bVorhanden Then Range("I1").Interior.Color = 5287936 Else Range("I1").Interior.Color = 255 Exit For End If Next Zelle1 End Sub

Sub FarbPrüfung() Dim rngAlle As Range, rngCheck As Range Dim Zelle1 As Range, Zelle2 As Range Dim bVorhanden As Boolean, lSpalte As Long Dim strResultat As String Set rngAlle = Range("A1:E8") lSpalte = Application.Match(CLng(Date), Rows(7), 0) Set rngCheck = Range(Cells(8, lSpalte), Cells(Cells(Rows.Count, 1).End(xlUp).Row, lSpalte)) For Each Zelle1 In rngAlle If Zelle1 "" Then bVorhanden = False For Each Zelle2 In rngCheck If Zelle1.Interior.Color = Zelle2.Interior.Color And _ Zelle1.Font.Color = Zelle2.Font.Color Then bVorhanden = True Exit For End If Next Zelle2 If Not bVorhanden Then strResultat = strResultat & Chr(10) & Zelle1 End If End If Next Zelle1 If strResultat = "" Then MsgBox "Alles OK" Else MsgBox "Prüfung am " & Format(Date, "dd.mm.yyyy") & _ ": Folgende Personen wurden nicht zugewiesen:" & strResultat End If End Sub

Sub FarbPrüfung() Dim rngAlle As Range, rngCheck As Range Dim Zelle1 As Range, Zelle2 As Range Dim bVorhanden As Boolean, lSpalte As Long Dim strResultat As String Set rngAlle = Range("A1:E8") lSpalte = ActiveCell.Column Set rngCheck = Range(Cells(8, lSpalte), Cells(Cells(Rows.Count, 1).End(xlUp).Row, lSpalte)) For Each Zelle1 In rngAlle If Zelle1 "" Then bVorhanden = False For Each Zelle2 In rngCheck If Zelle1.Interior.Color = Zelle2.Interior.Color And _ Zelle1.Font.Color = Zelle2.Font.Color Then bVorhanden = True Exit For End If Next Zelle2 If Not bVorhanden Then strResultat = strResultat & Chr(10) & Zelle1 End If End If Next Zelle1 If strResultat = "" Then MsgBox "Alles OK" Else MsgBox "Prüfung von Spalte " & lSpalte & _ ": Folgende Personen wurden nicht zugewiesen:" & strResultat End If End Sub

Hallo Michael,
ich habe mir auch mal eine Lösung einfallen lassen und mir Gedanken gemacht, wie man die Farben in die Wochentagsspalten hineinbringen kann. In meinem Beispiel geht das ganz einfach mit einem Rechtsklick auf den Namen des Mitarbeiters (ganz links). Es soll auch mal vorkommen, dass ein Mitarbeiter (oder gar mehrere) krank oder in Urlaub ist. Dies kann man neben dem Namen vermerken und diese werden dann bei der Vollständigkeitskontrolle nicht mitgezählt. Dementsprechend kann man sie auch nicht in die Tagesspalte einstellen. Außerdem kann zwischen dem Auftrag 1 und dem Auftrag 2 (links oben) gewählt werden. Der nächste Tag kann erst dann geplant werden, wenn der aktuelle Tag mit allen verfügbaren Mitarbeitern geplant wurde. Dasselbe gilt, wenn eine neue Woche geplant werden soll. Wird eine neue Woche initialisiert, dann wird die bisher bearbeitete Woche als neue Tabelle, versehen mit der alten Kalenderwoche, einfach "angehängt". Das alles automatisch.
Wenn neben einer Vorausplanung auch der Ist-Zustand erfasst werden soll: einfach zwei Dateien führen.
Hier mal als Beispiel die Woche 4
https://www.herber.de/bbs/user/110850.xlsm
...und hier der Übergang in die 5. Woche
https://www.herber.de/bbs/user/110851.xlsm
In diesem Beispiel müssten die fehlenden Personen nachgesetzt werden, um entweder in den nächsten Wochentag oder die nächste Woche zu initialisieren.
Bitte mal probieren; FeedBack wäre nett.
Mit freundlichem Gruß
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

Spalte nach vorgegeben Farben suchen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte nach vorgegeben Farben suchen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread