Fadenkreuz setzen/entfernen
10.12.2017 22:09:50
Gerhard
mit diesem Code (von Nepumuk) markiere ich mit bedingter Formatierung
=ZEILE()=ZE meine ausgewählte Zeile per TAB oder Return. Das funktioniert gut.
Was mir fehlt: wenn ich in eine andere Zelle/Zeile klicke, dann soll die vorherige Zeile wieder entfärbt werden. Also, die bed. Format. soll entfernt werden.
Ist es für jmd. möglich, dies im Code zu ergänzen?
Gruß
Gerhard
https://www.herber.de/bbs/user/118245.xlsm
Option Explicit
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" ( _
ByVal vKey As Long) As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetAsyncKeyState(vbKeyReturn) 0 Or GetAsyncKeyState(vbKeyTab) 0 Then
ActiveWorkbook.Names.Add Name:="ZE", RefersToR1C1:=Target.Row
End If
End Sub