Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingeblendetes Tabellenblatt aktivieren (VBA)

Eingeblendetes Tabellenblatt aktivieren (VBA)
06.03.2003 19:40:37
Heinz Ulm
Hallo VBA-Kenner,

folgenden Code habe ich von Euch erhalten und ein bisschen umgebaut.

Sub MenüsUndSymbAusblenden()
Dim cb As CommandBar
MenuBars.Add.Activate
For Each cb In CommandBars
cb.Enabled = False
Next
Titel = InputBox("Bitte Passwort eingeben")
If Titel = 1 Then Sheets("Grenzach").Visible = True Else
If Titel = 2 Then Sheets("Tabelle2").Visible = True Else
If Titel = 3 Then Sheets("Tabelle3").Visible = True Else End

'hier sollte das eingeblendete Tabellenblatt aktiviert werden.


End Sub

Es sind insgesamt ca. 20 verschiedene Tabellenblätter, die je nach Passwort eingeblendet werden sollen. Ist mein Gedankengang so richtig 20x if und wie lautet der Code zum aktivieren des gerade eingeblendeten Tabellenblattes, das ja immer ein anderes sein kann (tabelle 2 und 3 sind nur Beispiele)?

Für eure Hilfe bedanke ich mich im vorraus.

Heinz





3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Eingeblendetes Tabellenblatt aktivieren (VBA)
06.03.2003 22:32:19
Ramses

Hallo,

um das ganze etwas übersichtlicher zu gestalten würde ich eine
Select Case
Anweisung einbauen

Gruss Rainer


Re: Eingeblendetes Tabellenblatt aktivieren (VBA)
06.03.2003 22:32:21
Ramses

Hallo,

um das ganze etwas übersichtlicher zu gestalten würde ich eine
Select Case
Anweisung einbauen

Gruss Rainer


Danke, Erledigt
07.03.2003 15:32:36
Heinz Ulm

Hallo Ramses,

kam gerade erst dazu dein Makro zu testen,
Klappt ausgezeichnet,

Danke für deine Hilfe.

Gruß Heinz

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige