aus der Tabelle ZS_Stunden brauche ich den MAX-Wert in Spalte B, wenn in Spalte G die Bedingung (aus uf_projekte.cbo_projekt_auswahl) erfüllt ist.
Leider erhalte ich immer nur den Max-Wert der gesamten Tabelle.
Public Sub LetzterEintrag()
Dim LetzteZeileStd As Long
Dim iZeile As Long
With Worksheets("ZS_Stunden")
LetzteZeileStd = .Range("A65536").End(xlUp).Row
With Sheets("ZS_Stunden")
For iZeile = 4 To LetzteZeileStd
If .Cells(iZeile, 7).Value = uf_projekte.cbo_projekt_auswahl Then
varLetzterEintrag = WorksheetFunction.Max(.Columns(2))
Exit For
End If
Next iZeile
End With
End With
uf_projekte.text_LetzterEintrag.Caption = Format(varLetzterEintrag, "dd.mm.yyyy")
End Sub
Kamm mir jemand auf die Sprünge helfen? Im Forum finde ich nur Ergebnisse zur Max-Wert ohne Bedingung in anderer Spalte...
LG
MichiM