Ich habe eine Spalte C für Feiertage.
In manchen Zellen der Spalte C stehen also Feiertage eingetragen.
Mein Ziel:
Wenn in der Zelle x ein Feiertag steht, soll in der Reihe, also in der entsprechenden Zeile von Spalte 4 bis 33 ein "F" für Feiertag eingetragen werden.
Mal ne Skizze wie das aussehen soll:
Spalte C Hans Udo Lala
Neujahr F F F
Fronleichnam F F F
.......
Mein Code:
For intzeile = 2 To 366
If Sheets(CStr(nextjahr)).Cells(intzeile, 3).Value <> "" Then
For intspalte = 4 To 33
Sheets(CStr(nextjahr)).Cells(2, intspalte).Value = "F"
Next intspalte
End If
Next intzeile
DAS PROBLEM:
Er führt den Befehl nur für die 1. Zeile, also für Neujahr aus !!
Die andern macht er nicht.
Hat jemand ne Idee??
Danke !!