wie kann man in Excel mehrere bzw. alle ausgeblendete Blätter auf einmal einblenden?
Gruß,
Jakob
Sub aa()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Visible = False Then
ws.Visible = True
End If
Next
End Sub
Grüße
Hoffi
Sub ein()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub
Gruss Hary