Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Programmstartprobleme!

Forumthread: Programmstartprobleme!

Programmstartprobleme!
26.02.2006 19:06:24
Herbert
Hallo Leute, wenn ich ein programm starte, dann werden über einen code verschiedene Blätter sichtbar gemacht und ein Blatt selektiert!
Das Problem ist, wenn ich das Programm Starte, dann werden alle Blätter, die sichtbar gemacht werden kurz eingeblendet! Weiss jemand, wie ich das vermeidenkann?
Besten Dank im Voraus. Unten der Code!

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Start").Visible = True
Sheets("Start").Select
Tabelle1.Cells(14, "c").Select
ActiveWindow.Zoom = 83
ThisWorkbook.Sheets("GatterHDN4 32").Visible = True
ThisWorkbook.Sheets("GatterHDN8 56").Visible = True
ThisWorkbook.Sheets("GatterSL 8").Visible = True
ThisWorkbook.Sheets("GatterSL 62").Visible = True
ThisWorkbook.Sheets("Messerbalken").Visible = True
ThisWorkbook.Sheets("Bändchentabelle").Visible = True
ThisWorkbook.Sheets("Gewicht").Visible = True
ThisWorkbook.Sheets("Info").Visible = True
ThisWorkbook.Sheets("load").Visible = True
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Programmstartprobleme!
26.02.2006 19:09:08
Ramses
Hallo

Private Sub Workbook_Open()
Application.ScreenUpdating = False
ThisWorkbook.Sheets("GatterHDN4 32").Visible = True
ThisWorkbook.Sheets("GatterHDN8 56").Visible = True
ThisWorkbook.Sheets("GatterSL 8").Visible = True
ThisWorkbook.Sheets("GatterSL 62").Visible = True
ThisWorkbook.Sheets("Messerbalken").Visible = True
ThisWorkbook.Sheets("Bändchentabelle").Visible = True
ThisWorkbook.Sheets("Gewicht").Visible = True
ThisWorkbook.Sheets("Info").Visible = True
ThisWorkbook.Sheets("load").Visible = True
ThisWorkbook.Sheets("Start").Visible = True
Sheets("Start").Select
Tabelle1.Cells(14, "c").Select
ActiveWindow.Zoom = 83
Application.ScreenUpdating = true
End Sub

Gruss Rainer
Anzeige
AW: Programmstartprobleme!
26.02.2006 19:34:48
Herbert
Hallo Rainer,
danke, hat sofort geklappt!
Viele Grüße
Herbert
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige