Sub Inhalt()
Sheets("Inhalt").Visible = True ' Blattname anpassen
Sheets("Inhalt").Select ' Blattname anpassen
Dim Blatt As Object
For Each Blatt In Sheets
If Blatt.Name ActiveSheet.Name Then
Blatt.Visible = False
End If
Next Blatt
Calculate
End Sub
If Left(Blatt.Name,1) = "R" Then
Sub Blatt_ausblenden()
Dim Blatt As Object
For Each Blatt In Sheets
If Left(Blatt, 1) = "R" Then
Blatt.Visible = True
End If
Next Blatt
End Sub
Sub Blatt_ausblenden()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
If Left(Blatt.Name, 1) = "R" Then
Blatt.Visible = False
End If
Next Blatt
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen