Spalten mit bestimmtem Kriterium in Excel ausblenden
Schritt-für-Schritt-Anleitung
Um Spalten in Excel auszublenden, die ein bestimmtes Kriterium in einer Referenzzelle haben, kannst Du folgendes VBA-Makro verwenden:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul.
- Füge den folgenden Code in das Modul ein:
Sub Aublenden()
Dim i%, Ab%, Bis%, Was$
Ab = 4: Bis = 26 'D bis Z
Was = "XY"
Application.ScreenUpdating = False
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
For i = Ab To Bis
If .Cells(1, i) = Was Then
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
End Sub
- Schließe den VBA-Editor und gehe zurück zu Excel.
- Führe das Makro aus, um die gewünschten Spalten auszublenden.
Wenn Du Spalten mit zwei Referenzwerten (z.B. "XY" und "MN") ausblenden möchtest, kannst Du das Makro wie folgt anpassen:
Sub Aublenden()
Dim i%, Ab%, Bis%, Was1$, Was2$
Ab = 4: Bis = 26 'D bis Z
Was1 = "XY"
Was2 = "MN"
Application.ScreenUpdating = False
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
For i = Ab To Bis
If .Cells(1, i) = Was1 Or .Cells(1, i) = Was2 Then
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
End Sub
Häufige Fehler und Lösungen
-
Fehler: Das Makro funktioniert nicht.
- Überprüfe, ob Du das Makro korrekt eingefügt hast und sicherstellst, dass die Referenzzelle tatsächlich den gesuchten Wert enthält.
-
Fehler: Alle Spalten werden ausgeblendet.
- Stelle sicher, dass der Referenzwert im Code korrekt angegeben ist. Achte darauf, dass es keine zusätzlichen Leerzeichen gibt.
-
Fehler: Excel reagiert nicht.
- Überprüfe, ob die Bildschirmaktualisierung (
Application.ScreenUpdating) korrekt gesetzt ist. Setze sie auf True, wenn Du die Sichtbarkeit der Spalten ändern möchtest.
Alternative Methoden
Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch Filter in Excel verwenden:
- Wähle die Zeile mit den Überschriften aus.
- Klicke auf
Daten und dann auf Filter.
- Klicke auf den Dropdown-Pfeil in der Spalte, die Du filtern möchtest.
- Wähle
Textfilter und dann Enthält.
- Gib den gewünschten Wert ein und bestätige.
Diese Methode blendet zwar keine Spalten aus, sondern zeigt nur die Zeilen mit bestimmten Inhalten an.
Praktische Beispiele
-
Ausblenden von Spalten mit dem Wert "ABC":
- Ändere den Wert in der Zeile
Was = "XY" zu Was = "ABC" im VBA-Code.
-
Zurücksetzen aller ausgeblendeten Spalten:
Sub Alles_zurück()
Dim Ab%, Bis%
Ab = 4: Bis = 26 'D bis Z
ActiveSheet.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'nur den Bereich zurücksetzen
' oder alle Spalten zurücksetzen
' ActiveSheet.Cells.EntireColumn.Hidden = False 'alle Spalten zurücksetzen
End Sub
Tipps für Profis
- Nutze die Möglichkeit, Spalten in Excel automatisch auszublenden, indem Du die Makros in Ereignisprozeduren wie
Worksheet_Change integrierst.
- Speichere Deine Makros in einer Excel-Vorlage (.xltm), um sie leicht wiederverwenden zu können.
- Experimentiere mit der Bedingten Formatierung, um die Sichtbarkeit von Daten zu verbessern.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Werte gleichzeitig ausblenden?
Du kannst die If-Bedingung im VBA-Kode mit Or verknüpfen, um mehrere Werte zu berücksichtigen.
2. Wie blende ich alle Spalten in Excel aus?
Verwende den VBA-Code ActiveSheet.Cells.EntireColumn.Hidden = True, um alle Spalten auszublenden.
3. Kann ich auch bestimmte Zeilen ausblenden?
Ja, du kannst ein ähnliches Makro schreiben, um Zeilen auszublenden, indem du EntireRow.Hidden anstelle von EntireColumn.Hidden verwendest.
4. Was ist der Unterschied zwischen Spalten und Zellen ausblenden?
Spalten ausblenden entfernt die gesamte Spalte, während das Ausblenden von Zellen nur die Inhalte der Zelle unsichtbar macht.