ausgeblendete Blätter durchsuchen
01.06.2021 04:05:10
Pee
Ich habe leider keine passende Lösung für mein Problem gefunden, weshalb ich einen neuen Beitrag öffnen muss.
Mein Problem:
Ich habe eine Excel-Arbeitsmappe, in welcher ich ein Navigationsblatt habe, von welchem andere Blätter über Verlinkungen erreichbar sind.
Das funktioniert soweit auch schon gut.
Um die Übersichtlichkeit zu wahren habe ich alle Blätter (außer das Navigationsblatt) ausgeblendet.
Das ganze habe ich mit folgenden Codes über VBA gelöst:
Navigationsblatt:
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
ausgeblendete Blätter (Unternavigation):
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
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
ausgeblendete Blätter (Zielblätter)
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
So weit so gut.
Nun habe ich auf der Navigationsseite einen "Suchbutton" der mit folgendem Makro funktioniert:
Sub Suchen()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
Bei dem aktuellen Status Quo findet er aber die gesuchten Werte nicht, weil er nur auf der Navigationsseite sucht, bevor ich die Aus/Einblendungen aktiv hatte suchte er aber in der gesamten Mappe.
Ich hoffe ich konnte das Problem vernünftig darstellen und ihr habt einen Lösungsansatz für mich!
Vielen Dank schon mal im Voraus!!!!