stehe mal wieder auf den Schlauch und versuche hier Hilfe zu finden.
Ich habe ca. 100 Tabellenblätter und möchte diese per VBA bis auf meine Startseite "Eingabe" ausblenden.
Wer kann mir helfen ?
Gruß
Tanja
Sub Schaltfläche1_Klicken()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
If wks.Name "Eingabe" Then
wks.Visible = False
End If
Next wks
Application.ScreenUpdating = True
End Sub
GrußDim x&
For x = 1 To Worksheets.Count
If Worksheets(x).Name "Eingabe" Then
Worksheets(x).Visible = False
End If
Next
Gruß MatthiasPublic Sub ausblenden()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Eingabe", "Ausgabe"
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next ws
End Sub
Gruß Werner
Dim x&
For x = 1 To Worksheets.Count
With Worksheets(x)
If .Name "Eingabe" And .Name "Ausgabe" Then
.Visible = xlVeryHidden
End If
End With
Next
Gruß Matthias