Durchsuchen einer gesamten Arbeitsmappe

[Kuwer]

Hallo,

In der Beispieldatei funktioniert das spitzenmäßig.
Hatte versuch das für meine Arbeitsmappe abzuändern. Leider ohne Erfolg.
In meiner Originaldatei habe ich den Bereich in den Daten stehen von A1 bis N600.

so ist das eben, wenn die "Beispieldatei" nichts mit der Arbeitsdatei zu tun hat.
Hier siehst Du, wie der Spezialfilter funktioniert.

Gruß Uwe

[Kuwer]

Hallo,

ich habe es mal für die Spalten A:N vorbereitet.
Wichtig ist, dass die Spaltenüberschriften des Kriterienbereiches identisch mit denen des Quellbereiches sein müssen!

Private Sub Worksheet_Activate()
 Dim oWs As Worksheet, rngZ As Range
 Range("D2,E3,F4,G5,H6,I7,J8,K9,L10,M11,N12").Value = "<" & CLng(Date)
 Set rngZ = Range("A15:N15")
 rngZ.CurrentRegion.Offset(1) = ""
 For Each oWs In Worksheets
   If oWs.Name <> Me.Name Then
     If oWs.Cells(1).CurrentRegion.Rows.Count > 1 Then
       oWs.Columns("A:N").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("A1:N12"), CopyToRange:=rngZ, Unique:=False
       rngZ.Delete xlUp
       Set rngZ = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 14)
     End If
   End If
 Next oWs
End Sub

Gruß Uwe