Hallo Zusammen
für folgendes Problem hab ich noch keine Lösung gefuden.
Eine Liste soll mit einem autofilter durchsucht werden und die Daten anschliessend in ein anderes File kopiert werden. Das funktioniert einwandfrei, ausser das Suchkriterium ist nicht in der Liste in File 2 vorhanden. Dann kopiert es mir die gesamte Liste. Wenn das Suchkriterium nicht vorhanden ist, soll er auch nichts kopieren. Weiss jemand eine Lösung?
Workbooks(File2).Worksheets(1).Range("A1:N1").AutoFilter Field:=1, Criteria1:=(Workbooks(File3).Worksheets(1).Cells(Produkt, 2))
Workbooks(File2).Worksheets(1).Range("$A$2" & ":P" & Maximum).Select
Selection.Copy Destination:=Workbooks(File3).Worksheets(2).Cells(2, 1)
Besten Dank
Andreas