VBA Filter

[Andyle]

Hallo an alle hier.

Ich habe ein Tabellenblatt "Tabelle1" mit einer PrivotTabelle.
Spalten A bis L
Spalte B = Name
Spalte L = Monat als Zahl

Wenn die Filter eingegeben sind, sollen alle Daten ins Tabellenblatt"Tabelle2" kopiert werden.
Es sollen nur die Daten ohne Formate und Formeln kopiert werden.
Momentan werden alle Formate und Formeln mit Kopiert.

Dazu habe ich folgenden Code:

Code:

Public Sub Main()
    Application.ScreenUpdating = False
    Tabelle2.Range("B7:M2000").Clear
       
        With Tabelle1

.Cells.AutoFilter 2, Tabelle2.Range("E3")
.Cells.AutoFilter 12, Tabelle2.Range("H3")
               
        Tabelle1.Range("A2:L" & .Cells(.Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Tabelle2.Range("B7")
        .AutoFilterMode = False
    End With
End Sub

Leider funktionieren die Filter nicht und geben einen Fehler aus.

Fehler: Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden.

Blende ich die 2 Filter aus, wird alles 1:1 kopiert.

Was ist da falsch?

Danke für Eure Hilfe

[Lutz Fricke]

Hallo Andyle,

ohne Beispieldatei etwas schwierig...
Aber auf den ersten Blick würde ich tippen, dass es in den beiden Zeilen

Code:

.Cells.AutoFilter 2, Tabelle2.Range("E3")
.Cells.AutoFilter 12, Tabelle2.Range("H3")

"Tabelle1" statt "Tabelle2" heißen muss, oder?

Gruß,
Lutz