Gruppe
Funktion
Bereich
ZÄHLENWENN
Thema
Zusagen einer Einladung ermittteln
Problem
Wie kann ich ermitteln, wieviel Einladungen bisher beantwortet bzw. nicht beantwortet wurden und wieviel Zusagen mit wieviel Personen bisher vorliegen?
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim iRow As Integer
With Worksheets("Tabelle1")
iRow = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
Application.Goto .Cells(iRow, 1), True
End With
End Sub