VBA - Wenn Datum Heute Wert aus Tabellenbereich automatisch zeigen.

[Niko]

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:
  Wenn_datum_heute.xlsm (Größe: 9,95 KB / Downloads: 5)

 
Danke im Voraus,



 Niko

[Elex]

Hi

warum VBA.

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

Gruß Elex

[Niko]

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


Niko

[UweD]

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

[Niko]

Vielen Dank...super denk anstoss!