bei gefilterter Tabelle den obersten Wert anzeigen

[johammer]

Moin zusammen,

ich bräuchte den obersten Wert aus der Spalte C, der ist ungefiltert in der Zeile C4.
Wenn die Tabelle aber gefiltert wird, ist natürlich die oberste Zeile eine andere zB. C100.
Mit welcher Formel bekomme ich dann den obersten Wert angezeigt um damit eine andere
Aktion auszuführen?

Im Moment hab ich ein Brett vor'm Kopf   

Danke schonmal für nen Anschubser

Gruß Jo

[Klaus-Dieter]

Hallo,

habe ehrlich gesagt nicht verstanden, was du meinst. Wie wäre es mit einer Beispieldatei, wo man das nachvollziehen kann.

[Ralf A]

...ich vermute mal, Du willst den Max-Wert aus Spalte C. Das ist ja weiter kein Problem. Zum Problem wird es ja erst dann, wenn der Maxwert nicht zur Filterauswahl gehört. 
Heißt:  Du kannst nicht gleichzeitig filtern und erwarten, dass der Wunschwert immer zum Filterergebnis gehört. 
Abhilfe: Lass den Maxwert der Spalte C in einer Zelle anzeigen, die nicht zum gefilterten Datenbereich gehört.
=Max(C:C)

[johammer]

Hallo Ralf,

ich benötige einfach nur den Wert,
der wenn gefliltert wird dann in der obersten Zelle steht,
wird gebraucht, wie schons erwähnt um damit eine andere Aktion auszulösen.
Dabei ist es in Spalte C:C ein Text und kein Zahlenwert,
dann bringt mir MAX oder auch MAXWENN nicht viel, oder?

Ich werde die Datei ein wenig abspecken und mal hochladen.
Danke für die schnelle Rückmeldung auch an Klaus Dieter.

Gruß Jo 

[snb]

Wichtig ist nur: welche andere Aktion  ????

[00202]

Moin,  

also Filterzeile ist die Dritte? Dann so:
[attachment=51953]

Im Beispiel mit Formel und VBA.

[Ralf A]

...ich hätte auch noch ein VBA Beispiel:

PHP-Code:

Sub ErsteZeile_des_sichtbarenBereichesfürSpalteC_Ermitteln()
    Dim rng As Range, ar As Areas, adr As String
    'Bereichsadresse anpassen....
    Set rng = Range("A2:C748").SpecialCells(xlCellTypeVisible)
    Set ar = rng.Areas
        If ar.Count = 1 Then
            adr = Cells(ar(1).Offset(1).Row, 3).Address(0, 0)
        Else
            adr = Cells(ar(2).Row, 3).Address(0, 0)
        End If
    MsgBox "Adresse: " & adr & vbCrLf & "Wert: " & Range(adr).Value
    
End Sub 


[{Boris}]

Hi,

siehe  Ermittlung des soundsovielten Wertes in einer gefilterten Liste (herber.de)

[snb]

Code:

Sub M_snb()
  ListObjects(1).DataBodyRange.SpecialCells(12).Cells(1, 1).Select
End Sub

[johammer]

Hallo Leute,

vielen Dank an Alle helfenden.   
Der Tip von Boris hat mir weitergeholfen,
ist genauso wie ich mir das gedacht habe,
um den ersten Wert einer Spalte auszulesen,
weil, wird gebraucht um in einer anderen Zelle einzufügen
um damit eine Summenberechnung zu machen.

Hab eben eine Vergleichsweise gleiche Tab gemacht um hochzuladen,
Boris ist mir zuvorgekommen, ok.

Die VBA-Code's von snb, Case und Ralf kann ich evtll.
in einer anderen Tabelle gebrauchen. Merci. 

LG Grüße aus dem schönen Rheinland

Jo