Herbers Excel-Forum - das Archiv
Schleife für gefilterte Daten
- Schleife für gefilterte Daten von Bernd Burned vom 03.01.2007 15:10:54
- AW: Schleife für gefilterte Daten - von Ali Mente am 03.01.2007 15:16:20
- AW: Schleife für gefilterte Daten - von Cardexperte am 03.01.2007 15:20:22
- AW: Frage beantwortet - von Bernd Burned am 03.01.2007 15:38:44
 |
Betrifft: Schleife für gefilterte Daten
von: Bernd Burned
Hallo zusammen
Ich habe ein Makro geschrieben in dem erst mehrere Filter gesetzt werden, und dann anschliesend die Zeilen mit einer for-Schleife durchlaufen und verarbeitet werden.
Das Ganze sieht grob so aus:
For irow = 2 To Cells(65536, 1).End(xlUp).Row
If ActiveSheet.Rows(irow).Hidden = False Then
'hier würde der eigentliche Code stehen
end if
next irow
Das funktioniert zwar, ich frage mich aber ob man das nicht auch besser machen kann. Anstatt alle Zeilen mit der for-Schleife zu durchlaufen und dann erst zu prüfen ob die Zeile auch visible ist, eine Schleife die nur die sichtbaren Zeilen durchläuft.
Gruß Bernd
 |
Betrifft: AW: Schleife für gefilterte Daten
von: Ali Mente
Geschrieben am: 03.01.2007 15:16:20
Hi,
Sub sichtbare()
Dim c As Range
For Each c In Columns("A:A").SpecialCells(12)
'mach was
Next
End Submfg Ali
|
Betrifft: AW: Schleife für gefilterte Daten
von: Cardexperte
Geschrieben am: 03.01.2007 15:20:22
Hallo Bernd,
was hält dich davon ab, den Spezialfilter zu nehmen (nicht den Autofilter), den Bereich dann irgendwohin zu kopieren und dann erst die Verarbeitung zu starten?
Spezialfilter ist doch viel komfortabler
Gruss WS
|
Betrifft: AW: Frage beantwortet
von: Bernd Burned
Geschrieben am: 03.01.2007 15:38:44
Hallo Ali + Cardexperte
Das hilft mir auf jedenfall schon mal weiter vielen Dank euch beiden
Gruß Bernd
| |