Prüfung von Zellen innerhalb einer Zeile

Guten Tag Forum,
eine bestimmte (Prüf-)Zelle soll Rot formatiert werden, wenn innerhalb des geprüften Zellverbundes eine Änderung stattgefunden hat. Nach Sichtung der Änderung durch einen Dritten soll mit Betätigung einer Schaltfläche die (Prüf-)Zelle wieder grün gefärbt werden und die Schriftfarbe der aktuellen Änderung im Zellverbund schwarz formatiert werden und mir somit zeigen dass die Änderung(en) übernommen worden ist/sind.
Die Prüfung der Zellen soll dann "Resetet" werden, und wieder neu beginnen. Dabei sollen wieder alle Zellen ständig auf Änderungen Überprüft werden.
Ich habe eine Datei angehängt, die das ganze hoffentlich besser veranschaulicht.
Noch ein Punkt:
Bitte verweist mich nicht auf die Datenüberprüfung für die gesamte Datei, da ich wirklich gezielt für jede Zeile eine eigene Überprüfung benötige.
In der finalen Version reden wir von 65-70 Zeilen mit 9 Zellen die ständig überprüft werden müssen und somit auch jede Zeile seinen eigenen Resetknopf benötigt.
Ich weiß auch nicht ob das funzt aber wenn würde es mir enorm viel Arbeit abnehmen.
Vielen dank im voraus!
https://www.herber.de/bbs/user/96105.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke neopa für die schnelle Antwort allerdings beantwortet das nicht meine Frage.
Das zb Datum soll ja automatisch in die Prüfzelle eingetragen werden. Hab nun einen Code gefunden der es schon ganz gut trifft allerdings fehlen mir da noch ein paar zusätze.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowUp As Integer, rowDown As Integer, colValue As Integer, colDate As Integer, rngValue As  _
Range
'Nummer der obersten zu überwachende Zeile
rowUp = 11
'Nummer der untersten zu überwachende Zeile >>> grosszügig, darf vorläufig tausende von  _
Leerzeilen enthalten
rowDown = 20
'Spaltennummern als A=1, B=2, C=3 usw
'Spaltennummer der zu überwachenden Werte > hier A
colValue = 5
'Spaltennummer mit dem Aenderungsdatum > hier B
colDate = 3
Set rngValue = Range(Cells(rowUp, colValue), Cells(rowDown, colValue))
If Not Intersect(Target, rngValue) Is Nothing Then Cells(Target.Row, colDate) = Now
End Sub

___________________________
ich muss noch herausfinden wie ich die standartschriftfabre zu ändern kann.

Beliebteste Forumthreads (12 Monate)

Prüfung von Zellen innerhalb einer Zeile

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfung von Zellen innerhalb einer Zeile

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

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread