Office: [Excel2k] Change-Event feuern

Huhu,

ich habe schon wieder ein blödes Problem.

Folgende Situation: Ich habe eine Tabelle (nennen wir sie Tabelle1), in welcher in einer Spalte bestimmte Werte eingegeben werden können. Abhängig von diesen Werten wird die Zelle in der nächsten Spalte (derselben Zeile) mit einer zugewiesenen Hintergrundfarbe sowie einem 1-Letter-Code belegt.
(Das funktioniert auch alles einwandfrei)

Diesen 1-Letter-Code hole ich mir nun noch zur Anzeige in eine andere Tabelle (auch das funktioniert einwandfrei). Nun möchte ich, dass der Farbcode, den ich in Tabelle1 verwende, auch in Tabelle2 zur Anwendung kommt. Und hier ist mein Problem. Der 1-Letter-Code wird bei jeder Änderung in Tabelle1 einwandfrei in Tabelle 2 nachgezogen. Allerdings wird bei diesem "Nachziehen" kein Change-Event gefeuert, so dass meine in der Methode Tabelle2.Worksheet_Change(...) lokalisierte Färbemethode nicht greift. Gibt es einen einfachen Weg, in Tabelle2 gezielt ein Change-Event zu feuern oder wir würde man meinen Wunsch mglw. besser lösen können?

Schon mal vielen Dank im voraus...

 

Hallo!

Wenn du deine Codes 1:1 in die neue Tabelle rüberkopierst, dann sollte es dort auch genauso funktionieren wie in der alten.
Allerdings verstehe ich überhaupt nicht, was du mit "feuern" eines Change-Events meinst...

 

Ich hab zwar von feuern und Worksheet_Change keine Ahnung, aber für mich hört sich das einfach nach einer bedingten Formatierung an (Format > Bedingte Formatierung...).

Gruß

 

Hmm, ich versuche es noch einmal zu erklären:

Ich habe zwei Tabellen T1 und T2
In T1 habe ich die Spalten S1="Text" und S2="Code"
Dort habe ich folgenden (Pseudo)Code:

Code:

Wenn S1="Hallo" Dann S2.Text="H" und S2.Farbe=rot
Wenn S1="Tach" Dann S2.Text="T" und S2.Farbe=grün
Wenn S1="Moin" Dann S2.Text="M" und S2.Farbe=blau
Wenn S1="Servus" Dann S2.Text="S" und S2.Farbe=gelb

In T2 habe ich in Spalte S3 die (Pseudo)Formel =T1!S2x
Das bisher Genannte funktioniert auch einwandfrei, es werden also in T2 in der Spalte S3 die Codes aus T1!S2x angezeigt, jedoch ohne Hintergrundfarbe.

Nun habe ich in T2 innerhalb der Methode "Private Sub Worksheet_Change(ByVal Target As Range)" folgenden (Pseudo)-Code

Code:

WENN aktuelle Zelle in S3 DANN
   WENN aktuelle Zelle.Text = "H" DANN aktuelle Zelle = rot
   WENN aktuelle Zelle.Text = "H" DANN aktuelle Zelle = grün
   WENN aktuelle Zelle.Text = "H" DANN aktuelle Zelle = blau
   WENN aktuelle Zelle.Text = "H" DANN aktuelle Zelle = gelb

Nun habe ich aber festgestellt, dass eine Änderung in S1 in T1 entsprechend die Code- und Farbänderung in S2 bewirkt. Auch wird der neue Code in T2 in S3 angezeigt. Allerdings - und das ist mein Problem - versursacht eine Änderung in T1 kein Change-Event in T2, so dass die genannte Methode "Private Sub Worksheet_Change(...)" von T2 nicht aufgerufen word und damit auch meine Methode zum Setzen der Hintergrundfarbe nicht.

Meine Frage ist eigentlich folgende:
Wie kriege ich das hin, dass eine Änderung in T1 die Hintergrundfarbe einer korrespondierenden Zelle in T2 bewirkt, wenn ich mehr als 3 Farben habe und deshalb die bedingte Formatierung nicht möglich ist?

 

Hallo!

Das ganze müsste aber funktionieren, wenn du statt eines Change-Events ein Calculate-Event in Tabelle2 benutzt und hier die in Frage kommenden Zellen per Schleife abfragst:

For Each Zelle In Bereich...

 

Denke Dir bitte die nächsten 10 Seiten die ASCII-Blumen, das entspräche ungefähr den Steinen, die Du mir gerade aus dem Weg geräumt hast!

Funktioniert nun genau so, wie ich es haben wollte!

Vielen vielen Dank!!!