ich habe etwas gefunden, mit dem man alle Tabellenblätter ausblenden kann, außer dem aktivem:
Sub Tabellenblaetter_ausblenden()
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Name <> ActiveSheet.Name Then
wksWorksheet.Visible = xlSheetHidden
End If
Next wksWorksheet
End Sub
Leider können die Makros nicht auf die ausgeblendeten Tabellenblätter zugreifen. Gibt es Vielleicht einen Befehl, der die Tabellenblätter zwar ausblendet und trotzdem einen Zugriff gewährt?
Vielen Dank für Eure Hilfe:
Gruß,
Scheinchen