Hallo liebe Helfer,
ich habe folgendes vor:
In der Firma endet und startet der Monat etwas verschoben.
Der Monat Januar startet normal am 1. Januar und geht bis zum ersten Freitag im Folgemonat.
Am ersten Samstag darauf startet der Folgemonat, also der Februar und geht bis zum ersten Freitag im märz. Immer so weiter, nur der Dezember endet wieder normal am 31.12
Habe mir folgendes überlegt, nur leider funktioniert es noch nicht so ganz mit dem Datum:
Er schreibt mir wilde Monate & Jahreszahlen anstatt den Vormonat an die richtige Stelle.
Mit den Stellen passt es soweit denke ich.
Dim TagAnf As Date, TagEnde As Date, Datenblatt As Worksheet
Dim i As Long, Nr As Integer, Pos As Long, Tag As String, Tag2 As Double, Monat As String, Monat2 As Double, Sprung As String, Sprungtag As Integer
Dim zähler As Integer
Set Datenblatt = Worksheets("tabelle1")
With Datenblatt
i = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For Pos = 1 To i
Tag = Format(Cells(Pos, 1).Value, "dddd")
Tag2 = Format(Cells(Pos, 1).Value, "dd")
Monat = Format(Cells(Pos, 1).Value, "mmmm, yyyy")
Monat2 = Format(Cells(Pos, 1).Value, "mm")
For Nr = 1 To 7
If Tag = "Freitag" And Tag2 = Nr And Not Monat = "Januar" Then
Monat2 = Monat2 - 1
Sprung = "Yes"
Sprungtag = Nr
Exit For
Else
Sprung = "No"
End If
Next
If Sprung = "Yes" Then
Nr = Sprungtag - 1
For zähler = 1 To Nr
Cells(Pos - zähler, 2) = Format(Monat2, "mmmm, yyyy")
Next
Else
Cells(Pos, 2) = Monat
End If
Next
End Sub
Wäre super wenn mir da jmd. Licht ins Dunkel bringen kann =)
Lg
Adrian