Clever-Excel-Forum

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

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

cuba

Kuwer