WiZdooM
Erfahrenes Mitglied
Hallo
Ich habe eine Tabelle mit 2000 Zeilen.
Darin stehen etwas verstreut die Kalenderwochen.
Nun muss ich die Anzahl der Einträge für jede Kalenderwoche ermitteln.
Wenn ich nun KWStats in einer Schleife ausgeben lasse, kriege ich zwar die Kalenderwochen angezeigt für die ein Eintrag existiert, aber nicht die Anzahl. die ist immer 0.
Ich finde den Fehler nicht...
Ich habe eine Tabelle mit 2000 Zeilen.
Darin stehen etwas verstreut die Kalenderwochen.
Nun muss ich die Anzahl der Einträge für jede Kalenderwoche ermitteln.
Code:
For n=2 To 2000
KW1 = Sheets("Tabelle1").Cells(n, 1).Value 'Variablenzuweisung
KW2 = Sheets("Tabelle1").Cells(n + 1, 1).Value 'Variablenzuweisung
'--------Hochzählen der KW solang KW gleich der KW ein Zelle tiefer---------
If KW1 = KW2 And KW2 <> 0 Then
GesAnzahl = GesAnzahl + 1
KWStats(KW1, 1) = GesAnzahl
End If
Next n
Wenn ich nun KWStats in einer Schleife ausgeben lasse, kriege ich zwar die Kalenderwochen angezeigt für die ein Eintrag existiert, aber nicht die Anzahl. die ist immer 0.
Ich finde den Fehler nicht...