Range("B5").Select
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "=(WEEKNUM(RC[1]))"
ActiveCell.Offset(1, 1).Select
Loop
Leider ergibt mir diese Funktion für dieses Jahr die falschen Werte zurück. Ich habe deshalb folgende Funktion versucht:
Range("C16").Select
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "=ISOKALENDERWOCHE(RC[1])"
ActiveCell.Offset(1, 1).Select
Loop
Aber leider wird mit dann "#Name? angezeigt. Wenn ich nach beenden des Makros da rein klicke erscheint zwar die richtige Kalenderwoche, aber verwenden kann ich es so natürlich nicht :(
Ich habe verschiedene andere Wege ausprobiert, aber leider habe ich keine Lösung gefunden.