Ich möchte vorschlagen, "Workbook Sheet SelectionChange Event" anstelle von "Workbook_SheetActivate" zu verwenden. Da Sie unbedingt eine Zelle auswählen müssen, um die Zeile hervorzuheben.
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False Cells.Interior.ColorIndex = 0 With Target .EntireRow.Interior.ColorIndex = 19 End With Application.ScreenUpdating = True End Sub
So funktioniert es: Wählen Sie eine Zelle aus. Die Zeile wird hervorgehoben. Wechseln Sie zu einem anderen Blatt, und wenn Sie zum Blatt zurückkehren, wird immer noch die Zeile hervorgehoben.
Um die Füllfarbe aus der Zeile zu entfernen, können Sie diesen Code verwenden.
ActiveCell.Interior.ColorIndex = xlNone