Zeilen und Spalten hervorheben
23.10.2019 10:32:52
thomas
ich habe ein Makro eingefügt. Funktioniert auch.
Leider kann ich nun keine Zellen mehr kopieren oder ausschneiden. Zurück gehen mit Z geht auch nicht mehr.
Gibt´s dafür eine einfache Lösung?
Hier das Makro:
Private MeineZeile As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim markierteZeilen As Long
markierteZeilen = Selection.Rows.Count
If markierteZeilen = 1 Then
If Not MeineZeile Is Nothing Then MeineZeile.Font.Bold = False
Target.EntireRow.Font.Bold = True
Set MeineZeile = Target.EntireRow
End If
End Sub