Aktive Zelle einfärben und zurück stellen.
09.03.2018 16:35:17
Eisi
jetzt brauche ich bitte noch mal Eure Hilfe.
Mit nachfolgendem Code markiere ich temporär die Zeile und kann in die aktive Zelle was reinschreiben.
Die aktive Zelle soll aber zwecks Übersicht auch noch gelb eingefärbt werden und wenn ich die Zelle wieder verlasse, soll die alte Farbe wieder eingestellt werden.
Mit den zusammen gewürfelten Codes kann ich die Zelle gelb einfärben, aber leider nur dauerhaft und das soll ja nicht so sein.
Herzlichen dank für das Feedback.
LG Eisi :-)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim lastcell As Range
Dim farbe As Integer
If UserForm1_PVL.ToggleButton1.Caption = "Zeile ein" Then
Application.EnableEvents = False
Target.EntireRow.Select
Target.Activate
Application.EnableEvents = True
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End If
End Sub