Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Erste zelle nach Filter"
Dateinamen filtern Summe gefilterter Zeilen
Filtern einer Zahl aus einer Zeichenfolge Gefilterte Daten in eine ListBox einlesen
Gefilterte Daten ohne Zwischenablage übertragen Gefilterte Daten in neues Tabellenblatt übertragen
Autofilter auch mit Ziffern von Zahlen Daten eines bestimmten Jahres filtern
Zellenwert als Autofilter-Kriterienwert