Hallo zusammen,
Mein Ziel ist es, Daten aus einer anderen Excel Tabelle in eine neue Tabelle mit meinen Makros zu importieren. Bei diesem Importiervorgang soll der Autofilter aktiv werden und die Daten nach einem bestimmten Begriff "xxxx" filtern.
erhalte einen LAufzeitfehler
mit folgendem Code. Ich hoffe, ihr könnt mir weiterhelfen :)
Private Sub CommandButton2_Click()
Dim Quelle As Object, Ziel As Object
'Ausgewählte Datei öffnen
Workbooks.Open (TextBox1.Value)
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(2, 1)
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Application.EnableEvents = True
'Suchvorgang und Filter
Dim Suchbegriff As Range, Addresse As String, FindColumn As Integer
Dim Bereich As Range, Fundtext As String
Application.ScreenUpdating = False
Set Bereich = ThisWorkbook.Worksheets(1).Range("A1:AT4000")
Bereich.AutoFilter
With Bereich
Set Suchbegriff = .Find(What:=Range("xxxxx"), LookIn:=xlValues, LookAt:=xlPart)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
FindColumn = Suchbegriff.Column
Fundtext = Suchbegriff.Value
Do
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address Addresse
End If
End With
Bereich.AutoFilter Field:=FindColumn, Criteria1:=Fundtext