Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Worksheets ansprechen...

Alle Worksheets ansprechen...
12.05.2003 18:10:45
Claus
Hi Leute!

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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alle Worksheets ansprechen...
12.05.2003 18:14:07
Oliver

Hallo Claus,

For Each ws In Worksheets
ws.Cells(1,1)...usw
Next ws

siehe OnlineHilfe von VB

Gruß
Oliver

Nicht ganz...
12.05.2003 18:17:12
Boris

Hi Oliver, hi Claus,

aus der Hand:

Dim ws as Worksheet
For each ws in Thisworkbook.Worksheets
ws.[A1] = Format(Date, "dd.mm.yyyy")
Next ws

Also Thisworkbook fehlte zumindest.

Gruß Boris

Klappt :-)
12.05.2003 18:47:12
Claus

Danke, es funzt super... ;-)))


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige