Bin mal das Thema AutoFilter mal kurz durch gegangen.
Folgendes Makro habe ich erstell:
Sub AutoFilter()
Dim Monat As String
Dim MonatVergleich As String
Dim LetzteZeileC As Integer
LetzteZeileC = Sheets("Calcs").Cells(Rows.Count, 1).End(xlUp).Rows.Row
Monat = InputBox("asasa", "dwas")
MonatVergleich = InputBox("asasa", "dwas")
'Tabellenblatt hinzufügen
Sheets.Add , Sheets(Sheets.Count)
ActiveSheet.Name = "Calcs2"
'Filter setzen
With Sheets("Calcs")
Range(.Cells(1, 1), .Cells(LetzteZeileC, 7)).AutoFilter Field:=4, _
Criteria1:="=" & Monat, Operator:=xlOr, Criteria2:="=" & MonatVergleich
'Gefiltertes kopieren
Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, 7)).SpecialCells(xlCellTypeVisible). _
_
Copy
'Einfügen
Sheets("Calcs2").Cells(1, 1).PasteSpecial
'Filter entfernen
Range(.Cells(1, 1), .Cells(LetzteZeileC, 7)).AutoFilter Field:=4
End With
End Sub
Ich bekomm jedoch bei einer größeren Datenmenge folgende Fehlermeldung:Laufzeitfehler '1004':
MS Office Excel kann das Diagramm nicht erstellen, da der Datenbezug zu komplex ist. Probieren Sie die folgenden Tipps, um das Diagramm zu erstellen:
- Verwenden Sie Daten, die mit einem zusammenhängenden Rechteck markiert werden können.
- Verwenden Sie Daten von derselben Tabelle.
Zu dem dauert das Makro - wenns mal funktionier - beim einfügen zimlich lang.
Gib es dazu eine Lösung?
Vielen Dank.