Guten Morgen in die Runde. Komme mal wieder mit einem wie ich glaube kleinem Problem. Ich möchte aus Tabelle "Problem" in Tabelle "Tudulist" nach gewisser Filterung kopieren. Erhalte Laufzeitfehler 1004 und Meldung " Anwendung oder Objekt-definierter Fehler". Könnte mir jemand nach Möglichkeit mit einem Beispielcode unter die Arme greifen? Danke schon jetzt und Gruß Josef
Code:
Private Sub CommandButton8_Click()
With Worksheets("Problem")
Range("A2:H413").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$G$413").AutoFilter Field:=5, Criteria1:="=*"
ActiveSheet.Range("$A$2:$G$413").AutoFilter Field:=6, Criteria1:="=*"
ActiveSheet.Range("$A$2:$G$413").AutoFilter Field:=7, Criteria1:="<=90"
.Rows(i).Copy Destination:=Worksheets("TuduList").Rows(a)
End With
End Sub