Ausfüllen fehlender Kalenderwochen
23.04.2018 17:34:16
Heinz
folgende Herausforderung:
Ich habe eine Startspalte in der ein Startdatum steht (Zelle A1, KW 1) und eine Endspalte in der das Enddatum steht (Zelle C1, KW 10). Start- und Enddatum sollen variabel sein und beziehen sich auf ein Prämissenblatt.
In B1 steht KW 1 +1 und dort befinden sich weitere Formeln mit denen ich die "fehlenden" Kalenderwochen ausfüllen möchte. Also soll Spalte B so lange kopiert werden, bis alle KW 1-10 enthalten sind.
Folgendes war nun mein Ansatz:
If ActiveSheet.Range("B1") + 1 ActiveSheet.Range("C1") Then ActiveSheet.Columns("B:B").Copy
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
If ActiveSheet.Range("C1") + 1 ActiveSheet.Range("D1") Then ActiveSheet.Columns("C:C").Copy
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
usw.
Meine Fragen:
1. Das muss über eine Schleife doch einfacher gehen?
2. Wie bekomme ich hin, dass es zum gewünschten Zeitpunkt endet?
Ich bedanke mich für alle Antworten!