Hallo liebe Gemeinde,

ich hab schon wieder ein leidiges Copy-Paste Problem.

Die Funktion soll in demselben Sheet werte von einer Tabelle (nach einer If Bedingung ausgewählt!) kopieren und in die nebenstehende Tabelle ohne die False-Werte einfügen.

Wie folgt:

Application.ScreenUpdating = False
Zeile = 70
With Sheets(6)
        For Z = Zeile To 2500
            If .Range("H" & Z) = "i.O." Then
                Range("A70:G2500").Copy
                Sheets(6).Range("BJ70").PasteSpecial Paste:=xlPasteAll, operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Exit For
            End If
        Next
End With
Application.ScreenUpdating = True

Die Zielrange soll von "BJ70:BP2500" gehen.

In der Range "H" stehen per Makro zugewiesen die Anmerkung "i.O." und "n.i.O.". Diese bestimmen prinzipiell, welche Zeilen der Range "A70:G2500" kopiert werden sollen und welche nicht.

Nun sieht das nach meinem Verständnis eigentlich doch ganz gut aus, aber oh wunder: es passiert nix!

Any ideas to help with???