Question

Hallo Rainer, wie lautet der Befehl um nur ein Register aus bzw. einzublenden?
Bei dem Befehl:
Sub Schaltfläche1_BeiKlick()
ActiveWindow.DisplayWorkbookTabs = Not (ActiveWindow.DisplayWorkbookTabs)
End Sub

werden alle Reiter unten ausgeblendet. ich möchte aber, einzelne durch mehrere
Schaltflächen ein ausblenden können.

Danke im voraus.

Answer 1

Hallo,

ich heiße zwar nicht Rainer ;-), aber der Befehl zum ausblenden eines Tabellenblatts lautet:

Worksheets("Tabelle1").Visible = False

Mit

Worksheets("Tabelle1").Visible = xlVeryHidden

kann das Blatt nur per VBA wieder eingeblendet werden.

Das Einblenden von Arbeitsblättern erfolgt mit dem Befehl

Worksheets("Tabelle1").Visible = True

Gruß

M.O.

Answer 2

Hallo M.O.

beim eingeben des Befehls zum ausblenden kommt ständig,
"laufzeitfehler 9" dabei raus.

Sorry, aber das ist mein erster versuch ein Makro zu schreiben.

Danke für deine Hilfe

Answer 3

Hallo,

du musst für "Tabelle1" natürlich den Namen deines Arbeitsblattes angeben, das du aus- bzw. einblenden willst, also z.B.

Worksheets("Übersicht").Visible = False

Gruß

M.O.

Answer 4

Erstmal, danke für die schnelle Antwort,

ja, das war mir auch bewusst, dass ich da den Namen meines
Registers eintragen muss, aber es kommt die selbe Fehlermeldung.

"Laufzeitfehler 9"

Answer 5

Sub Register()
Worksheets(Checkliste_AA).Visible = False
End Sub


genau das habe ich eingegeben.

Gruß

Answer 6

Hallo,

der Arbeitsblattname muss in Anführunszeichen stehen

Sub Register()
Worksheets("Checkliste_AA").Visible = False
End Sub


Gruß
Rainer

Answer 7

Laufzeitfehler "9"

wird trotzdem angezeigt... komisch

Answer 8

Hallo,

wenn der Name richtig geschrieben ist und der Fehler trotzdem auftaucht, kannst du mal den folgenden Befehl versuchen:

[code]ThisWorkbook.Sheets("Checkliste_AA").Visible = False[/code]

Sollte der Fehler immer noch auftauchen kannst du mal eine Beispieldatei hochladen, z.B. [url=http://www.file-upload.net/]hier[/url], und den Downloadlink dann hier posten.

Gruß

M.O.

Answer 9

Hallo,

habe es mal hochgeladen, weil es immer noch nicht funktionieren will.
Hoffe ihr bringt mich weiter, bin aber trotzdem schon sehr dankbar für
eure Mühe.

Gruß

C.H.

Answer 10

Hallo,

der Link zur Datei wäre aber ganz hilfreich :-).

Gruß

M.O.