folgender Code macht noch nicht das was er soll,
Soll füllen Bereich F15:AJ17 und Bereich F21:AJ23
Code füllt momentan F15:AJ18 und F21:AJ24
also pro Bereich eine Zeile zu weit.
Die Fett markierte Zeile verstehe ich noch nicht so richtig, bitte helft mir mal dabei.
Sub FarbeAuslesen2()
Dim spalte As Long
Dim eintrag As String
Dim zeile As Long
For zeile = 12 To 18 Step 6 ' Auslesezeilen 12 u. 18 ; Kann das Step weg?
For spalte = 6 To 36
If Cells(zeile, spalte) = "" Then Exit For
If Weekday(Cells(zeile + 2, spalte), vbMonday) Cells(zeile + 3, spalte).Resize(Cells(zeile + 3, 1).End(xlDown).Row - (zeile + 2), 1). _
Value = eintrag
End If
Next
Next
End Sub
Gruß MatthiasPs.: Ist umgebauter VBA-Code von Hary