Gruppe
Funktion
Problem
Wie kann ich ermitteln, wieviel Einladungen bisher beantwortet bzw. nicht beantwortet wurden und wieviel Zusagen mit wieviel Personen bisher vorliegen?
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