Freitage als leere Zeile einfügen

Hallo liebes Forum,
ich habe ein Problem, dass ich es nicht schaffe mir über VBA ein Makro zu erstellen, das mir leere Zeilen mit dem Datum der kommenden Freitage in Spalte AG einfügt. Ich habe es selbst versucht aber bekomme es nur hin, dass mir jeder Tag ausgegeben wird. Wie kann ein solches Kriterium, dass nur Freitage erscheinen sollen realisiert werden? die Freitage der nächsten 4 Monate wären sinnvoll. Ich habe bereits vieles versucht aber nichts möchte so wirklich funktionieren. daher hoffe ich, dass ich auf diesem Wege ein paar Tipps erhalten kann
Die Datei ist hier abgelegt:
https://www.herber.de/bbs/user/150431.xlsx
Es soll also folgendes können: Spalte AG durchlaufen und fehlende Freitage im Zeitraum der nächsten 4 Monate als leere Zeilen einfügen
ich hoffe es war verständlich und jemand kann mir das behilflich sein
Liebe Grüße und danke im Voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Freitag() Dim i As Integer Dim iFreitag As Integer Dim loLetzte As Long loLetzte = Cells(Rows.Count, 1).End(xlUp).Row For i = loLetzte + 1 To 3 Step -1 If Cells(i, 1) Cells(i - 1, 1) Then 'andere Auftragsnummer If Weekday(Cells(i - 1, 33), vbMonday) 5 Then 'noch kein Freitag vorhanden Rows(i).Insert Shift:=xlDown iFreitag = Cells(i - 1, 33) - Weekday(Cells(i - 1, 33)) + 6 'nächsten Freitag ermitteln Cells(i, 33) = iFreitag 'Datum des Freitags eintragen 'Cells(i, 1) = Cells(i - 1, 1) 'bei Bedarf Auftragsnummer eintragen End If End If Next End Sub

Hallo
Der Freitag ist ein Datum und damit der Zahlenwert schon größer als 32.767 (Integergrenze)
Deklariere als Long..
Ungeprüft...


Sub Freitag()
Dim i As Integer
Dim loFreitag As Long
Dim loLetzte As Long
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For i = loLetzte + 1 To 3 Step -1
If Cells(i, 1)  Cells(i - 1, 1) Then      'andere Auftragsnummer
If Weekday(Cells(i - 1, 33), vbMonday)  5 Then     'noch kein Freitag vorhanden
Rows(i).Insert Shift:=xlDown
loFreitag = Cells(i - 1, 33) - Weekday(Cells(i - 1, 33)) + 6    'nächsten Freitag ermitteln
Cells(i, 33) = loFreitag           'Datum des Freitags eintragen
'Cells(i, 1) = Cells(i - 1, 1)    'bei Bedarf Auftragsnummer eintragen
End If
End If
Next
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Freitage als leere Zeile einfügen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Freitage als leere Zeile einfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread