So, hier der Prozess:
Öffne ein neues Workbook (neue leere Excel-Datei) und entferne alle Tabellenblätter mit Ausnahme von Tabelle1. Speichere die Datei dann über Speichern unter als Excel-Addon (*.xla) Gib der Datei dabei einen aussagekräftigen Namen z.B. "Doppelklickereignis.xla". Aktiviere sogleich dieses Addin über den Add-In Manager Ggf. musst du zuvor über Durchsuchen das eben gespeicherte Add-In erst der Liste hinzufügen. Öffne nun den VBA-Editor (z.B. über Alt+F11) und suche das VBA Projekt mit deinem Addin Namen. Dort fügst du zunächst ein neues Klassenmodul (z.B. Klasse1) ein und benenne dieses sogleich um. z.B. in "EvtModule", Diesese EvtModule erhält nun folgenden Code:
Public WithEvents app As Application
Private Sub app_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Sh.Rows(Target.Row).Copy
Sh.Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Sh.Cells(Target.Row + 1, Target.Column).Select
End Sub
Anschließend klickst du im gleichen Projekt auf "DieseArbeitsmappe" und gibst diesen Code ein.
Dim xapp As New EvtModule
Private Sub Workbook_Open()
Set xapp.app = Application
End Sub
Drücke nun auf Speichern und schließe Excel. Nach dem erneuten öffnen reagiert das Event auf jeden Doppelklick in jeder Tabelle von jeder Excel-Datei. Wenn du das nicht willst kannst du den Code weiter einschränken. z.B. auf Dateien die einen bestimmten Text im Dateinamen enthalten.
Gruß Mr. K.
|