In einem Modul:
Option Explicit
Public OldColorIndex As Variant
Public OldRange As String
In diese Arbeitsmappe:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If OldRange <> "" Then Range(OldRange).Interior.ColorIndex = OldColorIndex
End Sub
Private Sub Workbook_Open()
If ActiveSheet.Name = "Tabelle1" Then
OldRange = ActiveCell.Address
OldColorIndex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 3
End If
End Sub
In die Tabellen:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColorIndex = Target.Interior.ColorIndex
' Setze Hintergrundfarbe der aktiven Selection auf Rot
Target.Interior.ColorIndex = 7
Else
' Setze alten Range auf alte Farbe
If Range(OldRange).Interior.ColorIndex = 7 Then
Range(OldRange).Interior.ColorIndex = OldColorIndex
End If
OldColorIndex = Target.Interior.ColorIndex
' Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
' Setze Hintergrundfarbe der aktiven Selection auf Rot
Target.Interior.ColorIndex = 7
End If
End Sub
Wie muss das makro umgestellt werden, wenn die farbe der aktiven zelle NICHT mitgedruckt werden soll?
Habt ihr ne Lösung für mich?
Danke!