Geänderte Zellen farbig makieren

• Geänderte Zellen farbig makieren von Lutz vom 14.11.2003 09:35:51
  • AW: Geänderte Zellen farbig makieren - von Galenzo am 14.11.2003 10:14:06
    • AW: Geänderte Zellen farbig makieren - von Lutz am 14.11.2003 12:00:35
      • AW: Geänderte Zellen farbig makieren - von Galenzo am 14.11.2003 12:45:50
        • AW: Geänderte Zellen farbig makieren - von Lutz am 14.11.2003 13:37:46
          • Danke für Rückmeldg. (oT) - von Galenzo am 14.11.2003 13:46:39

Betrifft: Geänderte Zellen farbig makieren
von: Lutz
Geschrieben am: 14.11.2003 09:35:51
Hallo Excelcracks,

ich darf mich seit kurzer Zeit mit Excel beschäftigen und sitze hier vor einem Problem, bei dem Ihr mir hoffentlich unter die Arme greifen könnt!?

Ich habe eine Tabellensheet, in dem die Mitarbeiterplanung über den Monat hinweg stattfindet.
In den Zelle O8 bis AS 68 findet die Tagesplanung statt, indem man über eine Gültigkeitsliste Tätigkeitskürzel auswählen kann. Den Zellen ist generell eine Farbe zugewiesen und über die bedingte Formatierung ist das Wochenende in Grau dargestellt.
Für mich besteht nun das Problem, dass
1. bei jeder Änderungen die geänderten Zellen automatisch in einer anderen Farbe (z.B. weiss) dargestellt werden sollen, um die Übersichtlichkeit zu erhöhen.
2. dass eine bedingt formatierte Zelle so einfach nicht entfärbt werden kann, oder?
3. diese markierten Zellen beim nächsten Aufruf der Datei beim Start wieder automatisch zurüchgesetzt werden sollen.
Hat einer ne Idee?
Vielen Dank schon mal im Voraus für´s Nussknacken
Lutz

Betrifft: AW: Geänderte Zellen farbig makieren
von: Galenzo
Geschrieben am: 14.11.2003 10:14:06
Hallo Lutz,

der 1. Teil deiner Aufgabe ist relativ einfach:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("o8:AS66")) Is Nothing) Then
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
End Sub

Also sobald eine Zelle im angegebenen Bereich geändert wird, wird die hintergrundfarbe dieser Zelle geändert - hier auf "Keine Hintergrundfarbe" [xlColorIndexNone], da kannst du dann aber auch andere Werte (z.B. 33) - also als Zahl - eintragen.

Damit:

Private Sub Workbook_Open()
    Sheets("Tabelle1").Range("o8:AS66").Interior.ColorIndex = 22
End Sub

wird beim Öffnen der Datei der benannte Bereich der "Tabelle1" wieder eingefärbt.

Bei den bedingt formatierten Zellen wird's schwieriger...

mfg

Betrifft: AW: Geänderte Zellen farbig makieren
von: Lutz
Geschrieben am: 14.11.2003 12:00:35
Hai Galenzo,

genial! Danke für die Hilfe, weil so soll es genau sein! Uffffff.........

Falls Jemand eine Idee zu den bedingt formatierten Zellen hat, lasst es mich wissen, denn dann wäre die Sache absolut rund!

Merci vielmals
Lutz

Betrifft: AW: Geänderte Zellen farbig makieren
von: Galenzo
Geschrieben am: 14.11.2003 12:45:50
Hallo Lutz - nochmal,

das hat mir dann doch keine Ruhe gelassen. Mein Vorschlag:

Private Sub Workbook_Open()
Dim rng As Range
Application.ScreenUpdating = False
    Sheets("Tabelle1").Range("o8:AS66").Interior.ColorIndex = 22
    For Each rng In Sheets("Tabelle1").Range("o8:AS66")
        If rng.FormatConditions.Count > 0 Then
              rng.FormatConditions(1).Interior.ColorIndex = 17
        End If
    Next
Application.ScreenUpdating = False
End Sub

-und:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("o8:AS66")) Is Nothing) Then
    Target.Interior.ColorIndex = xlColorIndexNone
    If Target.FormatConditions.Count > 0 Then
        Target.FormatConditions(1).Interior.ColorIndex = xlColorIndexNone
    End If
End If
End Sub

Ich hoffe, das ist es jetzt...
Der Einfachheit halber wird nur die 1. bedingte Formatierung verändert. Wenn du mehrere Bedingungen hast, müßte an diesen Stellen noch mit einer kleinen for..next-Schleife alle Bedingungen durchlaufen werden.

mfg

Betrifft: AW: Geänderte Zellen farbig makieren
von: Lutz
Geschrieben am: 14.11.2003 13:37:46
Yap!

Perfekt! Meine Hochachtung, und gibt mir wenigstens das Gefühl, dass es nicht ganz so einfach war, wenn ich schon einen Profi zu "basteln" motivieren konnte.

Nochmals Tausend Dank
Lutz

Betrifft: Danke für Rückmeldg. (oT)
von: Galenzo
Geschrieben am: 14.11.2003 13:46:39

Excel-Beispiele zum Thema " Geänderte Zellen farbig makieren"
Makros in Abhängigkeit vom Zellennamen aufrufen	Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren	Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren	Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen	Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren	Zeilen oberhalb der markierten Zellen einfügen