folgende Aufgabe:
Ich habe eine Tabelle mit mehreren Spalten, A-H.
Nun soll per Doppelklick auf eine Zelle eine Zeile direkt darunter eingefügt werden und der Inhalt(Text) der darüberliegenden Zelle A und H kopiert und eingefügt werden, die restlichen Zeilen sollen leer bleiben. Um diese Zellen aber unterscheiden zu können soll sowohl im Text bei Zelle A und H ein (2), bzw. wenn öfter kopiert ein (3),(4) usw. eingefügt werden.
Vielleicht weiß jemand eine Lösung, würde mich sehr freuen.
Gruß Martin
mein bisheriger code lautet so:
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