Erste zelle nach Filter

Bild

Betrifft: Erste zelle nach Filter
von: Paul
Geschrieben am: 23.09.2003 12:49:20

Hallo,

mal wieder ein Problem.
Wie kann man die erste Zelle ansprechen, die nach dem Filter angezeigt wird
Zelle A1
Zelle A2
Zelle A3
________________________________________________________________
Zelle A5 enthält die Kalenderwoche, soll in E1 angezeigt werden.
kann aber Ax sein.
Also nochmal, ich möchte die den wert von der ersten Zelle nach A3 im Zelle E1 haben.

Danke für die Hilfe
Paul

Bild


Betrifft: AW: Erste zelle nach Filter
von: Rainer
Geschrieben am: 26.09.2003 22:50:07

Lieber Paul!

Wenn ich dich richtig verstanden habe, suchst du den Wert, der in der 4.Zeile steht, wenn darüber ein Filter gesetzt ist und willst ihn in Zelle E1 anzeigen.

Probiere mal diesen Code:


Sub vierter_Wert()
Dim i As Long
Dim Zeile
    Sheets(1).Activate
    Range("a1").Select
    Zeile = 1
    
    For i = 2 To ActiveSheet.UsedRange.Rows.Count
        If ActiveSheet.Rows(i).Hidden = False Then
            Zeile = Zeile + 1
            If Zeile = 4 Then
                Cells(1, 5).Value = ActiveSheet.Cells(i, 1).Value
                Exit Sub
            End If
        End If
    Next i
End Sub


LG
Rainer


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Erste zelle nach Filter"