Sub daten_veraenderung()

'On remplit un tableau avec les nouvelles dates du mois


Dim daten(8) As Integer

For i = 0 To 8

daten(i) = Cells(16 + i, 3)

Next

'Ensuite on parcours la ligne du tableau en remplaçant les anciennes dates par les nouvelles

Sheets(4).Activate


Dim Fahrtage As String, num_tage As Integer


For i = 3 To 100

Fahrtage = Cells(5, i)

Select Case Fahrtage

'Recherche du type de fréquence

Case Is = "tgl"
num_tage = daten(0)

Case Is = "Mo-Fr"
num_tage = daten(1)

Case Is = "Mo-Sa"
num_tage = daten(2)

Case Is = "Sa"
num_tage = daten(3)

Case Is = "S"
num_tage = daten(4)

Case Is = "Sa+S"
num_tage = daten(5)

Case Is = "Mo-Do"
num_tage = daten(6)

Case Is = "Fr+Sa"
num_tage = daten(7)

Case Is = "Fr"
num_tage = daten(8)

Case Else
Exit Sub

End Select

'On remplace les anciennes données par les nouvelles

For j = 7 To 300

If Cells(j, 2) = "Fahrten /VTR" Or Cells(j, 2) = "Fahrten /Betrachtungszeitraum" Then
Cells(j, i) = num_tage

End If

Next

Next

End Sub