Microsoft Excel

Herbers Excel/VBA-Archiv

Autofilter Anzahl der Kritereien

Betrifft: Autofilter Anzahl der Kritereien von: Christian
Geschrieben am: 12.09.2004 08:07:41

Liebe Leute!

Ich stehe mit folgendem Problem auf der Leitung:

Ich möchte in einem Tabellenblatt per VBA Code nacheinander nach allen in der Spalte 1 vorkommenden Kriterien filtern und die jeweils gefilterte Tabelle ausdrucken. Es verändern sich sowohl die Bezeichnungen in der ersten Spalte als auch die Anzahl der Bezeichnungen (sprich Anzahl der Kriterien), der Code muß also dafür flexibel sein.

Vielen Dank für jede Anregung!

Christian

  


Betrifft: AW: Autofilter Anzahl der Kritereien von: chris b
Geschrieben am: 12.09.2004 09:00:12

ICh hoffe ich habe dir helfen können !

Sub neu()
Dim cb(50)
i = 0
For x = 1 To 10  'Wert anpassen
temp = Cells(x, 1)
b = True
For y = x - 1 To 0 Step -1
If cb(y) = temp Then
b = False
Exit For
End If
Next
If b Then
cb(i) = temp
i = i + 1
End If
Next

For x = 0 To UBound(cb)

Selection.AutoFilter Field:=1, Criteria1:=cb(x)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next
End Sub



  


Betrifft: AW: Autofilter Anzahl der Kritereien von: Christian
Geschrieben am: 12.09.2004 18:32:58

Vielen Dank! Hast mir sehr geholfen.

In der letzten Schleife habe ich UBound(cb) durch i ersetzt, ich denke dass hattest Du auch im Sinn.

Gruß

Christian


 

Beiträge aus den Excel-Beispielen zum Thema "Autofilter Anzahl der Kritereien"