aktive farbige Zeile entfärben vor Druck
27.05.2022 22:06:51
Andreas
Wird zwar etwas langsam, bei sehr langen Blättern- aber es geht.
Allerdings müsste dies beim Drucken des Blattes deaktiviert werden- also die nun gerade aktive Zeile, die über diese Makro gefärbt ist, soll dann wieder farblos sein. Annsonsten wird dies mit farbiger Zeile gedruckt, was nicht gewollt ist.
Vor dem Druck das gesamte Blatt "enfärben soll jedoch nicht angewendet werden, da zumidest in Spalte "L" rot gefärbte Zellen vorkommen, die auch so gedruckt werden sollen.
Was könnte ich tun?
'Farbe hellgelb in markierter Zeile
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
If Target.Count > 1 Then Exit Sub
Set bereich = Range("A:L")
If Not Intersect(Target, bereich) Is Nothing Then
bereich.Font.ColorIndex = 0
bereich.Interior.ColorIndex = xlNone
bereich.Font.Bold = False
Cells(Target.Row, 1).Resize(1, 12).Interior.ColorIndex = 19
Cells(Target.Row, 1).Resize(1, 1).Interior.ColorIndex = 27
Cells(Target.Row, 1).Resize(1, 12).Font.Bold = True
Target.Interior.ColorIndex = xlNone
End If
End Sub
Anzeige