Felder sollen bei Änderung Farbig werden

Hallo,
in der Tabelle:
https://www.herber.de/bbs/user/24738.xls
werden in den Spalten D und E Werte eingetragen.
Nun ist der Werdegang so, daß bsw. in Zeile 10 und 11 in Spalte D der Wert eingetragen wird.
Nun wird am nächsten/übernächsten Tag die Spalte E (vernichtet) eingetragen und die Tabelle nun gespeichert.
Nun kommt es aber vor, daß alte Werte in Spalte D und E nach dem speichern nochmal geändert werden.
Kann man da eine bedingte Formatierung setzen und diese Zellen dann bsw. gelb einfärben?
Momentan wird es von Hand gelb gefärbt.
Leider wird es oft vergessen.
Bei einer umfangreichen Liste, sehe ich so nicht sofort, was sich zu letzten geändert hat.
Diese Liste wird jeden Tag an verschiedene Abteilungen verschickt und ausgedruckt.
Mit der farbigen Markierung sehe ich halt sofort, was sich zur letzten Version geändert hat.
Wäre schön, wenn mir jemand sagen kann, wie ich das mache.
Danke :-)
Gruss Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e5:e19")) Is Nothing Then If vernichtet = True Then Application.EnableEvents = False Target.Interior.ColorIndex = 6 Application.EnableEvents = True End If End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("e5:e19")) Is Nothing Then If Target.Rows.Count > 1 Then MsgBox "Bitte 1 Zelle Markieren" Exit Sub End If If Target = "" Then vernichtet = False Else vernichtet = True End If End Sub

Hi Eule,
ich habe den o.g. Code nun mit dem Bereich


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ersetzt.
Nun sieht alles kompl. so aus:
Option Explicit
Dim vernichtet As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e5:e19")) Is Nothing Then
If vernichtet = True Then
Application.EnableEvents = False
Target.Interior.ColorIndex = 6
Application.EnableEvents = True
End If
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("e5:e19")) Is Nothing Then
If Target.Rows.Count > 1 Then
MsgBox "Bitte 1 Zelle Markieren"
Exit Sub
End If
If Target = "" Then vernichtet = False Else vernichtet = True
End If
End Sub


Funktioniert aber trotzdem nicht mit dem markieren.

Die Meldung kommt weiterhin.

Gruss Frank

Beliebteste Forumthreads (12 Monate)

Felder sollen bei Änderung Farbig werden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread