Opret betinget formatéring med makro

Følgende kode i Arkets kodemodul ændrer baggrundsfarve til grøn
hvis der ændres i en celle i området A1:AV1000

Farverne kunne evt. resettes med en knap

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:AV1000")) Is Nothing Then
  Exit Sub
Else
Target.Interior.ColorIndex = 4
End If
End Sub

excelent > den er lidt for følsom ... efter min mening, den skal kun reagere hvis der reelt sker ændring i feltet, eksempelvis ikke hvis brugeren kun har aktiveret cellen for at se decimaler ... er der en ande metode ?

Følgende 2 makroer forudsætter du har et ark med navn Rapport
samt et ark med navn Kopi.

Kopier() kopierer indholdet af Rapport-arket til Kopi-arket
Marker() farver celler i Rapport-arket som er ændret

Kopi-arket kan evt. skjules

Sub kopier()
Sheets("Kopi").Activate
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Delete
Sheets("Rapport").Activate
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Interior.ColorIndex = xlNone
Selection.Copy Destination:=Sheets("Kopi").Range("A1")
Range("A1").Select
End Sub


Sub Marker()
Dim r, c, r1, c1
Sheets("Rapport").Activate
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
r = Selection.Rows.Count: c = Selection.Columns.Count: Range("A1").Select
For r1 = 1 To r
For c1 = 1 To c
If Sheets("Rapport").Cells(r1, c1) <> Sheets("Kopi").Cells(r1, c1) Then
Sheets("Rapport").Cells(r1, c1).Interior.ColorIndex = 15
End If
Next
Next
End Sub

Evt. alternativ:

Dim preV
Private Sub Worksheet_Change(ByVal Target As Range)
    If preV <> Target.Value Then
        Target.Interior.ColorIndex = 4
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    preV = ActiveCell.Value
End Sub

Tilmed et godt alternativ, godt gået supertekst

Hej jensen363 ... skulle dette ikke afsluttes?

Sorry ... er lige startet efter ferien, så jeg har ikke testet nogle af metoderne endnu ... hvad er der afgørende forskel mellem de to forslag ?

OK - tilgivet - prøv dem begge - det sidstfremsendte er noget mere kompakt...

Supertekst > Dit forslag virker fornuftigt, men koden fejler når jeg vha. en anden makro beriger arket med nye data.

Du skal så de automatiske makroer fra når du opdatere data, så burde subertekst`s kode virke.
det gør du sådan

Application.EnableEvents = False
' Din koder når du henter nye data
Application.EnableEvents = True

Hvis det skulle ske at din kode skulle gå i fejl engang, så den ikke udfører den sidste linie, så lav en makro der kan genstarte de automatiske makroer



Public Sub StartAutomatiskeMakroer()
  Application.EnableEvents = True
End Sub

Kabbak > takker for det sidste input ...

I har alle tre givet brugbare input, og fortjener alle point ... læg venligst svar, så fordeler jeg

OK & tak...

et svar ;-))

ok :-)