Ich bräuchte Bitte ein Markro,das wenn ich zum Beispiel auf A555 einen Doppelklick mache,das mir dann die ganzen Zeilen von 2,3 & 4 kopiert.
So wie "Kopierte Zellen einfügen"
Könnte mir dabei Bitte jemand helfen ?
Danke & Gruß Heinz
Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Rows("2:4").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=10
Selection.Insert Shift:=xlDown
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim lstrAdr As String
lstrAdr = ActiveCell.Address
Application.CutCopyMode = False
Rows("2:4").Copy
Range(lstrAdr).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=10
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column = 1 Then
Dim lstrAdr As String
lstrAdr = ActiveCell.Address
Application.CutCopyMode = False
Rows("2:4").Copy 'wenn 1 - 4, dann musst du die 2 in 1 ändern
Range(lstrAdr).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=10
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen