Hallo zusammen,
mit dem Marko von Rainberg (danke nochmals dafür) errechne ich momentan die KW. Allerdings habe ich festgestellt, dass spät. im Januar die KW nicht mehr stimmt. Nun habe ich gelsen, dass man über Funktion .... DIN1355 die "Deutsche" KW anzeigen lassen kann. Ich habe allerdings das Problem, dass ich diese nicht in vernünftig und funkionsfähig einbauchen kann.
Das Makro sieht folgender maßen aus:
Sub kw()
With Worksheets(1)
If IsDate(.Range("G" & ActiveCell.Row)) = True Then
.Range("H" & ActiveCell.Row) = WorksheetFunction.WeekNum(.Range("G" & ActiveCell.Row), 1)
End If
End With
End Sub
Kann mir hier jemand bei helfen? Danke dafür schon mal im Voraus.
Gruß
Florian