Danke
ein bischen mehr als nur die Frage wäre den Teilnehmer des Forums gegenüber netter (Hallo, Gruß, mfg etc.:-))
Baue deine Bedingungen mittels einer Select..Case-Anweisung in das Worksheet-Change-Ereignis ein. Von dort kannst du dann die gewünschten Subs aufrufen.
Gruß
Bertram
Leider habe ich die Antwort aber überhaupt nicht verstanden.
Mein Problem ist
1. die Abfrage der Füllfarbe einer Zelle und
2. welche Farbe in Excel wie in VB zu beschreiben ist und
3. wie erreiche ich, dass Werte in anderen Zellen erst nach der Änderung der farbigen Zellen geändert werden und nicht schon bei der Auswahl der farbigen Zelle.
Ich dachte in etwa ginge das so:
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Font.ColorIndex = RGB(255, 255, 0) Then
''' 1. Möchte aber eben nicht Font sondern Hintergrund und
''' 2. finde keinen Zusammenhang zwischen Excel und RGB Farben
TT = Sheets("Tabelle1").Cells(21, "W").Value
''' 3. Einlesen eines Wertes leider schon vor der Änderung
''' in farbiger Zelle
Sheets("Tabelle2").Cells(29, "T").Value = TT
Sheets("Tabelle2").Cells(37, "x").Value = 0
''' 3. Schreiben von Werten leider schon vor der Änderung
''' in farbiger Zelle
End If
End
Danke für weitere Hilfe und Gruß, Max