siehe hier;
der AuFi sagt "Objekt Erforderlich" !?
Bin da mal überfragt was er braucht. Ist doch alles deklariert!
Daten kommen aus Access.
Ohne AuFi alles iO.
Der AuFi ist in Zeile 2 "A:G" da Zeile 1 belegt mit anderen Dingen!!!
Sub Blabla()
Dim dbe As Object
Dim db As Object
Dim rs As Object
Dim dbfile As String
Dim sSQL As String
Dim i As String
Dim sDatei As String
Dim WkSh_Z As Worksheet
Dim Kriterium As String
Dim ListenEnde As Long
Application.ScreenUpdating = False
sDatei = "Blabla.xlsm"
Set WkSh_Z = Workbooks(sDatei).Worksheets("Blabla")
dbfile = "\\Blabla\Blabla\Blabla\Blabla\Blabla\Blabla\Blabla\Blabla.accdb"
Set dbe = CreateObject("DAO.DBEngine.120")
Set db = dbe.OpenDatabase(dbfile)
Set rs = db.Openrecordset("Blabla")
WkSh_Z.Range("A3:G40000").ClearContents
WkSh_Z.Cells(3, 1).CopyFromRecordset rs
Application.ScreenUpdating = False
WkSh_Z.Activate
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.NumberFormat = "0"
Application.ScreenUpdating = True
Set rs = Nothing
Set db = Nothing
Set dbe = Nothing
Kriterium = Range("C1")
ListenEnde = QuellMappe.Worksheets("Blabla").Cells(2, 1).End(xlDown).Row
Worksheets("Blabla").Range(Cells(2, 1), Cells(ListenEnde, 1)).AutoFilter Field:=3, Criteria1:= _
Kriterium
End Sub
Danke mal für Euren InputMfG
Tilo