Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Spalten ein- bzw. ausblenden

Forumthread: Mehrere Spalten ein- bzw. ausblenden

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige

Forumthreads zu verwandten Themen

Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Anzeige
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
summieren und multiplizieren über mehrere Spalten | Herbers Excel-Forum
Murat
Hallo, komme net weiter....
wie schreibe ich folgende Formel
=summe(A1:H1)*Z1
=summe(A2:H2)*Z2
=summe(A3:H3)*Z3
...
...
...
=summe(A2379:H2379)*Z2379
in eine Zelle?
Danke im voraus
Gruß
murat
24.01.2010 15:15:44
Thread-ID: 1132459
3 Beiträge
bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
Matthias
Hi,
ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
24.01.2010 16:55:43
Thread-ID: 1132489
4 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Anzeige
VBA; Schutz; Spalten nach Datum ausblenden
Jörg

Hallo,
ich kann im Archiv kein geeigneten Hinweis finden, um per VBA , bei öffnen einer geschützten Datei, Spalten nach Datum auszublenden.
In den Spalten AO10:CP10, befindet sich die Datumsangabe (MM.YYYY).
Alle Spalten, deren Monat kleiner und gleich dem aktuellen Monat (auch da...
25.10.2011 12:59:30
Thread-ID: 1235311
7 Beiträge
Spalten anhand Überschriften ausblenden (VBA)
Meppi

Hallo,
ich habe folgendes Problem und hoffe, dass mir jemand von euch weiterhelfen kann:
Ich habe in einer Excel-Datei mehrere Tabellenblätter in denen sich Webabfragen (in jedem Tabellenblatt bis zu 3 Webabfragen) befinden. Sie müssen täglich aktualisiert werden. Dabei wird auch automa...
14.12.2011 13:40:07
Thread-ID: 1242082
6 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
Mehrere Spalten eines Bereichs ausblenden
Peter

guten Tag
Im untenstehenden Code blende ich unter anderem auch die Spalten E:J aus (scheint so zu funktionieren).
Nun wollte ich weitere Spalten gleichzeitig ausblenden und habe die entsprechende Zeile wie folgt modifiziert:
.Columns("E:J, L:M, O:R, T:AD, AF:AK").Hidden = True
...
02.07.2012 10:08:24
Thread-ID: 1269596
4 Beiträge
Anzeige
Spalten ein- und ausblenden mit VBA
Marko

Hallo in die Runde,
Mein Ziel ist, Spalten in Abhängigkeit eines Zelleintrages (D4:AC4) auszublenden. Das soll nach der Dateneingabe geschehen, durch Setzen eines Hakens in einer Checkbox. Für Nachbearbeitung sollen selbsverständlich die ausgeblendeten Zellen wieder einblendbar sein (Deakti...
18.07.2012 18:37:20
Thread-ID: 1271740
3 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Spalten ein- und ausblenden in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Ein neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

  3. 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

  4. 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

  1. Mehrere Spalten ausblenden:

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

  2. Mehrere Spalten einblenden:

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

  3. 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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige