hi Erwin ^^
z.b.
die arbeitsblaetter werden anhand einer auswahlliste ausgeblendet
und durch Wechselwirkung wieder eingeblendet
A1 rechtsclick Auswahlliste
als naechstes
einzufuegen alt+f11>allgemeines modul
einmalig starten zum einlesen der auswahlliste
Sub Liste_Einlesen()
With Worksheets("Cockpit").Range("A1").Validation
.Delete
For WksNamen = 1 To Worksheets.Count
If WksNamen < Worksheets.Count Then
NamenSammeln = NamenSammeln & Worksheets(WksNamen).Name & ","
Else
NamenSammeln = NamenSammeln & Worksheets(WksNamen).Name
End If
Next WksNamen
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=NamenSammeln
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
einzufuegen alt+f11>projektexplorer>Cockpit
$A$1 ist die Auswahlliste
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then Call EinAusblendung
Application.EnableEvents = True
End Sub
einzufuegen alt+f11>allgemeines modul
das modul arbeitet in Wechselwirkung
weise dem makro eine taste zu oder gib jedem blatt einen button der das makro startet
nun hast du die Möglichkeit von jedem beliebigen blatt aus wieder alle blätter einzublenden
Sub EinAusblendung()
If Worksheets("Cockpit").Visible = True Then schalter = True
For WksNamen = 1 To Worksheets.Count
If Worksheets("Cockpit").Cells(1, 1) <> Worksheets(WksNamen).Name And schalter = True Then
Worksheets(WksNamen).Visible = False
End If
If schalter = False Then
Worksheets(WksNamen).Visible = True
Worksheets("Cockpit").Activate
End If
Next WksNamen
End Sub
gruss nighty