Ich möchte das jeweils richtige Datum über Buttons generieren,
allerdings musste ich folgendes Macro und auch die dazugehörenden Buttons je Tabellenblatt ca 120 mal kopieren.
Gibt es eine andere/bessere Lösung ?
Sub Datum2()
Range("C17:C18").Select
ActiveSheet.Unprotect
ActiveCell.FormulaR1C1 = (Now)
Range("D17:E18,G17:L18").Select
Selection.Locked = False
Range("D17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub