Anzahl von Einträgen in einem markierten Arbeitsblattbereich finden
24.03.2021 15:30:03
Einträgen
Ich benötige mal wieder HILFE.
Ich suche in einem Arbeitsblattbereich die Anzahl eines Suchbegriffes (z.B. 9).
Mit dem Programmier-Code funktioniert es.
Wenn ich aber mit einem Filter Zeilen ausblende, wird die gleiche Häufigkeit
des Suchbegriffes angezeigt.
Die ausgeblendeten Suchbegriffe werden mitgezählt.
Gibt es eine Möglichkeit den Programmier-Code so umzuändern, dass nur die
eingeblendeten Suchbegriffe gezählt werden?
Sub suchen()
Dim rng As Range
Dim Zähler As Integer
Range("E11:J3424").Select 'Bereich im Arbeitsblatt markieren
Zähler = 0 'der Variablen Zähler den Wert Null zuweisen
For Each rng In Selection 'markierten Bereich im Arbeitsblatt durchsuchen
If rng = 9 Then 'wenn der Suchbegriff (hier 9)
Zähler = Zähler + 1 'dann die Variable Zähler um 1 erhöhen
End If
Next
MsgBox Zähler 'Häufigkeit des Suchbegriffes anzeigen
End Sub