Worksheet_DoubleClick rational in Exceldatei unterbringen

[Algor]

Hallo Experten,

in jedem meiner Exceltabellenblätter bzw. Mappen habe ich folgenden Code eingebaut:

(Beispielhaft i. Wirklichkeit besteht der Code aus wesentlich mehr Codezeilen):
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$A$1" Then
ActiveSheet.Range("B1:C1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cancel = True 
End If

End Sub

Das Problem, da auf jedem Tabellenblatt eigentlich das Gleiche passiert, möchte ich mir alle überflüssigen Codezeilen sparen
sowie beim Anlegen neuer Tabellenblätter will ich sofort die programmierte Funktionalität besitzen ohne diesen Code extra neu
einzufügen.

Daher meine Frage: Wo schreibe ich meinen Code hin, damit er genau das Gleiche macht wie vorher und zweitens wie lautet dann
die Syntax also:


Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   wird  zu ....?

[Bamberg]

Servus Algor,

um Dein Vorhaben umzusetzen, findest Du ein passendes Ereignis im Workbook ("DieseArbeitsmappe")

Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Sh.Range("B1:C1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cancel = True
End If
End Sub

LG Gerd

[Algor]

Also bei mir tut sich mit deinem Code da nichts. Außerdem weiß ich wie es genau umsetzen soll.
Bitte erkläre es doch mal ganz genau.

[RPP63]

Doppelklick auf DieseArbeitsmappe im Projektexplorer.
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Gerds Code ins rechte Fenster kopieren.

Gruß Ralf

[Algor]

Danke für den Code und danke für das kleine Bildchen. Ich hätte mich wohl totgesucht! Alles funktioniert super, Problem gelöst. Bis zum nächsten Mal!