Wenn Sie Arbeitsblätter in einer Arbeitsmappe ausblenden möchten, können Sie in Excel mehrere Blätter mit einer Aktion ausblenden: Sie müssen lediglich die Blätter auswählen, bevor Sie sie tatsächlich ausblenden. Das Ausblenden von Arbeitsblättern ist jedoch eine andere Geschichte. In Excel können Sie jeweils nur eine einblenden.

Wenn Sie viele Arbeitsblätter haben, die Sie einblenden möchten, kann dies sehr mühsam sein.

Die einzige Möglichkeit, dies zu umgehen, besteht darin, die Arbeitsblätter mithilfe eines Makros einzublenden. Das folgende VBA-Makro blendet alle Arbeitsblätter in der aktuellen Arbeitsmappe ein:

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

Wenn Sie nicht alle Arbeitsblätter auf einmal einblenden möchten, können Sie das Makro veranlassen, nach jedem ausgeblendeten Arbeitsblatt zu fragen und dann jedes einzublenden, das Sie einblenden möchten. Das folgende Makro übernimmt diese Aufgabe:

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2603) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Mehrere Arbeitsblätter einblenden.