VBA_Wochentag suchen

[Björn.412]

Moin,
ich versuch mich mal wieder an etwas mit vba.

Ich habe einen Kalender, den ich mittels VBA für jedes Jahr automatisch dem neuen Jahr anpassen kann, sodass Tage, Datum und Feiertage passen.

Jetzt würde ich diesen gerne erweitern, sodass wenn ich das Kalenderjahr ändere, zwei Zeilen über jeden Montag und drei Spalten weiter rechts "KGW" in die Zelle geschrieben wird.

In dem Kalender stehen in der Zeile 7 von "H7-NN7" die Wochentage, also von Montag bis Sonntag und wieder von vorn ...
In der 6. Zeile stehen die Daten zu den entsprechenden Wochentagen.


Ich habe Folgendes versucht, wobei ich erst mal die Abürzung "KGW" zwei Zeilen direkt über den Montagen eintragen lassen wollte, aber das klappt auch nicht.

Code:

Dim i As Integer

    With Sheets("Kalender")
     For i = 6 To .Cells(7, .Columns.Count).End(xlToLeft).Column
            If .Range("H7:NN7" & i) Like "*Montag*" Then .Range("H5:NN5" & i) = "KGW"

        Next i

    End With

Wer würde mir hier unter die Arme greifen.

Gruß
Björn

[Kuwer]

Hallo Björn,

Code:

Dim i As Long

  With Sheets("Kalender")
    For i = 6 To .Cells(7, .Columns.Count).End(xlToLeft).Column
      If .Cells(7, i).Value Like "*Montag*" Then .Cells(7, i).Offset(-2, 2).Value = "KGW"
    Next i
  End With

Gruß, Uwe

[Björn.412]

Moin Uwe,
danke für Deine Unterstützung.

Spalten ausfüllen mit Cells, daran hat es gescheiter.....

Gruß
Björn