Code zur Zelleinfärbung berichtigen
20.12.2013 13:18:34
Andreas
Ich habe in einem anderen Forum folgenden Code gefunden:
Mit diesem Code wird bei klick in eine Zelle die Zelle A der gleichen Zeile farbig markiert. Beim Druck und speichern wird die Einfärbung entfernt.
Nun habe ich aber das Problem, dass die Spalten D,E,F geschützt sind und der Code bei eingeschaltetem Blattschutz nicht funktioniert.
DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
t = True
Call Färben
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
t = True
Call Färben
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call Färben
End Sub
Modul:
Option Explicit
Public t As Boolean
Sub Färben()
Static rLastZeile As Range
Static iLastFarbe As Integer
If Not rLastZeile Is Nothing Then
rLastZeile.Interior.ColorIndex = iLastFarbe
Set rLastZeile = Nothing
End If
If TypeName(ActiveSheet) = "Worksheet" And t = False Then
Application.EnableEvents = False
Set rLastZeile = ThisWorkbook.ActiveSheet.Cells(ActiveCell.Row, "A")
iLastFarbe = rLastZeile.Interior.ColorIndex
rLastZeile.Interior.ColorIndex = 45
Application.EnableEvents = True
End If
t = False
End Sub
Kann mir Jemand helfen?
Danke fürs Lesen und die Hilfe!
mfg, Andreas