Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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
  Schaltfläche für automatischen E-Mailversand Wulfgar 1 47 23.11.2016, 09:46
Letzter Beitrag: Zwergel
  Aktive Zelle als Schaltfläche; Zeilen Ein-/Ausblenden peacescorer 1 94 15.10.2016, 18:27
Letzter Beitrag: schauan
  Schaltfläche bearbeiten kautsch 7 127 13.10.2016, 13:34
Letzter Beitrag: BoskoBiati
  Schaltfläche Sortieren, mehrfachnennung Namen Exceljunge 3 199 29.08.2016, 14:59
Letzter Beitrag: Ego
  InputBox Schaltfläche Abbrechen herbert0803 7 393 04.08.2016, 22:47
Letzter Beitrag: Gast 123
  Schaltfläche dynamisch wieder löschen - Objektorientierte Programmierung VBATartar 12 654 26.07.2016, 18:38
Letzter Beitrag: VBATartar
  Excel 2016: Daten in ausgeblendete Zellen kopieren? Marloh 2 343 22.06.2016, 19:05
Letzter Beitrag: Marloh
  2 Druckbereiche in 1 Pdf mit 2 Seiten drucken darkdan 4 457 26.02.2016, 08:58
Letzter Beitrag: darkdan
  Liste automatisch auf Seiten aufteilen WeisserWolf611 9 941 15.01.2016, 08:07
Letzter Beitrag: WeisserWolf611
  Schaltfläche funktioniert nicht für Word-Sheet cuba 13 1.493 24.12.2015, 16:41
Letzter Beitrag: Rabe

Gehe zu:


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