Der Jahresdienstplan unter der Tabelle Dienst soll auf die jeweiligen Monate verteilt werden
Mein Ansatz war dieser
Sub Schaltfläche1_Klicken()
Call copy2month("Februar", 4, 5)
End Sub
Sub copy2month(monat As String, tagezeile As Integer, wertezeile As Integer)
Dim tage(30) As String
Dim werte(30) As String
Dim i As Integer
For i = 0 To 30
tage(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
werte(i) = Sheets("Dienst").Cells(tagezeile, 5 + i).Value
Next i
i = 0
For j = 0 To 59 - 18
If tage(i) = Sheets(monat).Cells(18 + j, 3).Value Then
Sheets(monat).Cells(18 + j, 1).Value = werte(i)
i = i + 1
End If
Next j
End Sub
Aber mit dem komme ich nicht weiter Hier meine Test-Datei
https://www.herber.de/bbs/user/150613.xlsm
Habt Ihr eine Idee
Gruß Bernd