Makro gesucht zum Tabellenblätter ausblenden
18.09.2007 09:12:36
Tommy
Hallo,
ich habe ein Formular mit vielen Tabellenblättern erstellt, welche ich von einem Deckblatt(Cover Sheet) nach belieben ein- und ausblenden kann. Das Makro dazu hat mir ein Freund geschrieben, welcher jetzt leider nicht erreichbar ist und deshalb brauch ich eure Hilfe.
Der bisherige Ablauf war so, dass man auf dem Cover Sheet mittel Kontrollkästchen ein Tabellenblatt auswählt-dieses dann eingeblendet wird und man auf das Cover Sheet zurückkehrt.
Nun möchte ich aber bestimmte Tabellenblätter auch von anderen Stellen(bereits eingeblendeten Blättern) in dem Dokument mit einblenden.
Das ist ja eigentlich kein Problem mittel Makrozuweisung, nur "wirft" es mich dann wieder zum Cover-Sheet.
Ich möchte nun das Makro so umschreiben, dass man auf dem Tabellenblatt bleibt von dem es aus gestartet wurde.Aber wie geht das?
Hier das MAkro
Sub Hyd_Data()
AktBl = "140-Hydraulic"
If Sheets(AktBl).Visible = True Then
Control_Uncheked
HardCopy(4) = ""
GoTo EndHydr
End If
If Sheets(AktBl).Visible = False Then
Control_Cheked
HardCopy(4) = "140-Hydraulic"
End If
EndHydr:
Sheets("Cover Sheet").Select
End Sub
Besten dank im Vorraus!!