ich möchte dass die Zeile in der sich der Cursor befindet farblich markiert wird. Schön und gut. Kein Thema. Allerdings soll die Zeile nach dem Verlassen wieder ihre ursprüngliche Farbe bekommen.
Gruß Alwin
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static n&: n = n + 1
If n = 1 Then
Union(Rows(Target.Row), Columns(Target.Column)).Select
Target.Activate
ElseIf n = 2 Then
n = 0
End If
End Sub
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer