Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ausblenden und Einblenden Laufzeitfehler 1004

Ausblenden und Einblenden Laufzeitfehler 1004
12.05.2005 21:31:24
peter
Hallo,
ich möchte gern beim Start der Mappe, das nur 1 TB (Hauptblatt)von ca. 31 TB sichtbar ist.
Nun habe ich 2 Button erstellt womit ich jeweils 15 TB aufrufe.
Ich bekomme aber fast immer eine Fehlermeldung beim starten der Mappe. (Laufzeitfehler 1004)
Drücke ich ausversehen 2 mal den gleichen Button auf der Hauptseite kommt der gleiche Fehler.
Gibt es eine Möglichkeit das hinzubekommen?
Habe mal eine Versuchsdatei angehängt.
Mfg. Peter
https://www.herber.de/bbs/user/22533.xls
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden und Einblenden Laufzeitfehler 1004
12.05.2005 22:19:32
peter
Hallo Hubert,
vielen Dank für Deine Antwort, klappt sehr gut.
Wie bekomme ich es hin, das beim öfnen der Mappe nur das Haupt-Blatt sichtbar ist?
Durch drücken auf "2005" oder "2006" sollen dann die entsprechnden TB eingeblendet werden.
Mfg. Peter
Anzeige
AW: Ausblenden und Einblenden Laufzeitfehler 1004
12.05.2005 22:56:14
peter
Hallo Hubert,
einfach Klasse, wie schnell man hier eine Antwort bekommt.
Habe aber eine Fehlermeldung "SUB oder Funktion nicht defeniert"
Habe mir mit der anderen VBA Lösung aus Deiner 1 Datei beholfen.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
If InStr(ws.Name, "05") > 0 Then
ws.Visible = False
End If
Next
For Each ws In Worksheets
If InStr(ws.Name, "06") > 0 Then
ws.Visible = False
End If
Next
Application.ScreenUpdating = True
End Sub

Mfg peter
Anzeige
AW: Ausblenden und Einblenden Laufzeitfehler 1004
12.05.2005 23:07:20
Reinhard
Hallo Peter,

in DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each ws In Worksheets
If ws.Name <> "Haupt-Blatt" Then ws.Visible = False
Next ws
End Sub
In ein Modul:
'2005
Sub Button_2005()
Call EinCodeFürBeide(5)
End Sub
'2006
Sub Button_2006()
Call EinCodeFürBeide(6)
End Sub
Sub EinCodeFürBeide(B As Integer)
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Haupt-Blatt" Then ws.Visible = InStr(ws.Name, B) > 0
Next ws
'MsgBox ActiveSheet.Shapes("Button " & Right(Application.Caller, 1)).Characters.Text
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
Anzeige
AW: Ausblenden und Einblenden Laufzeitfehler 1004
12.05.2005 23:10:20
Reinhard
Hallo Peter,
vielleicht liest du ja nicht mehr meinen Beitrag, deshalb hier nochmal, damit du Mldung bekommst, vielleicht gefällt dir ja meine Lösung.
Gruß
Reinhard
AW: Ausblenden und Einblenden Laufzeitfehler 1004
13.05.2005 00:19:01
peter
Hallo Reinhard
vielen Dank, klappt sehr gut.
Mfg.peter
;

Forumthreads zu verwandten Themen

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