Kalenderwochenzähler funktioniert nicht
14.11.2018 16:09:37
Bruno
ich möchte in A:A Daten zählen die in der ersten Kalenderwoche sind.
Beispiel:
1.1.2018
2.1.2018
24.12.2018
Ergebnis: 2
Dazu habe ich eine Schleife geschrieben die aber irgendwie nicht funktionieren will:
Sub KalenderWoche()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 1 To 5
'ZeileMax
DateOrg = Worksheets("Tabelle1").Cells(Zeile, 1).Value
MsgBox (DateOrg)
KWZ = KW_DIN(DateOrg)
If KWZ = "1" Then KWZ = KWZ + 1
MsgBox (KWZ)
n = n + 1
Next Zeile
End With
MsgBox (KWZ)
End Sub
Dazu gibt es noch eine Function die für das Zählen der Kalenderwoche zuständig ist:
Function KW_DIN(Datum)
KW_DIN = DatePart("ww", Datum, vbSaturday, vbFirstFourDays)
End Function