ich möchte gerne über einen Array mehrere Tabellenblätter definieren.
Beim Öffnen der Arbeitsmappe sollen diese Blätter eingeblendet werden, während alle anderen versteckt sind.
Sub anzeigen()
Dim xWs As Worksheet
Dim xName As Variant
xName = Array("Nr1.2", "Nr3.1")
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name xName Then
xWs.Visible = xlSheetHidden
End If
Next
End Sub
Dieser Code gibt leider den Laufzeitfehler 13 aus (Typen unverträglich). Vielleicht kann jemand helfen?LG, Leon