[Excel2k] Change-Event feuern :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel2k] Change-Event feuern

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 15

Verfasst am: 16.04.2008, 12:20

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...

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 16.04.2008, 13:05

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...

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Andei
Moderator

Anmeldedatum: 21.04.2006
Beiträge: 1019

Verfasst am: 16.04.2008, 13:07

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ß

_________________
Andei

Windows XP Pro SP 2
Office 2003 Pro SP 2

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 15

Verfasst am: 16.04.2008, 13:25

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?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5014

Verfasst am: 16.04.2008, 13:41

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...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 15

Verfasst am: 16.04.2008, 13:51

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!!!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	[Excel2k] Ampelschaltung mit einer Ei...	magic59	Microsoft Excel Hilfe	3	03.04.2008, 10:31
	Change Ereignis wird nicht ausgeführt	supersauger1	Microsoft Excel Hilfe	0	09.06.2006, 08:40

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de