Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Laufzeitfehler 1004

Laufzeitfehler 1004
11.05.2005 21:42:39
Peter
Hallo,
bin am verzweifeln, wo liegt der Fehler?
Die Namen sind alle richtig geschrieben.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets(Array("Jan-06", "Febr-06", "März-06", "Apr-06", "Mai-06", "Juni-06", "Juli-06", "Aug-06", "Sept-06", "Okt-06", "Nov-06", "Dez-06")).Visible = False
Worksheets("Jan-05").Visible = True
Worksheets("Febr-05").Visible = True
Worksheets("März-05").Visible = True
Worksheets("Apr-05").Visible = True
Worksheets("Mai-05").Visible = True
Worksheets("Juni-05").Visible = True
Worksheets("Juli-05").Visible = True
Worksheets("Aug-05").Visible = True
Worksheets("Sept-05").Visible = True
Worksheets("Okt-05").Visible = True
Worksheets("Nov-05").Visible = True
Worksheets("Dez-05").Visible = True
Worksheets("2005").Visible = True

Sheets("Haupt-Blatt").Activate
Application.ScreenUpdating = True
Mfg. Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
11.05.2005 21:49:56
Tinu
Hallo Peter
versuch mal, ob der Code läuft, wenn du das Screen Updating nicht unterdrückst!
Gruss
Tinu
AW: Laufzeitfehler 1004
11.05.2005 22:02:11
Kurt
Hi,
ist sicher, dass min. ein Blatt sichtbar ist? Blende erst ein,dann aus.
Warum nicht für die einzublendenden Blätter auch ein Array?
mfg Kurt
AW: Laufzeitfehler 1004
11.05.2005 22:41:40
Peter
Hallo
habe "Application.ScreenUpdating = True " rausgenommen, bringt ebenfalls nicht den Erfolg. Mit der Array beim Einblenden habe ich nur Schwierigkeiten, habe es jetzt so probiert, und es funktioniert nur teilweise. Werde Morgen mal eine Datei hochladen
noch einen schönen Abend
Petr
Anzeige
AW: Laufzeitfehler 1004
12.05.2005 07:14:36
GeorgK
Hallo Peter,
das läuft bei mir:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets(Array("Jan-06", "Febr-06")).Visible = False
Worksheets("Jan-05").Visible = True
Worksheets("Febr-05").Visible = True
Sheets("Haupt-Blatt").Activate
Application.ScreenUpdating = True
End Sub

Grüße
Georg
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige