Hallo,

ich habe das Problem, dass die Fehlermeldung 1004, dass der Kopierenbereich und der Einfügebereich nicht die gleiche Größe haben. Bei folgenden Codezeilen bleibt der VBA-Editor dabei stehen:

  
            wsamd.Range("H" & rng.Row).SpecialCells(xlCellTypeVisible).Copy      
            
            wsfilt.Range("D" & i).PasteSpecial (xlPasteValuesAndNumberFormats)       

Sollten beides jeweils nur eine  Zelle sein. Verstehe nicht, warum er das Kopieren nicht macht?

Der davor stehende Codeteil:

wsamd.Range("A" & rng.Row & ":C" & rng.Row).SpecialCells(xlCellTypeVisible).Copy   'Kopieren der gefilterten Datensätze
 wsfilt.Range("A" & i & ":C" & i).PasteSpecial (xlPasteValuesAndNumberFormats)    

wird ohne Probleme ausgeführt.

Vielleicht hat jemand einen Tip für mich. Ich habe es jetzt über Zwischenspeichern in eine Variable gemacht. Gefällt mir aber nicht, weil ich noch mehr Zellen aus der jeweiligen Zeile in ein anderes Sheet kopieren muss.Außerdem würde ich mich freuen es zu verstehen, warum es nicht funktioniert.

Für eure Hilfe im Voraus schon mal Danke!

Schöne Grüße

Thomas