Blätter auswählen
19.06.2003 16:25:07
Klaus
Ich habe folgenden Code und möchte ihn mit eure Hilfe verbessern.
Application.ScreenUpdating = False
ThisWorkbook.Sheets(Array("sem01", "sem02", "sem03")).Copy
ActiveWorkbook.SendMail "krysatis@yahoo.de"
ActiveWorkbook.Close savechanges:=False
Application.OnTime NextTime, "horaire 2003"
Mir geht es darum dass ich nicht jedesmal in den Makro die 52Blätter schreiben muss( siehe oben "sem01", "sem02")
Ich möchte dass Excel die Sheets sem01 u.s.w. automatisch jedesmal wenn das Makro ausgeführt wird in der Mappe horaire 2003 eine Woche (ein blatt)weiterspringt.
Also diese Woche haben wir z.B. sem01 nächste Woche sem02 auf Knopfdruck soll nunautomatisch Excel automatisch die Mappe horaire 2003 öffnen mit dem Blatt sem 02,nächstesmal mit Blatt sem03 u.s.w
Ich hoffe es war nicht zu kompliziert
Dank und gruss
Klaus