VBA code kombinieren & Änderungen farbig markieren
23.01.2015 15:01:54
Werner
Wie kombiniere ich diese Codes? Zellen code farbig und Änderungen nachverfolgen von Piet siehe _
unten?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errExit
'Für den Bereich A1 bis D20. Ansonsten kann dieser in der Folgezeile angepasst werden.
If Intersect(Target, ActiveSheet.Range("A1:BF385")) Is Nothing Then Exit Sub 'Bitte den Bereich _
_
_
_
_
anpassen
Select Case Target.Value
Case "S": Target.Interior.ColorIndex = 23 '>> UND DAS VON PIET ÄNDERUNGEN MARKIEREN UND NACHVERFOLGEN? Option Explicit
'Code in das entsprechende Tabellenblatt!
Public AlterWert As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
AlterWert = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target AlterWert Then Target.Interior.ColorIndex = 3
End Sub
GRÜSSE WERNER