Dynamische Übernahme von Farbe u. Text aus einem zweiten Tabellenblatt möglich?

Hallo,

folgende Aufgabenstellung möchte ich gerne lösen. Ich wäre Euch sehr dankbar, wenn Ihr mir dabei helfen könntet:

Aufgabenstellung:

Es existieren 2 Tabellenblätter in einer Exceldatei:

1. Tabellenblatt: Hier soll zu 10 verschiedenen Themen (Zeilen) ein „Status“ (in Form einer grünen, gelben oder roten Zellenfüllung inkl. einer kurzen Beschreibung) wiedergegeben werden. Dieser Status ist aus der Tabelle 2 zu „holen“.

2. Tabellenblatt: In dieser Tabelle werden zu den 10 Themen (Zeilen) der Status (in Form einer grünen, gelben oder roten Zellenfüllung inkl. einer kurzen Beschreibung) in jeder Woche neu aufgenommen. Dabei wird in der ersten Woche der Status in der Spalte „A“ eingetragen, in der zweiten Woche in der Spalte „B“, usw.

Frage:

Existiert in Excel eine Möglichkeit für jedes der 10 verschiedenen Themen (Zeilen) in Aufgabenblatt 1
- automatisch den Status aus der aktuellste Woche (Spalte) des 2. Tabellenblatts zu identifizieren (es ist immer die Spalte die am weitestens „rechts“ liegt und ausgefüllt ist)
- und dann den aktuellen Inhalt (Farben + kurzer Beschreibung) auf das 1. Aufgabenblatt zu projizieren?

Ich hoffe Ihr habt mein Problem verstanden. Andernfalls bitte nochmal nachfragen.

Vielen Dank.

P.S.: Ich benutztze Microsoft Excel 2003.

Sub Formatieren()
With Sheets("Tabelle2")  
    Spalte = .Range("A1").End(xlToRight).Column  
    .Cells(1, Spalte).Resize(10, 1).Copy
End With
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteFormats  
Application.CutCopyMode = False
End Sub

Sub Kopieren()
With Sheets("Tabelle2")  
    Spalte = .Range("A1").End(xlToRight).Column  
    .Cells(1, Spalte).Resize(10, 1).Copy Destination:=Sheets("Tabelle1").Range("A1")  
End With
End Sub