ich versuch mal mein Problem zu beschreiben...Hab schon mehrere Vorgehensweise versucht, aber irgendwo hakts immer..
Ich hab 1-x Pages, wobei x maximal 3..
Auf diese Pages werden Datensätze aus Textdateien die eingelesen werden verteilt
Pro Seite stehen maximal 65535 Datensätze (1 frei für Überschrift)..
Angenommen ich hab 131207 Datensätze, dann sind das
2 volle Pages und eine Page mit 137 Datensätze.
Diese Pages werden dann durch prüfroutinen gejagt und in jeder Page falsche einträge die Zelle in Spalte S mit dem Wert wrong belegt.
Diese wrongs möchte ich jetzt aufzählen, dabei möchte ich aber nicht jede Page blind sagen check bis 65536 und zähle wrong, sondern abhängig von Anzahl Datensätze..
in dem Fall wär das, gehe Page 1 und 2 ganz durch, , das wären dann 131070 Datensätze und geh dann noch 137 auf Page 3 durch.
Hab ich allerdings nur 15000 Datensätzte sollen nur 15000 Datensätze durchgegangen werden, und nicht alle möglichen 65536
Beginnen tu ich mit...
For Each ws In ActiveWorkbook.Sheets
If InStr(1, ws.Name, "XX") groesser 0 Then ' gehe nur die sheets durch, die zum file gehören (Sheets lauten hier XX, XX2, XX3
ws.Select
so zähl ich die spalten...inner schleife...
Do While i kleiner ? (verschiedene Anästze probiert mit Pageflag, usw probiert aber nichts erfolgreich
i = i + 1
cell = ws.Range("S" & i)
If cell = "wrong" Then
l = l + 1 'Variable mit Zähler für Zellen mit "wrong"
End If
loop
next ws