Newbi in VBA
05.01.2015 14:27:38
Christian
ich habe mich durch mehrere Beiträge schon durch gelesen komme nur leider nich zum gewünschten Erfolg.
Ich bin dabei eine Excel Planung zu erstellen, diese Arbeitsmappe enthält 17 Tabellen. Jede einzelne Tabelle verweist auf einen speziellen Bereich. Nun kommt die Frage der Frage, diese haben leider schon viele gestellt nur ich finde meinen Fehler aufgrund der mangelnden Erfahrung nicht. Wie kann ich von meinem Übersichtsblatt via Hyperlink von unterschiedlichen Modulen auf die jeweils verknüpfte Tabelle springen wenn die Tabelle ausgeblendet ist.
Vorab noch, ich möchte die Tabellen ausblenden, damit ich eine besser Übersicht habe und nur so die Tabelle geöffnet wird die ich durch meine Übersicht auch öffnen möchte.
Ich habe auf meinen Übersichtsblatt
16 Formen mit 16 Hyperlinks
Jede geschlossene Tabelle hat folgenden VBA Code:
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
In meiner Übersicht habe ich folgenden Code:
' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAdr As String
Dim strSht As String
strAdr = Target.SubAddress
strSht = Replace(Left(strAdr, Len(strAdr) - InStr(1, StrReverse(strAdr), "!")), "'", "")
Sheets(strSht).Visible = xlSheetVisible
Sheets(strSht).Activate
End Sub
Mein Problem, ist es das alle Tabellen sich nach dem ersten Versuch auch geschlossen haben, nur bekomme ich sie nicht mehr auf. Ich kann diese auch nicht mehr manuell aufrufen, das der Reiter einblenden deaktiviert ist.
Kann mir bitte jemand Helfen, ich blicke nicht mehr durch.
Vielen Dank