Hoi, ich hake hier mal mit ein.
wsamd.Range("H" & rng.Row).SpecialCells(xlCellTypeVisible).Copy
[...]
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
Das hat miteinander überhaupt nix zu tun. ;o)
Es geht nicht um rng.Row sondern um das SpecialCells(xlCellTypeVisible) dahinter.
Gehen wir mal davon aus das rng.Row den Wert 3 liefert. Dann referenzierst du die Zelle H3.
Jetzt wendest du darauf SpecialCells(xlCellTypeVisible) an. Ist H3 nicht sichtbar, dann bekommst du alle anderen Zellen - nur damit das klar ist, damit ist wirklich ALLES ANDERE auf dem Blatt gemeint - nur nicht H3 und kopierst dies in den Zwischenspeicher. Anshcließend versuchst du den ganzen Strutz einzufügen und das schlägt - zu Recht - fehl.
Genau das hat dir Gast7777 versucht klar zu machen. ;o)
Grüße
|