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???
|