Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige