Mehrere Spalten ein- bzw. ausblenden

Forumthread: Mehrere Spalten ein- bzw. ausblenden

01.02.2017 20:34:39

Golem

Guten Abend, Excel Fachleute!
Ich möchte mehrere zusammenhängende Spalten mit VBA ein- bzw. ausblenden.
1. Version:
Columns("I:R").EntireColumn.Hidden = False
funktioniert.
2. Version:
Columns(Cells(1, 9) & ":R").EntireColumn.Hidden = False
funktioniert.
aber
3. Version:
Columns(Cells(1, 9) & ":" & Cells(1, 18).EntireColumn.Hidden = False
funktioniert nicht.
Laufzeitfehler '13'.
Momentan bekomme ich nicht den Fehler heraus.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Spalten ein- bzw. ausblenden

01.02.2017 20:47:29

onur

Hi Werner
Range(Cells(1, 9), Cells(1, 18)).Select
With Selection
.EntireColumn.Hidden = True'oder False
End With
Probiere das mal.
Gruß
Onur

ohne Select bitte

01.02.2017 20:53:21

Matthias

Hallo
Wechselseitiges Ein-/Ausblenden

 With Range(Cells(1, 9), Cells(1, 18))
.EntireColumn.Hidden = Not .EntireColumn.Hidden
End With

Gruß Matthias

AW: Mehrere Spalten ein- bzw. ausblenden

01.02.2017 20:49:03

Matthias

Hallo
Warum nicht einfach
Columns("A:R").Hidden = True
Gruß Matthias

bzw. Columns("I:R").Hidden = True owT

01.02.2017 20:54:26

Matthias

AW: Mehrere Spalten ein- bzw. ausblenden

01.02.2017 21:08:56

onur

Hi Matthias,
Nicht, wenn Du mit Variablen arbeiten willst.
Gruß
Onur

AW: Mehrere Spalten ein- bzw. ausblenden

01.02.2017 21:47:38

Golem

An alle freundlichen Helfer einen schönen Dank für Eure Hilfe!
Aber ich habe meinen Fehler gefunden und es funktioniert.
Ich bin heute schon ein wenig überarbeitet.
Columns(Cells(1, 9) & ":" & Cells(1, 18)).EntireColumn.Hidden = False 'am Ende fehlt die zweite Klammer.....
Vorgesehen ist, Spaltenzahl 9 und 18 durch Variable zu ersetzen.
Einen schönen Abend für alle Helfer!
Werner

Infobox / Tutorial

Mehrere Spalten ein- und ausblenden in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Ein neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

Code einfügen: Füge den folgenden Code ein, um mehrere Spalten ein- oder auszublenden:

Sub SpaltenAusblenden()
   Columns("I:R").EntireColumn.Hidden = True ' Zum Ausblenden
End Sub

Sub SpaltenEinblenden()
   Columns("I:R").EntireColumn.Hidden = False ' Zum Einblenden
End Sub

Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus und wähle das gewünschte Makro aus.

Häufige Fehler und Lösungen

Laufzeitfehler '13': Dieser Fehler tritt auf, wenn ein Typenkonflikt in deinem Code besteht. Überprüfe, ob alle Klammern korrekt gesetzt sind, wie im Beispiel:
```
Columns(Cells(1, 9), Cells(1, 18)).EntireColumn.Hidden = False
```
Stelle sicher, dass die letzte Klammer nicht fehlt.
Spalten werden nicht ausgeblendet: Überprüfe, ob der Bereich korrekt angegeben ist. Verwende den Befehl:
```
Range(Cells(1, 9), Cells(1, 18)).EntireColumn.Hidden = True
```

Alternative Methoden

Wechselseitiges Ein-/Ausblenden: Mit dem folgenden VBA-Code kannst du die Sichtbarkeit der Spalten umschalten:

Sub WechselseitigesEinAusblenden()
   With Range(Cells(1, 9), Cells(1, 18))
       .EntireColumn.Hidden = Not .EntireColumn.Hidden
   End With
End Sub

Nutzung von Variablen: Wenn du Variablen für die Spaltennummern verwenden möchtest, kannst du den Code wie folgt anpassen:

Dim startSpalte As Integer
Dim endSpalte As Integer
startSpalte = 9
endSpalte = 18
Columns(Cells(1, startSpalte), Cells(1, endSpalte)).EntireColumn.Hidden = True

Praktische Beispiele

Mehrere Spalten ausblenden:

Sub AusblendenBeispiel()
   Columns("A:R").Hidden = True
End Sub

Mehrere Spalten einblenden:

Sub EinblendenBeispiel()
   Columns("A:R").Hidden = False
End Sub

Spalten mit Plus-Symbol ausblenden: Wenn du ein Plus-Symbol zur Steuerung verwenden möchtest, kannst du eine Schaltfläche in Excel hinzufügen, die diesen Code ausführt.

Tipps für Profis

Nutze Shortcuts: Du kannst deine Makros auch über Tastenkombinationen ausführen, um die Effizienz zu steigern.
Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen Code ein, um unerwartete Fehler elegant zu handhaben.
```
On Error Resume Next
Columns("I:R").EntireColumn.Hidden = True
On Error GoTo 0
```
Dokumentation: Kommentiere deinen VBA-Code, um die Funktionalität für zukünftige Referenzen klar zu machen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten mit einer Variable ausblenden?
Du kannst Variablen für die Spaltennummern verwenden, um mehr Flexibilität zu haben:

Dim spalteStart As Integer
Dim spalteEnde As Integer
spalteStart = 9
spalteEnde = 18
Columns(Cells(1, spalteStart), Cells(1, spalteEnde)).EntireColumn.Hidden = True

2. Funktioniert dieser Code in allen Excel-Versionen?
Der vorgestellte VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2010) problemlos funktionieren.

Beliebteste Forumthreads (12 Monate)

Mehrere Spalten ein- bzw. ausblenden

Forumthread: Mehrere Spalten ein- bzw. ausblenden

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Mehrere Spalten ein- und ausblenden in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Mehrere Spalten ein- bzw. ausblenden

Forumthread: Mehrere Spalten ein- bzw. ausblenden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mehrere Spalten ein- und ausblenden in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread