per Schaltfläche Tabellenblätter aufrufen

[juschimitsu]

Hallo Profis,

ich versuche grad per Schaltfläche bzw. Button die Tabellenblätter aufzurufen.(dies ist soweit erledigt)

Jedoch sollen die Tabellenblätter unten nicht aufgelistet also sichtbar sein, man soll nur über die Button an die jeweiligen Tabellenblätter rankommen.

Mit Ausblenden komme ich nicht weiter, dann funktioniert mein Button nicht mehr.

Mit Datei/Optionen/Erweitert/ Häckchen entfernen an Blattregisterkarte, 
kann ich nur einmal ein Button auswählen und dann hab ich nicht mehr die Möglichkeit wieder zurück zu gelangen, muss ganze Arbeitsblatt wieder schließen.

   

Wie würde dafür bitte die Einstellung sein?

Gruß
juschimitsu

[Crazy Tom]

moin

klar geht das mit ausgeblendeten Tabellenblättern
du musst halt nur in dem Code vom Button das Blatt wieder einblenden

mfg Tom

[derHoepp]

du musst halt nur in dem Code vom Button das Blatt wieder einblenden

... und beim Deactivate wieder ausblenden.

Viele Grüße 
derHöpp

[juschimitsu]

Hi C.T.

wie würde dann bitte der Code sein, sorry ist absolut Neuland für mich.

[Crazy Tom]

Hi,

du weißt aber schon wie du ein Tabellenblatt ausblendest, oder?
dann lass den Makrorekorder mitlaufen dann hast du schon mal das wichtigste

Forum --> Hilfe zur Selbsthilfe

mfg Tom

[juschimitsu]

Hi,

du weißt aber schon wie du ein Tabellenblatt ausblendest, oder?
dann lass den Makrorekorder mitlaufen dann hast du schon mal das wichtigste

Forum --> Hilfe zur Selbsthilfe

mfg Tom

Tabellenblatt Ausblenden ist schon klar.
Nur ab jetzt, "Makrorekorder mitlaufen" ab da sagt es mir nichts.

[Crazy Tom]

Makrorekorder sagt dir nichts?
Entwicklertools --> Makros aufzeichnen
Tabellenblatt ausblenden
Aufzeichnung beenden
dann schauen welchen Code der Makrorekorder aufgezeichnet hat
dann hast du ja wohl schon einen Code hinter dem Button mit dem du zum Tabellenblatt wechselst
den mit dem aufgezeichneten Code ergänzen

[Gast 123]

Hallo

hier mal ein paaar Beispiele zum spielen und selbst weitermachen.  Leider konnte mein alter Laptop die Bilder nicht öffnen.
Hast du Einzelbutton brauchst du im Prinzip für jeden Button ein eigenes Makro, weil ActiveSheet hier  NICHT  funktioniert!
Hast du z.B. Tabelle2 ausgeblendet, musst du auch zum wiedereinblenden - Sheets("Tabelle2").Visible - angeben!

Hast du auf dem Button den Tabellen Namen angegeben, kannst du ihn per Makro auslesen und damit das Sheet auswählen.

mfg Gast 123

Code:

'Per Einzelbutton Ein- ausblenden
Sub Ein_ausblenden()
If Sheets("Tabelle3").Visible = xlSheetHidden Then
   Sheets("Tabelle3").Visible = xlSheetVisible
Else
   Sheets("Tabelle3").Visible = xlSheetHidden
End If
End Sub


'Mit mehreren Button Ein- ausblenden
'Tabellen Name muss auf dem Button stehen!!
Sub Button_Ein_ausblenden()
Dim Button As String, Sht As String
    Button = Application.Caller
    Sht = ActiveSheet.Buttons(Button).Caption
If Sheets(Sht).Visible = xlSheetHidden Then
   Sheets(Sht).Visible = xlSheetVisible
Else
   Sheets(Sht).Visible = xlSheetHidden
End If
End Sub


'Alle Tabellen einblenden
Sub Alle_einblenden()
For j = 1 To Worksheets.Count
   Sheets(j).Visible = xlSheetVisible
Next j
End Sub

[Klaus-Dieter]

Hallo,

mal abgesehen davon, dass ich von solchen Spielereien nichts halte, gibt es doch die Möglichkeit unter Optionen die Anzeige der Blattregisterkarten abzuschalten.

[Ralf A]

Das hier:

Code:

If Sheets("Tabelle3").Visible = xlSheetHidden Then
   Sheets("Tabelle3").Visible = xlSheetVisible
Else
   Sheets("Tabelle3").Visible = xlSheetHidden
End If

funktioniert auch als Einzeiler:

Code:

Worksheets(3).Visible = Not Worksheets(3).Visible

Zu prüfen wäre lediglich, ob mindestens ein Blatt für die Ansicht übrig bleibt.... oder entsprechende Fehlerbehandlung...
Wobei ich mich trotzdem frage, wozu einen (oder mehrere) Button(s), für eine Funktion, die man über einen simplen Klick auf jedem der Blattregister mühelos erreichen kann.... (Ausnahme: VeryHidden)