Makro erweitern
11.02.2022 20:14:28
mike49
ich habe ein Fadenkreuz-Makro, das auch prima funktioniert.
Das Einzige was mir nicht gefällt ist die Farbe. Die Zellen sind grau eingefärbt.
Kann man vielleicht mit Interior.Color = RGB (....) das Makro erweitern, um die Farbe der Markierung zu ändern?
Das Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("B6:AF42")
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Bereich, Target) Is Nothing Then
With Target
Application.EnableEvents = False
Union(Intersect(Rows(.Row), Bereich), Intersect(Columns(.Column), Bereich)).Select
.Activate
Application.EnableEvents = True
End With
End If
End Sub
mike49
Anzeige