VBA-Code
09.04.2021 17:45:46
Ulrich
seit dem Wechsel auf Office 365 funktioniert in meinen Excel-Tabellen folgender Code nicht mehr (Einfärben der Zellen bei Bearbeitung der Zelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a:xfd")) Is Nothing) Then
Target.Interior.ColorIndex = 4
End If
End Sub
Hat jemand eine Idee?
Gruß
Uli
