AW: Zeile und Formeln aus Spalte B bis X einfügen,
27.12.2016 12:11:01
Matthias
Hallo Zusammen,
ich bedanke mich für Eure Bemühungen und Anregungen.
Ich konnte mir aus Euren Antworten ein auf mich zugeschnittenes Makro basteln.
So funktioniert es erst einmal. Vielleicht gibt es noch bessere und einfachere Ausführungen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Rows(Target.Row).Insert
Cancel = True
Dim myCell As Range
Dim mLC As Integer '=> myLastCell
mLC = 24
Range(Cells(ActiveCell.Row - 1, 2), _
Cells(ActiveCell.Row - 1, mLC)).Copy
Range(Cells(ActiveCell.Row, 2), _
Cells(ActiveCell.Row, mLC)).PasteSpecial _
Paste:=xlPasteFormulasAndNumberFormats
For Each myCell In Range(Cells(ActiveCell.Row, 1), _
Cells(ActiveCell.Row, mLC).End(xlToLeft))
If Not myCell.HasFormula Then
myCell.ClearContents
End If
Next myCell
Cells(ActiveCell.Row - 1, 1).Copy
Cells(ActiveCell.Row, 1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Cells(ActiveCell.Row, 8).Select
Application.CutCopyMode = False
End Sub