07.07.2023, 18:46
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.
Wer würde mir hier unter die Arme greifen.
Gruß
Björn
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