Supportnet / Forum / Tabellenkalkulation

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

Hallo Richard,

bei mir läuft der Code ohne Probleme.

Probier doch mal den Code in verkürzter Form.

Option Explicit

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

Gruß
Rainer

Hallo Rainer,

jetzt gehts wieder, Danke Dir!

• Laufzeitfehler
• Laufzeitfehler
• Laufzeitfehler
• Laufzeitfehler 1004 bei Methode 'UpdateLink'
• Laufzeitfehler 91