kann mir jemand erklären, wie ich ausgeblendete Tabellenblätter auf einmal wieder einblenden kann?
Danke im voraus, Jürgen.
Sub EinblendenVersteckteBlätter()
Dim Blatt As Worksheet
For Each Blatt In Sheets
Blatt.Visible = True
Next Blatt
End Sub
Sub AusblendenAußerAktivesBlatt()
Dim Blatt As Object
For Each Blatt In Sheets
If Blatt.Name <> ActiveSheet.Name Then
Blatt.Visible = False
End If
Next Blatt
End Sub