Clever-Excel-Forum - VBA - Wenn Datum Heute Wert aus Tabellenbereich automatisch zeigen.

Wenn Datum Heute Wert aus Tabellenbereich automatisch zeigen.

Um mich nicht mit großen Erzählungen zu verzetteln und alle durcheinander zu bringen habe ich die Datei eingefügt.

Wie kann ich mein gesuchtes Resultat in ein Makro zusammensetzen? ..so das auf Button druck in der Zelle F19 das jeweilige Resultat erscheint?

Datei: [attachment=42512]

Danke im Voraus,

Niko

Hi

warum VBA.

F19 =MAX(INDEX($A$3:$Q$15;;VERGLEICH($H$1;$A$2:$Q$2;0)))

Gruß Elex

Vielen Dank für die Antwort, doch ich benötige es in VBA,
da in die dafür vorgesehene Arbeitsmappe sehr viele Zellen verbunden habe
und Array Formeln können nicht in verbunden Zellen funktionieren.
Das Ganze umbauen ist auch nicht möglich, deswegen auch mit VBA.

Jedenfalls Danke Smile

Niko

Hallo

so?

Code:
Sub Finde_Max()

    Dim TB As Worksheet, Spalte As Integer, Zeile As Integer, LR As Integer

    Dim Ze As Integer, WF, Mmax, ZRng As Range

    '*** Stammdaten Anfang

    Set TB = Sheets("Tabelle1")

    Ze = 2 'SuchZeile

    Set ZRng = Range("F19")

    '*** Stammdaten Ende

    Set WF = WorksheetFunction

    Spalte = WF.CountIf(TB.Rows(Ze), Date)

    If Spalte > 0 Then

        Spalte = WF.Match(CDbl(Date), TB.Rows(Ze), 0)

        LR = TB.Cells(TB.Rows.Count, Spalte).End(xlUp).Row

        Mmax = WF.Max(Cells(Ze + 1, Spalte).Resize(LR - Ze + 1, 1))

        ZRng = Mmax

    Else

        MsgBox Date & " nicht gefunden."

    End If

End Sub

LG UweD

Vielen Dank...super denk anstoss!