Hallo,
bin gerade mal wieder dabei etwas in vba rumzubasteln.
Hab eigentlich das makro soweit fertig - nur will es leider (mal wieder) nicht so wie ich will.
Beim Ausführen kommt immer ein 1004er fehler bei Folgendem Codeschnipsel:
'Überschrift des Tabellenblattes
Filterkriterium = "AK " + CStr(zaehler1)
Sheets("Vorgangstabelle1").Range("A2:F2").AutoFilter Field:=2, Criteria1:=Filterkriterium
Sheets("Vorgangstabelle1").Range(Cells(65536, 3).End(xlUp), Cells(3, 3)).SpecialCells(xlCellTypeVisible).Copy
Sheets("AK " + CStr(zaehler1)).Range("C3:G4").Paste
So richtig Leuchtet mir nicht ein, warum bei Sheets("Vorgangstabelle1").Range(Cells(65536, 3).End(xlUp), Cells(3, 3)).SpecialCells(xlCellTypeVisible).Copy nen 1004er Fehler kommt - das Filterkriterium ist richtig gestzt, wird ausgeführt, es sind Zellen vorhanden zum kopieren .....
Was hier gemacht werden soll ist:
Die gefilterten zeilen (Autofilter) in ein anderes Tabellenblatt zu kopieren. Hierbei will ich nicht alle Zellen kopieren sondern nur die Zellen der Spalte C (also 3).
Tausend dank für die Antworten :)
Grüße aus Kiel
Jochen