ich habe folgendes Problem.
In meiner Tabelle werden jeden Tag der Bereich A:L gelöscht und neue Daten eingefügt, im Bereich M:O stehen Formeln. Diese sollen automatisch in die neuen Zeilen kopiert werden werden.
Ich habe schon zwei Lösungen aus dem Forum, aber irgendwie funktionieren diese nicht.
Kann mir jemand helfen?
Gruß
Peter
-------------------------------------------------
Dim LrowL As Integer, LrowM As Integer
'letzte gefüllte Zeile in Spalte L
LrowL = Cells(Rows.Count, 12).End(xlUp).Row
'letzte gefüllte Zeile in Spalte M
LrowM = Cells(Rows.Count, 13).End(xlUp).Row
'automatisch die Formeln der Spalten M bis O bis letzte Zeile der Spalte L ergänzen
'Range("M" & LrowM & ":O" & LrowM).AutoFill Destination:=Range("M" & LrowM & ":O" & LrowL)
-----------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
' Range(Cells(Target.Row - 1, 13), Cells(Target.Row - 1, 15)).Copy Cells(Target.Row, 13)
Application.EnableEvents = True
End If
End Sub
------------------------------------------------------------