|
Hallo zusammen
Mit diesem Code habe ich das automatische Übertragen von gewissen Daten in ein anderes Sheet hinbekommen.
Ich möchte die Option hinzufügen, dass nur die noch nicht kopierten Inhalte übertragen werden. Momentan wird immer 1zu1 die Inhalte übertragen, die die Kriterien erfüllen. Gerne möchte ich, dass die noch nicht kopierten Inhalte unten hinzugefügt werden und die bisher kopierten verbleiben.
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 4
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "Zusage" Then
.Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Vielen Dank für eure Hilfe!
|