Zellen einfärben wenn Wert in Zelle geändert wird

Question

Hy,
bei Eingabe eines Wertes > 0 in Zelle G10 sollen bestimmte andere Zellen umgefärbt werden und auch Rahmen um diese anderen Zellen gezogen werden.

Die Farbgestaltung habe ich schon ein einen Code gefasst.
Mir fehlt jedoch die Startfunktion für die Zellwertänderung...
habt ihr hier bitte Infos?

lg
stefan

Answer 1

Hallo Stefan,

muss es unbedingt ein Makro sein?

Das geht doch auch mit der Bedingten Formatierung.

Gruß
Rainer

Answer 2

Hallo Stefan,

wenn du das per Makro lösen willst, kannst das Worksheet-Change-Ereignis des Tabellenblatts verwenden:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("G10")) Is Nothing Then Exit Sub
If Range("G10").Value <= 0 Then Exit Sub

'Hier kommt dein Code

End Sub

Gruß

M.O.

Answer 3

@M.O.
danke dein Code funzt super! die Zellen werden entsprechend eingefärbt und umrahmt.
danke soweit...

jetzt scheitere ich noch am Weg zurück, d.h. wenn in Zelle G10 eine "0" bzw. nichts steht dann sollen die Rahmen und Farben wieder entfernt werden, kann man das in den selben Code einbauen?

grüße
stefan

Answer 4

Hallo Stefan,

dann ändere den Code wie folgt:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("G10")) Is Nothing Then Exit Sub
If Range("G10").Value > 0 Then
'Hier kommt dein Code wenn größer Null
Else
'Hier kommt dein Code, wenn kleiner gleich Null
End If

End Sub

Gruß

M.O.