Schleife zur Prüfung des Datums

Beitragvon legacys » 23. Sep 2014, 17:20
Hallo Zusammen,

ich bin ein vba frischling und hoffe, dass Ihr mir helfen könntet.

ich möchte aus tabellenblat 1 Einträge nach dem Eingangsdatum prüfen, Bearbeiten und dann in tabellenblatt2 ausgeben.
hier zur weiteren Eräuterung:

die tabellenblatt 1 hat zb. 3 Spalten in denen die daten so aufgelistet sind.

Auträge, Eingangsdatum,    Stand
af 1             10.02.2014        bestätigt
af 2            14.02.2014        abgeleht
af 3            03.03.2014        abgelehnt
af 4            07.04.2014        bestätigt
af 5           10.04.2014        abgelehnt
af 6           19.05.2014        abgelehnt
af 7           20.06.2014        bestätigt
af 8          12.07.2014        abgeleht
af 9          17.07.2014        bestätigt

jetzt möchte ich dass das Ergebnis in Datenblatt2 so aussieht:
Monate bestätigt abgelehnt

Monate bestätigt  abgelehnt
Januar           0        0
Februar         1        0
März               1        2
April               2        1
Mai                3         2
Juni               2        0
Juli                4        3
August          2      1
September  1      1

also für jeden Monat sozusagen einen Bericht bzw. Auswertung der bestätigten und abgelehnten Aufträge erhalten.


hier ist mein Code dafür, jedoch die Schleife für die Datumprüfung bleibt immer beim ersten eingetragenen Auftrag stehen.
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 = "offen" Or zelle = "Offen") And (Worksheets("tabelle2").Cells(k, 1) = MonthName(Month(a))) Then
intAnz = intAnz + 1
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If (zelle = "Absage" Or zelle = "Absage") 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

würde mich freuen auf eure Antworten.

Grüße

LEGACYS