In Spalte 1 stehen Termine.
In Zelle A3 steht eine Zahl. Diese Zahl soll ein Betrachtungszeitraum in Monaten darstellen.
Wenn also Termine innerhalb der letzten drei Monate liegen (siehe angehängte Tabelle), dann soll in Zelle B1 gezählt werden, wieviele Termine in diesem Zeitraum liegen.
In der Tabelle sind also zwei Termine innerhalb der letzten drei Monate. Einer ist weiter in der Vergangenheit. Aber meine Routine, die in meinen Augen logisch erscheint, funktioniert nicht.
Bitte um fachmännische Hilfe. Danke, Alexander.
Private Sub CommandButton1_Click()
x = 1
Do Until Application.WorksheetFunction.CountBlank(Worksheets(2).Rows(x)) = 256
x = x + 1
If DateDiff("m", Now, Sheets(1).Cells(x, 1)) <= Sheets(1).Cells(1, 3) Then
Sheets(1).Cells(1, 2) = Sheets(1).Cells(1, 2).Value + 1
End If
Loop
End Sub
|