Office: VBA_Code anpassen _ Nur sichtbare Zellen kopieren.

Hallo zusammen,
ich suche einen Code, der gefilterten Daten von dem Tabellenblatt "Roh_Daten" in das Tabellenblatt "Filtern" kopiert.

Dazu habe ich folgenden VBA-Code im Internet gefunden und auf meine Tabelle angepasst. Läuft leider nicht. Wie bringe ich denn meine Tabelle (Roh_Daten) in den Code aus der die Daten geholt werden sollen?

Option Explicit

Sub Copy()
'Ab Zeile 2 alle gefilterten Zeilen bis Spalte "D" kopieren
' -> das "D" bitte an Deine Tabelle anpassen
ActiveSheet.Range("A2:AUS1500").SpecialCells(xlCellTypeVisible).Copy

'...und ab "A2" in Tabelle2 einfügen
Worksheets("Filtern").Range("A8").PasteSpecial

End Sub

Vielen Dank im Voraus für eure Hilfe

Gruß
Thomas

:)

 

Hallo Thomas,

Zeilenhöhe > 0

 

Hallo Hajo,

danke für deine schnelle Antwort, aber diese hilft mir noch nicht weiter.

Grüße
Thomas

 

Hallo Thomas,

also habe ich das falsch gesehen das Zeilenhöhe 0 ist.
Man kann auch den Makrorecorder benutzen.
Ich bin dann raus, da ich es falsch gesehen habe.

 

Hallo

"läuft nicht" ist nicht grade aussagekräftig
kopiert es nicht oder kommt ne Fehlermeldung?
startest du das Makro aus dem Blatt "Roh_Daten"?
wenn nicht dann muss das ActiveSheet durch Sheets("Roh_Daten") ersetzt werden

MfG Tom

 

Hallo Tom,

ich habe den Code in einem Modul und nun so abgeändert:

Option Explicit

Sub Copy()
Sheets("Roh_Daten").Range("A2:AUS1500").SpecialCells(xlCellTypeVisible).Copy
Worksheets("Filtern").Range("A8").PasteSpecial
End Sub

Läuft nicht heißt es passiert nichts. Es kommt keine Fehlermeldung, aber die gefilterten Zeilen werden auch nicht kopiert.

Schöne Grüße
Thomas

 

Hallo Tom,

es läuft nun, nach deinem Hinweis mit den Sheets("Roh_Daten").

Danke für deine Hilfe.

Gruß
Thomas

 

Hi

in meinem Test funktioniert es einwandfrei
zeig mal ne Beispieldatei in der man es mal testen kann

MfG Tom