ich habe vor mir einen Bauzeitenplan zu erstellen und habe Probleme mit der Bedingten Formatierung der Zeiträume.
Ich habe hier im Forum schon eine Vorlage gefunden und wollte diese nun für meine Zwecke erweitern bzw. verändern.
Funktion sollte sein, das man eine Firma über Drop Down auswählt und dann die hinterlegte Farbe für den Zeitraum, Firma und Gewerk Verwendung findet.
Sa und So sollten diese farbliche Markierung niocht bekommen.
eine bedingte Formatierung bei der Anzahl an Zellen halte ich für utopisch, sodass ich mich für eine Lösung mittels VBA entschieden habe:
Code:
Private Sub Worksheet_change(ByVal Target As Range)
Dim Var As Variant
Dim Farbe As Long, Rot As Long, Gruen As Long, Blau As Long
If Intersect(Target, Range("C16:C165")) Is Nothing Then Exit Sub 'Targetbereich bei Bedarf anpassen
Var = Application.Match(Target.Value, Worksheets("Tabelle1").Columns(1), 0)
Farbe = Worksheets("Tabelle1").Cells(Var, 1).Interior.Color
On Error Resume Next
Rot = Farbe Mod 256
Farbe = (Farbe - Rot) / 256
Gruen = Farbe Mod 256
Farbe = (Farbe - Gruen) / 256
Blau = Farbe Mod 256
On Error GoTo 0
Target.Interior.Color = RGB(Rot, Gruen, Blau)
Target.Offset(0, -1).Interior.Color = RGB(Rot, Gruen, Blau)
Target.Offset(0, 1).Interior.Color = RGB(Rot, Gruen, Blau)
Target.Offset(0, 2).Interior.Color = RGB(Rot, Gruen, Blau)
Target.Offset(0, 3).Interior.Color = RGB(Rot, Gruen, Blau)
End Sub
Anbei die funktionierende Umsetzung.
Viele Grüße
Micha
_____________________________________________________________________________
Auch meine Zeit ist mir wertvoll. Somit freue ich mich über deine Rückmeldung.
Tagsüber: Win Server 2008 RT | MS Word/Excel/Powerpoint 2010 | Lotus Notes
Abends: Win 10/7 | MS Word/Excel/Powerpoint/Access/Outlook 2007 / 2010 / 2016
Folgende(r) 1 Nutzer sagt Danke an User17330 für diesen Beitrag:1 Nutzer sagt Danke an User17330 für diesen Beitrag 28 • martinhunter
um mir Doppelkarbeit zu ersparen erst einmal zwei Fragen:
a) Wie willst du Feiertage berücksichtigen? (Wird auch für die Berechnung des Endes eine Themas mit der Funktion Arbeitstage benötigt.)
b) Bleibt es bei einer einfachen Einfärbung der geplanten Tage pro Firma oder hast du noch Ideen in jeder Zeile mehrere Farben (zb abhängig vom Projektfortschritt oder Gegenwart/Zukunft oder Unterscheidung Ist/Plan oder ....) einzufügen?
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
a) Feiertage
Die Liste im Arbeitsblatt "Parameter" muss noch gepflegt werden.
b) Farbgebung
Die Farben für die Arbeitstage werden nur für die aktuelle Zeile, in der in den Spalten C-E eine Änderung manuell angepasst wurde, durchgeführt.
Falls ein Beginn oder die Arbeitstage eines Themas durch eine Funktion bestimmt wird und dieser Wert sich ändert wird es nicht durch das Ereignis Worksheet Change bemerkt.
Falls zB. der Beginn eines Themas vom Beginn oder Ende eines anderen Themas abhängt, müste man immer alle Farben aktualisieren.
c) Berechnungen
Ich habe die Felder Ende; Fortschritt und Projektstatus berechnet.
Beim Feld Fortschritt bin ich mir nicht sicher ob es so gemeint war.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:1 Nutzer sagt Danke an Ego für diesen Beitrag 28 • martinhunter