Zellen automatisch füllen

Hallo,
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

------------------------------------------------------------

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lz# lz = Cells.SpecialCells(xlCellTypeLastCell).Row If Target.Column = 1 Then Application.EnableEvents = False Range("M1:O1").Copy Range("M2:O" & lz).PasteSpecial xlPasteFormulas Application.CutCopyMode = False Application.EnableEvents = True End If End Sub

Hallo Peter,
die Verwirrung ist beinahe komplett und ich bin auf jede Menge Vermutungen angewiesen. Du schreibst, M - O sollen nur ausgefüllt werden, wenn in A etwas steht. Aber in Deinem Bsp. steht doch überall was in A?
Was ich jetzt vermute ist, Du möchtest mittels eines bereits vorhandenen Makros die letzten 9 Zeilen ohne die Spalten M - O in eine andere Tabelle kopieren. Dann ändere doch die Bereichsangabe in diesem Makro. Ich vermute weiterhin, daß das Hinzufügen der neuen Datensätze ebenfalls über ein bereits vorhandenes Makro realisiert wird. Kombiniere doch alles miteinander.
Zuerst das Makro zum Anfügen der neuen Zeilen aufrufen (warum löschst Du eigentlich die alten Werte alle? Die ändern sich doch nicht, Du willst doch nur 9 neue hinzufügen, oder?), dann das, das die letzten 9 Zeilen in eine andere Tabelle kopiert und zum Schluß das zur Formelaktualisierung.
Das kann ich Dir leider nicht anpassen, da ich weder Deine Makros, noch Tabellennamen etc. pp. kenne. Falls Du betriebsinterne Daten nicht hier abladen willst/kannst/darfst, kannst Du mich auch anrufen oder mailen. Die Daten findest Du in der Profilliste unter Ralf Anton.
Ciao, Ralf

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread