zurzeit versuche ich Werte aus Spalten auszulesen bzw. die Häufigkeit von Werten darin zu ermitteln. Dabei filtere ich eine Tabelle und möchte anschließend aus dem Filterergebnis herauslesen
wie häufig in Spalte 31 (AE) der Wert Nein steht und wie häufig der Wert Ja vorkommt. Das ganze aus dem gefilterten Ergebnis.
Nur leider habe ich keine Ahnung, wie ich nur die gefilterten Werte auslesen kann.
Bisher habe ich folgendes (hierbei wird aber auch auf die verdeckten Zeilen gegangen)
Hat jmd eine Idee? Bin für jede Hilfe dankbar
Sub testFiltern()
lz = Worksheets("Vorlage").Cells(Rows.Count, 1).End(xlUp).Row
For Each aktzelle In Sheets("Vorlage").Range("A4:A" & lz)
FO = Left(aktzelle.Value, 5)
FA = Right(aktzelle.Value, 5)
If Not IsEmpty(Cells(aktzelle.Row, 5)) Then
With Worksheets("Tabelle1")
.Rows("1:1").AutoFilter
.Range("$A$1:$AG$144378").AutoFilter Field:=14, Criteria1:= _
FO
.Range("$A$1:$AG$144378").AutoFilter Field:=16, Criteria1:= _
FA
lzDaten = Worksheets("Tabelle1").Cells(Rows.Count, 14).End(xlUp).Row ' _
Abfrage nach letzter Zeile von gefilterten
'Gehe durch Spalte 31 und Zähle Häufigkeit
For Each zelle In .Range("AE2: AE" & lzDaten)
On Error Resume Next
MsgBox zelle.Row 'Test um zu prüfen ob nur gefilterte _
angezeigt werden
' .ShowAllData 'Zeige wieder alle Daten
Next zelle
.Rows("1:1").AutoFilter
End With
End If
Next aktzelle
End Sub