bedingte Formatierung von einer Mappe in die andere übertragen

19/07/2008 - 19:11 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" sollen nun die drei verschiedenen
Füllbereiche pro Zelle im Bereich a2:z366 ausgelesen und 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.

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, heike
 

Lesen sie die antworten

#1 Ottmar Freudenberger
19/07/2008 - 20:08 | Warnen spam
"heike werner" schrieb:

ich arbeite mit Excel 2002



Die Jungs und Màdels, die sich damit auskennen und Dir bei
evtl. Problemen/Fragestellungen weiterhelfen können, findest
Du in der Excel-Newsgroup mit dem Namen
microsoft.public.de.excel

Bye,
Freudi
Macht euer Windows sicherer: http://windowsupdate.microsoft.com - jetzt!
http://www.microsoft.com/germany/sicherheit/
Infos zu aktuellen Patches für IE, OE und WinXP: http://patch-info.de

Ähnliche fragen