AW: Makro anpassen !!!
31.08.2008 13:27:00
Tino
Hallo,
habe hier mal ein Beispiel aufgebaut, vielleicht wird die Verwendung des Spezialfilters dadurch verständlicher.
Modul Modul1
Option Explicit
Sub Spezialfilter()
Dim Tab1 As Worksheet, Tab2 As Worksheet
Set Tab1 = Tabelle1 'Quelltabelle
Set Tab2 = Tabelle3 'Ziehltabelle
With Tab1
'Filterkriterium festlegen************************
.Range("H1") = .Range("B5") 'muss Überschrift sein
.Range("H2") = "'>0" 'Filterkriterium
Tab2.Columns("AC").ClearContents 'Bereich leeren
Tab2.Range("AC3") = .Range("B5") 'Überschrift setzen
'Spezialfilter anwenden***************************
.Range("A5:AC10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
.Range("H1:H2"), CopyToRange:=Tab2.Range("AC3"), Unique:=False
'Filterkriterium wieder löschen*******************
.Range("H1:H2").ClearContents
End With
Tab2.Select
Set Tab1 = Nothing
Set Tab2 = Nothing
End Sub
Frage lass ich offen, da ich deine Beispielmappe benötige um es besser zu verstehen was du meinst.
Gruß Tino
www.VBA-Excel.de