Datums Schleife für die KW
22.02.2019 13:17:41
Giorgi
Ich bin an einer Projektdatei dran und möchte per VBA folgendes:
Ich hab ein Startdatum in Zelle A4 dd.mm.yyyy und möchte dementsprechend mir die KW anzeigen lassen.Dies habe ich mit dem folgenden Code unten auch lösen können.
Mir wird die KW in Zelle E1 angezeigt. Nun möchte ich jedoch, dass die KW alle 4 Spalten um +1 addiert wird. (Also in I1 KW aus E1 +1 in M1 KW aus E2+2 bis das Jahr zu Ende ist)
Desweiteren soll am Anfang der Spalte also in I2 das Anfangsdatum (der Montag) der KW stehen und in L2 dann das Datum aus I2 plus 4 Tage (D.h. mir den Freitag anzeigen lassen). Dies soll dann automatisch durch eine Schleife für jede KW Spalte durchgeführt werden bis zum Ende des Jahres.
Ich bin für jeden Tipp sehr dankbar.
Datum Formatierung
Public Sub kw_ermitteln()
'kw = DINKw("01.08.2002")
kw = DINKw(Range("A4"))
Range("E1").Value = kw
End Sub
Function DINKw(dat As Date) As Integer
Dim kw As Integer
kw = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If kw = 0 Then
kw = DINKw(DateSerial(Year(dat) - 1, 12, 31))
ElseIf kw = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 Gruß Giorgi