Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

foreach-Schleife und Standardfilter

foreach-Schleife und Standardfilter
05.01.2004 18:28:06
Philipp Steinau
Hallo,

ich habe in einer Funktion folgende Schleife - Zellen wird 'as range' übergeben.

For Each Item In Zellen
If Item.Value = Wert Then i = i + 1
Next

Jetzt möchte ich einen Standardfilter auf den zu durchlaufenden Zellenbereich anwenden. Dummerweise durchläuft oben genannte Schleife aber dennoch alle Zellen - nicht nur die angezeigten. Wie kann ich überprüfen ob 'Item' gerade sichtbar ist. Mit 'if item.visible = true' hab ichs schon probiert. Das funktioniert nicht.

Schonmal vielen Dank für eure Hilfe
Gruß
Philipp

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: foreach-Schleife und Standardfilter
05.01.2004 22:28:49
Ramses
Hallo

probier mal das

Option Explicit


Sub test(zellen As Range)
Dim wert As Integer, item As Range
Dim i, x
wert = 20
For Each item In zellen
If item.RowHeight = 0 Then
x = x + 1
ElseIf item.Value = wert Then
i = i + 1
End If
Next
Debug.Print i
Debug.Print x
End Sub



Sub start()
test (Worksheets(1).Range("A1:A100"))
End Sub


Mit RowHeight kannst du ausgeblendete Zellen im Filter testen.

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige