bedingte Formatierung von einer Mappe in eine andere übertragen

19/07/2008 - 19:18 von heike werner | Report spam
Hallo NG,

ich arbeite mit Excel 2002 und habe eine Mappe "Personal" mit Tabelle 1 und
folgendem Aufbau:
Spalte A-Z = Mitarbeitername
Zelle A2-A366 Kalenderdaten eines Jahres

In dieser Tabelle werden verschiedene Anwesenheitszustànde pro Mitarbeiter
gespeichert. Die 3 wichtigsten werden mit bedingter Formatierung in drei
verschiedenen Farben dargestellt. Die color.indices sind 3,4 und 8.

In einer weiteren Mappe "Einsatz" mit exakt gleichem Aufbau in Tabelle1
werden andere Eintragungen gemacht, die nicht überschrieben werden dürfen.

Problem: Aus Mappe "Personal" soll nun für jede Zelle im Bereich a2:z366
ausgelesen werden, ob eine Füllung vorliegt und wenn ja , diese dann in die
exakt
gleiche Zelle der anderen Mappe "Einsatz" übertragen werden.
Also ist in Mappe Personal Zelle b45=grün dann soll Zelle b45 in Mappe
Einsatz auch grün gefàrbt werden.

Mit Format übertragen (Pinsel) geht es nicht. Wahrscheinlich muss es vba
werden.

Hier mein erster vba-versuch mit kleinem Bereich und nur mit Farbe grün

Sub format()

Dim Zelle As Range
Dim Bereich As Range
Dim Zelle_farbe As Range
Dim Bereich_farbe As Range


Set Bereich = Personal.Tabelle1.Range("a2:E20")
Sheets("Tabelle1").Activate
Set Bereich_farbe = Einsatz.Tabelle1.Range("a2:E20")

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = 4 Then
Zelle_farbe.Interior.ColorIndex = 4 = True

End If

Next Zelle

End Sub

ich bin für jeden Rat oder Hilfestellung dankbar.
Viel Grüße von heike
 

Lesen sie die antworten

#1 Claus Busch
19/07/2008 - 20:48 | Warnen spam
Hallo Heike,

du kannst *nicht* die Einfàrbung der bedingten Formatierung mit
Interior.ColorIndex abfragen. Du bekommst immer keine Füllung angezeigt.
Du müsstest in deiner Tabelle die Bedingungen abfragen, die zu der
Einfàrbung führen und dann je nach Bedingung dieser Zelle die
entsprechende Zelle in der anderen Mappe einfàrben.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen