VBA|UserForm For-Each-Schleife zählt nicht korrekt
10.07.2013 01:38:15
Mario
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwert hat, gibt der Counter immer 1 statt 0 aus.
' Anzahl Firmenrückmeldungen wird in txtFirmenrückmeldungCounter ausgegeben
lngAnzahlReihen = 0
ThisWorkbook.Worksheets("Kundenliste").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter _
6, "=warte auf Firma"
lngEnde = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
For Each lngReihe In ActiveSheet.Range("A2:A" & lngEnde).SpecialCells(xlCellTypeVisible).Rows
lngAnzahlReihen = lngAnzahlReihen + 1
Next
txtFirmenrueckmeldungCounter = lngAnzahlReihen
Ich hänge zur Sicherheit nochmal die Datei an. Der Code befindet sich in ufHome.
Vielen Dank für die Hilfe.
Viele Grüße
Mario
https://www.herber.de/bbs/user/86283.xlsm