Hallo liebe Forumsmitglieder,
ich steh wieder mal mit meinem Latein an. ich hatte bis jetzt folgendes Makro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Cells(Target.Row + 1, Target.Column).Select
End Sub
Nachteil dieses Makros ist, dass ich es in jeder Tabelle im VBAProject einfügen muss. Ich habe nun schon mehrmals versucht es als Modul oder Klassenmodul umzuschreiben nur dann funktioniert gar nichts mehr.
Irgendwie sind meine VBA Kenntnisse doch zu dürftig. :-(
Also einmal das Makro, aber es muss schon in jedem Tabellenblatt der Arbeitsmappe funktionieren.
Gibt es hier eine einfache Lösung? Wäre über jede Hilfe dankbar.
DANKE Euch. |