Hallo Mase,
vielen Dank für die beiden Tips. Habe beides ausprobiert, aber trotzdem diesselbe Fehlermeldung an dieser Stelle. Wäre aber trotzdem froh und dannbar weiter Hilfe zu erhalten!
Mit dem Debugger zeigt er als rng.row 1286 an und das würde passen.
Wenn ich bei der Copy-Methode und bei der Paste-Methode den Range auf die jeweils nächste Zelle erweitere, dann funktioniert es auch. Ich habe keine Ahnung warum:
wsamd.Range("H" & rng.Row & ":I" & rng.Row).SpecialCells(xlCellTypeVisible).Copy
wsfilt.Range("D" & i & ":E" & i).PasteSpecial (xlPasteValuesAndNumberFormats)
=>Funktioniert, aber mit nur einer Zelle, wie vorher geht es nicht!
Über weitere Hilfe würde ich mich sehr freuen.
Schöne Grüße
Thomas
|