Spezialfilter
09.12.2005 15:16:55
Matthias
https://www.herber.de/bbs/user/28953.xls
Habe es zwar geschafft, dass alle Blätter durchlaufen werden
Private Sub ComboBox2_Change()
Sheets("Startseite").Range("C7") = Me.ComboBox2.Value
Dim i As Byte
Dim Tabelle(1 To 50) As String
Tabelle(1) = "Ordner001"
Tabelle(2) = "Ordner002"
Tabelle(3) = "Ordner003"
Tabelle(4) = "Ordner004"
Tabelle(5) = "Ordner005"
Tabelle(6) = "Ordner006"
Tabelle(7) = "Ordner007"
Tabelle(8) = "Ordner008"
Tabelle(9) = "Ordner009"
Tabelle(10) = "Ordner010"
Tabelle(11) = "Ordner011"
Tabelle(12) = "Ordner012"
Tabelle(13) = "Ordner013"
Tabelle(14) = "Ordner014"
Tabelle(15) = "Ordner015"
Tabelle(16) = "Ordner016"
Tabelle(17) = "Ordner017"
Tabelle(18) = "Ordner018"
Tabelle(19) = "Ordner019"
Tabelle(20) = "Ordner020"
Tabelle(21) = "Ordner021"
Tabelle(22) = "Ordner022"
Tabelle(23) = "Ordner023"
Tabelle(24) = "Ordner024"
Tabelle(25) = "Ordner025"
Tabelle(26) = "Ordner026"
Tabelle(27) = "Ordner027"
Tabelle(28) = "Ordner028"
Tabelle(29) = "Ordner029"
Tabelle(30) = "Ordner030"
Tabelle(31) = "Ordner031"
Tabelle(32) = "Ordner032"
Tabelle(33) = "Ordner033"
Tabelle(34) = "Ordner034"
Tabelle(35) = "Ordner035"
Tabelle(36) = "Ordner036"
Tabelle(37) = "Ordner037"
Tabelle(38) = "Ordner038"
Tabelle(39) = "Ordner039"
Tabelle(40) = "Ordner040"
Tabelle(41) = "Ordner041"
Tabelle(42) = "Ordner042"
Tabelle(43) = "Ordner043"
Tabelle(44) = "Ordner044"
Tabelle(45) = "Ordner045"
Tabelle(46) = "Ordner046"
Tabelle(47) = "Ordner047"
Tabelle(48) = "Ordner048"
Tabelle(49) = "Ordner049"
Tabelle(50) = "Ordner050"
Application.ScreenUpdating = False
For i = 1 To 50
Sheets(Tabelle(i)).Range("C3:P33").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C6:C7"), CopyToRange:=Range("A10:E10"), Unique:=False
Next
Application.ScreenUpdating = True
End Sub
Es werden aber ständig die Suchergebnisse überschrieben und nur die des letzten Blattes werden angezeigt.
Es sollen aber alle Werte, die der Suche entsprechen aufgelistet werden.
Danke für eure Hilfe.
Matthias