Zeilen in neue Tabelle verschieben
14.12.2018 10:52:15
Roger
Bin am Verweifeln und sehen den Wald von lauter Bäume nicht mehr.
Ich habe in einem Excel mehrere Tabellen. Wenn in der aktuellen eine Bedingung erfüllt ist, soll die Zeile bei der die Bedingung erfüllt ist, in die nächste verschoben werden.
Nun habe ich in dem folgenden Script ein Problem.
1. Die Zeile überschreibt in der anderen Tabelle (Zieltabelle) die bereits bestehenden Daten, anstelle dass die Daten in eine neue Zeile kopiert werden.
Was habe ich übersehen? Kann mir da jemand einen Tipp geben?
Sub BedingteKopieZeilen19a()
ActiveSheet.Unprotect Password:=""
Tabelle10.Unprotect Password:=""
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
Dim n As Integer
With Tabelle9
ZeileMax = .UsedRange.Rows.Count
n = 5
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 49).Value = "_2018" Then
.Rows(Zeile).Copy Destination:=Tabelle10.Rows(n)
n = n + 2
End If
Next Zeile
End With
ActiveSheet.Protect Password:=""
Tabelle10.Protect Password:=""
End Sub