Hallo Gast7777,
vielen Dank für die Antwort.
Ich glaube nicht, dass rng.row Nothing ist, da es mit Zwischenspeichern in eine Variable ja geht:
strvariable = wsamd.Range("H" & rng.Row).Value
wsfilt.Range("D" & i).Value = strvariable
Und auch die davorliegenden Zeilen funktionieren komischerweise mit copy und pastespecial:
wsamd.Range("A" & rng.Row & ":C" & rng.Row).SpecialCells(xlCellTypeVisible).Copy
wsfilt.Range("A" & i & ":C" & i).PasteSpecial (xlPasteValuesAndNumberFormats)
Diese Zeilen funktionieren. Ich bin weiterhin überfragt, warum Excel meint, dass hier 2 unterschiedlich große Bereiche vorliegen sollen. Hat jemand noch einen Tip?
Schöne Grüße
Thomas
|