Farben setzen...
17.03.2004 17:48:35
12:00-23:00
Folgendes Problem:
Ich versuche ein Macro zu erstellen das mir ermöglicht inerhalb des Range Bereiches die Zellen zu füllen. Folgende Faktoren spielen dort eine Rolle:
In diesem Dienstplan sind 10, 9.5, 9, 8.5 bis hin zu 3 Stunden Schichten möglich und das für ganze 150 Mitarbeiter. Die Zellen sollen farblich unterlegt werden für Früh und Spät schichten.
Hier ein Beispiel
-----A------ ------B------ -----C -----
7:15 - 16:15 13:00 - 17:00 8:45 - 12:15 usw.
Zur Zeit habe ich das mit folgendem Source Code Programmiert:
Sub Farben()
For Each cell In Range ("A1:P150)
If cell.Value = "7:15 - 16:15" then
cell.Interior.ColorIndex = 8
End If
If cell.Value = "13:00 - 17:00" then
cell.Interior.ColorIndex = 12
End If
If cell.Value = "8:45 - 12:15" then
cell.Interior.ColorIndex = 8
End If
... u.s.w.
If IsNumeric(cell) = False And Len(cell) = 1 Then
cell.Font.ColorIndex = 1
End If
Next
End Sub
--- Code Ende ---
Und jetzt stellt euch das bei 150 Mitarbeiter vor und die immer andere Schichten haben. Das würden so um die 2000 Zeilen nur an Source Code bedeuten, das ausmass bei einer änderung der Schichtzeiten oder weitere Mitarbeiter machen das fast unmöglich.
Jetzt frage ich euch wie kann ich das kürzen. VBA Oberfläche Existiert bereits (Funktionsunfähig). Dazu hätte ich dann auch noch eine Frage. Wie kann ich einer ComboBox (AddIntem) Farbfelder zuweisen statt eines Textes.
Ich wäre euch echt Dankebar wenn ihr mir ein Code zusammen stellt. Natürlich nicht jetzt für 150 Mitarbeiter und Zeiten der möglichst das Macro kleon hält mit den selben Effekt.
MfG
Pinkowski