Hab jetzt endlich eine Lösung gefunden für mein Problem, jedoch habe ich Probleme beim Kopieren der Daten.
Beim Aktivieren des Feldes A1 schmeist er mir einen Fehler mitten ins Gesicht :)
hier mal der code:
Dim chkCaption1 As String
chkCaption1 = Checkbox1.Caption
Monate = ListBox1.Value
Sheets(Monate).Activate
Selection.AutoFilter Field:=5, Criteria1:=chkCaption1
ActiveSheet.Range("A2:H" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible). _
Copy
Sheets(".").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Falls wer Zeit hätte, könnte mir vielleicht wer sagen wo der Fehler liegt bzw warum er beim aktivieren einer Zelle eine Fehlermeldung macht?
Danke im Voraus
Phil