der nachfolgende Code kopiert mir immer den Inhalt der Spalte "S" in eine Gesamtdatei. Das klappt auch gut, aber es kopiert eben auch dann, wenn die Zellen leer sind. Genau das möchte ich verhindern, dann ist das Makro einfach schneller, weil wir hier von 20000 Zeilen reden, die geprüft werden.
Hat jemand eine Idee, was ich in den Code hier einfügen muss, damit er nur die "nicht leeren" Zellen kopiert und die anderen einfach überspringt.
Viele Grüße
Elmar
(Auszug aus dem Gesamtcode)
Dim rng As Range
For Each rng In Sheets("Entwicklung Gesamtrückstand").Range("C3:C" & Range("C20000").End(xlUp).Row)
If Sheets("RL70").Cells(rng.Row, 3) = Sheets("Entwicklung Gesamtrückstand").Cells(rng.Row, 3) And _
Sheets("RL70").Cells(rng.Row, 1) = "70" Then
Sheets("RL70").Cells(rng.Row, 19).Copy
Sheets("Entwicklung Gesamtrückstand").Cells(rng.Row, 19).PasteSpecial Paste:=xlPasteValues
End If
Next rng