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