Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten 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 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • cuba
Antworten Top


Gehe zu:


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