title image


Smiley Schleife über alle Zellen der gefilterten Liste in der aktuellen Spalte
Hallo itter,



mein Lösungsvorschlag sieht zwar zunächst etwas kompliziert aus, ist allerdings doch recht einfach. Als Ergebnis werden ab der aktuellen Zelle der gefilterten Liste alle weiteren sichtbaren Zellen durchlaufen und hier als Beispiel deren Zelladresse angezeigt :

Sub NächsteSichtbareZelle()

    Dim letzteZeileDerSpalte

    letzteZeileDerSpalte = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

    For Each zelle In Intersect(Range(ActiveCell, Cells(letzteZeileDerSpalte, ActiveCell.Column)), _

        Columns(ActiveCell.Column).SpecialCells(xlCellTypeVisible))

        MsgBox zelle.Address

    Next

End Sub

Code eingefügt mit Syntaxhighlighter 4.0[EDIT]:Code um einige Zeilen verkürzt ! [/EDIT]




Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: