Zeile kopieren wenn bedingung Ja erfüllt ist
03.01.2019 08:52:47
Peter
Ich habe ein gutes Script im Netz gefunden um Zeilen zu kopieren wenn die Bedingung erfüllt ist.
Da ich mit VBA noch nicht lange arbeite, habe ich natürlich auch schon die ersten Probleme.
Wenn ich das Script ausführe, werden nicht alle Zeilen kopiert die ein "Ja" in Spalte R enthalten. Muss ich da noch was ergänzen?
Die letzten vier Zeilen die auch mit "Ja" markiert wurden, werden jeweils nicht in die Tabelle2 kopiert.
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 5
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 18).Value = "Ja" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub