Hallo,

bei einem Makro, dass vorher ohne Probleme funktionierte erscheint nun die Meldung: Laufzeitfehler `1004` Die Methode Range für das Objekt _Worksheet ist fehlgeschlagen. Hat jemand eine Ahnung warum das plötzlich so ist?
hier das Makro:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("E15:AZ20 , A43:AZ48, A52:AZ57 , A79:AZ84")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Target = 1 + Target
If Target > 2 Then Target = 0
End If
Set RaBereich = Nothing
Cancel = True
End Sub

vielen Dank

Richard