|
Hallo Forumsgemeinde,
dank der Unterstützung hier im Forum konnte ich mit untenstehendem Code meine Zeilenkopiererei lösen.
Nun möchte ich das ganze erweitern und nur diejenigen Zeilen kopieren, welche in einer bestimmten Spalte (Spalte M) einen den Wert "nein" stehen haben.
Leider finde ich da momentan keinen richtigen Ansatz.
Könnt ihr mir da nochmal auf die Sprünge helfen?
Danke schonmal im Voraus für eure Hilfe!
Sub EintraegeKopieren()
Dim ws As Worksheet
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim i As Integer, j As Integer
Dim lr As Long, lrTarget As Long, col As Long
Set wsTarget = Sheets("Gesamtliste")
For i = 3 To 53
Set ws = Sheets(i)
'Letzte Zeile im Sheet(Gesamtliste) ermitteln
lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
With ws
'Letzte Zeile im jeweiligen Sheet ermitteln
lr = .Cells(Rows.Count, 1).End(xlUp).Row
'Prüfen, ob ab Zeile 20 Werte im jeweiligen Sheet stehen
If lr >= 20 Then
'Durchlauf aller Zeilen ab Zeile 20 bis zur letzten verwendeten Zeile
For j = 20 To lr
'aktuelle Zeile kopieren
Set rngSource = .Range(.Cells(j, 1), .Cells(j, 18))
'Einträge kopieren und am Ende in Sheet("Gesamtliste") einfügen
rngSource.Copy Destination:=wsTarget.Cells(lrTarget + 1, 1)
lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
Next j
End If
End With
Next i
End Sub
|