Hallo zusammen,
ich bin noch ungeübt im Umgang mit VBA und stehe vor folgendem Problem bei dem ich jetzt auf eure Hilfe hoffe:
Ich habe zwei Exceldatein: Aus Datei 1 möchte ich jeweils einen Wert auslesen (und das dann nach und nach für die ganze Spalte), diesen Wert dann in Datei 2 in einem bestimmten Feld in „Textfilter enthält“ einfügen und so die Spalte in Datei 2 nach den Zeilen Filtern die den Wert enthalten.
Dann möchte ich die Werte einer anderen Spalte der Datei 2 (gleiches Arbeitsblatt) die nach dem Filtern eben noch übrig sind in Datei 1 kopieren (unzwar alle Werte in ein Kästchen).
Das Ganze dann wie gesagt wiederholt für alle Werte der Spalte aus Datei 1.
Aktuell habe ich folgenden Code, aber es kommt der Fehler „Objekt unterstützt diese Eigenschaft oder Methode nicht“ und da komme ich nicht weiter.
Sub TextfliterEnthaelt()
Dim n As Integer
Dim Identifier As String
For n = 4 To 6000
Windows("Datei1").Activate
Identifier = Cells(n, 7).Value
Windows("Datei2").Range("$A$4:$HE$4774").AutoFilter Field:=112, Criteria1:="*Identifier*", Operator:=xlAnd
ActiveSheet.Range("E:E").Copy Destination:=Windows("Datei1").Cells(n, 6)
Next n
End Sub
Vielen Dank für eure Hilfe!
|