AW: Bitte ein VBA schauen danke,
26.11.2014 21:06:09
Werner
Hallo Andy,
schau dir das mal an. Der Code kopiert bei Doppelklick in Spalte A die angeklickte Zeile und fügt sie unter der angeklickten Zeile ein. Vorhandene Formeln und Formatierungen werden übernommen, Zellwerte geleert.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Target.Column = 1 and Target.Row > 7 Then
On Error GoTo Notausgang
With ActiveCell
.EntireRow.Copy
.EntireRow.Offset(1, 0).Insert shift:=xlDown
.EntireRow.Offset(1, 0).PasteSpecial
.EntireRow.Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
Cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Du mußt jetzt nur auf eines achten. Beim Einfügen von Zeilen erweitert sich deine Summenformel nicht.Trick: Füge vor deiner Summenzeile eine Leerzeile ein. Diese Leerzeile nimmt du in deine Summenformel mit auf. Diese Leerzeile dann ausblenden.
Versuch mal ob das was für dich ist.
Gruß Werner