Aktueller Monat in allen TB

Forumthread: Aktueller Monat in allen TB
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Aktueller Monat in allen TB

06.07.2005 16:52:30

Josef

Guten Tag,
kann mir bitte jemand helfen, dass unten stehende Makro so abzuändern, so das alle TB diese Funktion ausführen?
Die Namen der TB sind: Jan, Feb, Mrz bis Dez.


Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
Columns(1).Find(What:=DateSerial(Year(Date), Month(Date), 1), lookat:=xlWhole, LookIn:=xlValues).Activate
End Sub

Vielen Dank schon mal
Guss
Josef

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aktueller Monat in allen TB

06.07.2005 16:58:57

ingoG
Danke Ingo, alles Super

06.07.2005 17:23:04

Josef
Danke für die Rückmeldung oT

06.07.2005 22:44:00

ingoG

AW: Aktueller Monat in allen TB

06.07.2005 16:58:57

ingoG

hallo Josef,
versuchs mal so:
gruß Ingo
PS eine Rückmeldung wäre nett...


Private Sub Workbook_Open()
dim ws as worksheet
for each ws in thisworkbook.worksheets
ws.Columns(1).Find(What:=DateSerial(Year(Date), Month(Date), 1), lookat:=xlWhole, LookIn:=xlValues).Activate
next ws
End Sub