Farbige Zeile ausschalten
10.04.2014 15:15:36
Golem
folgendes Makro verwende ich, um in einen vorgegeben Bereich mit dem Mauszeiger eine Zeile
farbig zu markieren.
Option Explicit
Private Zeile1 As Range, Zeile2 As Range
Sub Worksheet_Change(ByVal target As Range)
Dim Zelle As Range
Set target = Intersect(target, Range("C9:T4300"))
If Application.CommandBars("Cell").Controls("Markierung").FaceId = 342 Then Exit Sub
If target Is Nothing Then Exit Sub
If Selection.Rows.Count > 1 Then Exit Sub
On Error Resume Next
If Not (Zeile2 Is Nothing) Then
For Each Zelle In Zeile2
If Zelle.Interior.ColorIndex = 4 Then
Zelle.Interior.ColorIndex = xlNone
End If
Next Zelle
End If
On Error GoTo 0
Set Zeile1 = Range(Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 20))
For Each Zelle In Zeile1
If Zelle.Interior.ColorIndex = xlNone Then
Zelle.Interior.ColorIndex = 4
End If
Next Zelle
Set Zeile2 = Zeile1
End Sub
Im Kontextmenü kann das farbige Markieren an- bzw. ausgeschaltet werden.
Nach dem Ausschalten der Zeilenmarkierung, dem Wechseln in einen Zeilenbereich außerhalb der Range, dem Speichern
und Beenden der Datei, bleibt die letzte Zeilenmarkierung aber erhalten.
Ist es möglich, mit dem Ausführen der v.g. Aktionen die letzte Zeilenmarkierung auszuschalten?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Schöne Grüße
Werner
Anzeige