Hallo Kai,
da hatte ich mich wohl etwas falsch ausgedrückt. Ich meinte Zeilen ,welche komplett leer sind sollten nicht mit kopiert werden, nicht nur die in Spalte L.
Habe jetzt die beiden fett markierten Zeilen ausgeklammert und jetzt funktioniert es.
'Prüfen, ob der Wert in Spalte L (12) der aktuellen Zeile leer ist
If Not .Cells(j, 12).Value = "" Then
'aktuelle Zeile kopieren
Set rngSource = .Range(.Cells(j, 1), .Cells(j, 12))
'Einträge kopieren und am Ende in Sheet("11") einfügen
rngSource.Copy Destination:=wsTarget.Cells(lrTarget + 1, 1)
lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
End If
Danke für deine Hilfe!
|