BeforeDoubleClick
12.08.2023 15:11:05
Dieter
Ich habe mal vor einiger Zeit hier den Code bekommen für den Befehl Zeile farblich markieren ab der Zeile (SpalteA) A3 bis L
Wenn ich aus der Spalte A gehe, geht die Markierung weg.
Jetzt hätte ich es aber gerne das der Code bei einer Worksheet_BeforeDoubleClick funktioniert.
Leider klappt das nicht indem ich einfach den Befehl Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) ändere.
Was muss geändert werden ?
Hier mal der Code
'Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Farblich unterlegen bei ab A3 geht
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) 'neu geht nicht
Static slngRow As Long
Dim objRange As Range
Set objRange = Intersect(Target, Range(Cells(3, 1), Cells(Rows.Count, 1)))
If Not objRange Is Nothing Then
Range(Cells(3, 1), Cells(Rows.Count, 12)).Interior.Pattern = xlPatternNone
With objRange.Cells(1, 1)
Range(Cells(.Row, 1), Cells(.Row, 12)).Interior.Color = vbCyan 'vbGreen
slngRow = .Row
End With
Set objRange = Nothing
Else
If slngRow > Target.Cells(1, 1).Row Or Target.Cells(1, 1).column > 12 Then _
Range(Cells(3, 1), Cells(Rows.Count, 12)).Interior.Pattern = xlPatternNone
End If
End Sub
Danke im Voraus der Hilfe
MfG.
Dieter