Sub
chart()
Dim
a
As
Date
Dim
anzahlberechnen1, anzahlberechnen2, j, k, intAnz, intAnz2
As
Integer
Dim
zelle
As
Variant
For
k = 2
To
Worksheets(
"tabelle1"
).Cells(Rows.Count, 6).
End
(xlUp).Row
zelle = Worksheets(
"tabelle1"
).Cells(k, 6).Value
a = Worksheets(
"tabelle1"
).Range(
"e"
& k).Value
If
(zelle =
"abgelehnt"
)
And
(Worksheets(
"tabelle2"
).Cells(k, 1) = MonthName(Month(a)))
Then
intAnz = intAnz + 1
end if
If
(zelle =
"bestätigt"
)
And
(Worksheets(
"tabelle2"
).Cells(k, 2) = MonthName(Month(a)))
Then
intAnz2 = intAnz2 + 1
End
If
Next
k
anzahlberechnen1 = intAnz
anzahlberechnen2 = intAnz2
With
Worksheets(
"tabelle2"
)
letzte_zeile = .Range(
"b65536"
).
End
(xlUp).Offset(1, 0).Row
For
j = 2
To
13
Cells(j, 2).Value = anzahlberechnen1
Cells(j, letzte_zeile + 1).Value = anzahlberechnen2
Next
j
End
With