Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen bei änderung einfärben

Zellen bei änderung einfärben
question2
Hallo,
ich habe folgendes Problem.
Mit folgendendem kleinen 3-Zeiler färbe ich geänderte Zellen ein. Die Schriftfarbe wird rot dargestellt:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub

Soweit so gut. Ich bräuche nun aber eine Funktion, dass die mit der eingefärbten Zelle verknüfte Zelle ebenfalls eingefärbt wird.
Beispiel:
Die Zelle A2 in Tabelle2 verweis auf die Zelle A1 in Tabelle1. In Zelle A2 in Tabelle2 steht bspw. =Tabelle1!A1*2.
Gibte es eine Möglichkeit, dass Zelle A2 in Tabelle2 bei Änderung der Zelle A1 in Tabelle1 auch eingefärbt wird?
Vielen Dank für euere Tipps
Armin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen bei änderung einfärben
02.10.2009 19:09:58
Daniel
Hi
wenn sich die Zellen innerhalb des gleichen Tabellenblattes befinden, könnteset du die .DEPENDENTS-Funktion verwenden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Target.Font.ColorIndex = 3
For Each Zelle In Target.Dependents
Zelle.Font.ColorIndex = 3
Next
End Sub
allerdings weiß ich nicht, wie man das auf Zellen in anderen Tabellenblättern erweitert, daher lass ich die Frage mal offen.
ps. das Makro ist nur ein Beispiel und enthält keine Absicherungen für die Sonderfälle: "Target hat mehr als eine Zelle" und "Target hat keine Nachfolger"
Gruß, Daniel
Anzeige
AW: Zellen bei änderung einfärben
04.10.2009 12:54:14
franc
so, hab dir mal ne Mappe angehangen (ist aber nur was einfaches)
probiers mal aus
Wenn du von Tab2 auf Tab1 verweist und dann nochmal von Tab3 auf Tab2 so wird das nicht mit markiert
wenn du was in Tab1 änderst wird nur der Wert in Tab2 markiert aber NICHT der Verweis von Tab3 auf Tab2
funktioniert:
=Tabelle1!A1
=Tabelle1!A1 * xy
= A1 & Tabellexy!A1
= 2 * Tabellexy!A1
Teilweise (nur der erste Verweis wird genommen)
= Tabelle1!A1 & Tabelle1!A2
https://www.herber.de/bbs/user/64866.xls
Anzeige
hast es mal probiert?
05.10.2009 23:49:27
franc
.

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige