Alle Worksheets ansprechen...
12.05.2003 18:10:45
Claus
Ich habe eine Tabelle mit mehreren Blättern und möchte UNABHÄNGIG vom Namen der Blätter jeweils in Zelle A1 das aktuelle Datum beim Öffnen der Tabelle einfügen...Wie muß ich es machen, dass sich alle Worksheets angesprochhen fühlen? Bitte helft...
Private Sub workbook_open()
Range("a1").Select
Selection.ClearContents
Worksheets("Name soll egal sein").Cells(1, 1).Value = Format(Date, "dd.mm.yyyy")
End Sub
Danke, Claus
Anzeige