ich benötige eine kleine Anpassung des Codes.
Durch den Doppelklick soll immer die Zeile 10.000 als Grundlage für die neue Zeile unten angehängt werden und nicht die darüber liegende. Grund dafür wenn die User die Formatierung der bereits eingefügten Zeilen durch copy-past ändern, wird nicht mehr die richtige Formatierung in die neue Zeile kopiert.
Des Weiteren dürfen auch nur Zeilen unterhalb der Zeile 10.000 eingefügt werden. Oberhalb dieser Zeile darf nichts passieren.
Gruß Tom
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Target.Column = 1 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
.Offset(1, 0) = Date
.Offset(1, 0).Select
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