Einige Spalten in allen Excel-Tabellen der Arbeitsmappe ausblenden

24. September 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

So machen Sie Spalten in allen Blättern unsichtbar

Sie möchten bestimmte Spalten in allen Tabellenblättern einer Mappe ausblenden. Manuell ist das ein hoher Aufwand. Setzen Sie das folgende Makro ein, um die Aufgabe zu lösen:

Sub SpaltenUnsichtbarUeberall()
Dim Blatt As Worksheet
Dim Auswahl As String
Auswahl = InputBox("Bitte legen Sie die gewünschten Spalten fest in einer der folgenden Formen fest:" + vbLf + vbLf + "A" + vbLf + vbLf + "D:E", "Spalten festlegen")
If Auswahl <> "" Then
 For Each Blatt In ActiveWorkbook.Worksheets
 Blatt.Columns(Auswahl).EntireColumn.Hidden = True
 Next Blatt
End If
End Sub

Wenn Sie das Makro starten, zeigt Excel zunächst ein Eingabefenster an, wie es in der folgenden Abbildung zu sehen ist:

Legen Sie hier fest, welche Spalten Sie ausblenden möchten. Für eine einzelne Spalte geben Sie den Spaltenbuchstaben (z.B. B) an, bei mehreren zusammenhängenden Spalten trennen Sie die Begrenzungen durch einen Doppelpunkt (z.B. D:E).

Nach einem Klick auf die OK-Schaltfläche blendet Excel die gewünschten Spalten in allen Tabellenblättern der aktiven Arbeitsmappe aus. Die folgende Abbildung zeigt eine Tabelle mit einer unsichtbaren Spalte B:

Formeln und Bezüge auf Zellen in den ausgeblendeten Spalten funktionieren weiterhin problemlos.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"