Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Ausgeblendete Seiten über Schaltfläche öffnen
#1
Hallo

Ich möchte gerne alle "störenden" Tabellen ausblenden und nur die Mastertabelle anzeigen. Auf der Mastertabelle habe ich diverse Schlatflächen eingerichtet, die dann die einzelnen Tabellenblätter öffnen. Der Code ist dann in etwa wie folgt.

Sub Schaltfläche8_Klicken()
Application.Goto Reference:=Worksheets("Tabellenname").Range("b1")
End Sub


Blende ich nun das Tabellenblatt aus und klicke aus der Mastertabelle auf die Schaltfläche, erscheint dann:

Laufzeitfehler 1004; die Methode Goto für das Objekt _Application ist fehlgeschlagen.

Bin kein versierter VBA-Künstler, aber diese einfache Schlatfläche habe ich selber erstellen können.

Frage: kann trotz ausgeblendetem Tabllenblatt das Blatt über die Schaltfläche geöffnet werden, falls ja, muss ich an der Codierung etwas ändern (falls ja, wie sieht diese dann aus?).

Vielen Dank im Voraus

cuba
to top
#2
Hallo cuba,

das entsprechende Worksheet muss vorher eingeblendet werden. Das geht dann so:

Code:
Sub Schaltfläche8_Klicken()
  With Worksheets("Tabellenname")
    .Visible = -1
    Application.Goto Reference:=.Range("B1")
  End With
End Sub

Um es beim Verlassen automatisch wieder auszublenden,
kommt folgender Code in das schon vorhandene VBA-Modul "DieseArbeitsmappe":

Code:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Select Case Sh.Name
    Case "Mastertabelle"  '<<Tabellenname anpassen
      'tue nichts
    Case Else
      Sh.Visible = 0
  End Select
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
cuba
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Tongue Mit Schaltfläche Zellbereiche einfärben Schraenki 10 74 25.03.2017, 08:33
Letzter Beitrag: atilla
  Serienbrief über Excelmakro öffnen Basti5 1 82 27.02.2017, 17:01
Letzter Beitrag: Glausius
  Ausgeblendete Spalten einblenden ricface 21 371 24.02.2017, 17:50
Letzter Beitrag: snb
  Berechnung ohne ausgeblendete Zeilen? CAS 5 224 16.01.2017, 21:14
Letzter Beitrag: BoskoBiati
  Schaltfläche für automatischen E-Mailversand Wulfgar 1 157 23.11.2016, 09:46
Letzter Beitrag: Zwergel
  Aktive Zelle als Schaltfläche; Zeilen Ein-/Ausblenden peacescorer 1 196 15.10.2016, 18:27
Letzter Beitrag: schauan
  Schaltfläche bearbeiten kautsch 7 331 13.10.2016, 13:34
Letzter Beitrag: BoskoBiati
  Schaltfläche Sortieren, mehrfachnennung Namen Exceljunge 3 366 29.08.2016, 14:59
Letzter Beitrag: Ego
  InputBox Schaltfläche Abbrechen herbert0803 7 658 04.08.2016, 22:47
Letzter Beitrag: Gast 123
  Schaltfläche dynamisch wieder löschen - Objektorientierte Programmierung VBATartar 12 928 26.07.2016, 18:38
Letzter Beitrag: VBATartar

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste