Autofilter unter Excel VBA

Ich versuche krampfhaft VBA die Information abzugewinnen,
wieviele Listeneinträge es bei aktiviertem Autofilter gibt.
Außerdem würde ich gerne einen Filterindex nutzen um den Filter vorzurücken.
Hintergrund:
Ich habe eine Datei mit sagen wir 100 Zeilen und in der gesuchten Spalte 10 verschiedenen Namen.
Nun würde ich gerne in einer Schleife von 1 bis 10 (passend zum Beispiel) gehen
und somit immer einen neuen Namen auswählen um Folgeaktionen zu starten.
Als würde man in Excel selbst den Autofilter setzen, "Alle" entfernen und danach die Liste von oben nach unten durchgehen.
Ich habe schon verzweifelt gesucht, aber es sieht fast aus als gäbe es diese Funktionaltät nicht.
Kann mir jeman helfen ?
Danke schon mal im Voraus, Erich.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das Problem ist, dass vorher alle Namen in ein Array eingetragen werden müssen, damit
darüber ein Filter auf den Namen gesetzt werden kann.
Das ist unflexibel und Fehleranfällig (Teamwechsel,Schreibfehler,...)
Hier das Beispiel:
....
For lAuto1 = 1 To 2 ' 2 Bereiche
For lAuto2 = 0 To 14 ' 15 Personen, hier sind alle Namen vorher im Array zu speichern !MIST!
Sheets(3 + k).Select
If lAuto1 = 1 Then
ActiveSheet.Range("$A$1:$V$4999").AutoFilter Field:=3, Criteria1:="Auto"
Else
ActiveSheet.Range("$A$1:$V$4999").AutoFilter Field:=3, Criteria1:="Motorrad"
Cells(lAuto2 + 1, 26).Value = Team(lAuto2)
zRange = Z & (lAuto2 + 1)
End If
ActiveSheet.Range("$A$1:$V$4999").AutoFilter Field:=9, Criteria1:=Team(lAuto2)
ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("F2:F4999"),_ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets(1).Select
If lAuto1 = 1 Then
StundenTeamAU = StundenTeamAU + Sheets(3 + k).Cells(5001, 20).Value
Else
StundenTeamMO = StundenTeamMO + Sheets(3 + k).Cells(5001, 20).Value
End If
zRange = Chr(Asc("D") + lAuto2) & (Monat * 2 + lAuto1 - 1)
ActiveSheet.Range(zRange).Select
ActiveCell.FormulaR1C1 = Sheets(3 + k).Cells(5001, 10).Value 'ActiveCell.FormulaR1C1 = Sheets(3 + k).Cells(5001, 16).Value
Next lAuto2
Next lAuto1
zRange = Chr(Asc("U")) & (Monat * 2) ' Gesamtstunden 1
ActiveSheet.Range(zRange).Select
ActiveCell.FormulaR1C1 = StundenTeamAU
zRange = Chr(Asc("U")) & (Monat * 2 + 1) ' Gesamtstunden 2
ActiveSheet.Range(zRange).Select
ActiveCell.FormulaR1C1 = StundenTeamMO
....
Gruß Erich

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter unter Excel VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread