Zeilen löschen u. in erste leere Zeile schreiben
18.08.2017 10:13:50
FelixZ
bei folgendem Problem könnte ich die kompetente Hilfe des Forums gebrauchen :)
Ich habe ein Makro welches abgleicht ob bestimmte Zellinhalte bereits in einem Sheet vorhanden sind und falls ja, dann die entsprechenden Zeilen löscht.
Anschließend werden Werte kopiert und sollen ab der ersten leeren Zeile eingefügt werden.
Mein Makro löscht zwar die entsprechenden Zeilen, fügt aber die neuen Werte nicht ab der ersten leeren Zeile ein, sondern nach der Zeile wo die gelöschten Werte ursprünglich waren. So zu sagen ignoriert mein RowCount die neuen leeren Zeilen.
Anbei mein Makroversuch und eine Testdatei.
Die Datei hat eigentlich mehr Funktionen, aber mir geht es wirklich nur um dieses triviale aber nervige Problem.
Schon mal vielen Dank im Voraus für die Unterstützung!
Viele Grüße
Felix
https://www.herber.de/bbs/user/115553.xlsm
Private leereZeile As Integer, i As Integer
Sub Projekt_öffnen_1()
leereZeile = Sheets("DataPool").Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.DisplayAlerts = False
Range("E2") = Date
For i = 200 To 2 Step -1
If Cells(2, 1).Value = Sheets("DataPool").Cells(i, 1).Value Then
Sheets("DataPool").Select
Range(Cells(i, 1), Cells(i, 17)).Clear
Range(Cells(i, 1), Cells(i, 17)).Delete shift:=xlUp
'Auch wenn ich die Zeilen so lösche, wird der neue Inhalt nicht in die erste leere Zeile _
_
kopiert
'Cells(i, 1).EntireRow.Delete
End If
Next i
Sheets("DP_Sources").Select
Range("A20:Q32").Select
Selection.Copy
Sheets("DataPool").Cells(leereZeile, 1).PasteSpecial xlValues
Application.DisplayAlerts = True
End
Sub