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

Spalten ein- und ausblenden via Button

Forumthread: Spalten ein- und ausblenden via Button

Spalten ein- und ausblenden via Button
01.04.2014 15:28:05
Philipp
Hallo Liebes Forum,
ich bin bei der Erstellung einer Excel Datei auf ein Problem gestoßen.
Und zwar möchte ich auf Knopfdruck verschiedene Spalten ein- und ausblenden.
Leider habe ich bis jetzt keine Lösung für das Problem gefunden.
Die Vorlage meiner Datei habe ich zur besseren Übersicht beigefügt.
https://www.herber.de/bbs/user/89944.xlsx
Zur Info:
Die Spalten K - S (Datum) sowie
die Spalten T - AB (Betreff/Notiz) sollten per Knopfdruck ein- und ausblendbar sein!
Die Buttons sollen jeweils als Spaltenüberschrift genutzt werden können.
Kann mir da jemand behilflich sein?
Gruß
Philipp

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ein- und ausblenden via Button
01.04.2014 15:38:54
Rudi
Hallo,
wozu hast du jeweils 9 Spalten für Datum / Bemerkungen?
Die Buttons sollen jeweils als Spaltenüberschrift genutzt werden können.
dann werden sie ja auch augeblendet. Wie willst du wieder einblenden?
Ich würde benutzerdefinierte Ansichten nehmen.
Gruß
Rudi

Anzeige
AW: Spalten ein- und ausblenden via Button
01.04.2014 15:45:30
Klaus
Ich würde benutzerdefinierte Ansichten nehmen.
Ich würd "Daten - Gruppieren" nehmen. Macht im Endeffekt genau das was der TE will und ist mit zwei Mausklicks erledigt.
Grüße,
Klaus M.vdT.

AW: Spalten ein- und ausblenden via Button
01.04.2014 16:16:01
Rudi
Hallo,
auch OK.
Der Zugriff ist schneller. Du brauchst nur eine Spalte für das +.
Gruß
Rudi

Anzeige
AW: Spalten ein- und ausblenden via Button
01.04.2014 16:19:42
Philipp
Nun bekomme ich den Laufzeitfehler '9' leider nicht korrigiert.
Es heißt: Der Index außerhalb des gültigen Bereichs.
Wie korrigiere ich das? In welchem Bezug steht "Index".
Bin völlig ahnungslos :-)

AW: Spalten ein- und ausblenden via Button
01.04.2014 15:40:49
Klaus
Hallo Phillip,
Für "K:S": Erstelle dir einen Button, und füge diesen Code ein:
Columns("K:S").Hidden = Not Columns("K:S").Hidden
das wars schon!
Für den anderen Bereich bekommst du das angepasst, oder?
Du musst dann natürlich als *.xlsm speichern, deine hochgeladene Datei ist ja eine *.xlsx
per Knopfdruck ein- und ausblendbar sein!
Die Buttons sollen jeweils als Spaltenüberschrift genutzt werden können.
Hier widersprichst du dir. Wenn der Button eine Spaltenüberschrift ist, dann wird er ja ausgeblendet. Wenn er ausgeblendet ist, kann er nicht zum wiedereinblenden genutzt werden ... denn du siehst ihn ja nicht, ergo kannst du ihn nicht klicken!
Alternative: Ein Button als Spaltenüberschrift zum ausblenden (jeweils pro Bereich), und einen Master-Button der alles wieder einblendet. Musst du wissen, wie du das gern hättest.
Achja: verzichte auf verbundene Zellen, damit machst du dir das Leben nur unnötig schwer. Benutze stattdessen "horizontal über Auswahl zentrieren" !
Grüße,
Klaus M.vdT.

Anzeige
AW: Spalten ein- und ausblenden via Button
01.04.2014 16:09:02
Philipp
Bei den Spaltenüberschriften habe ich mich etwas undeutlich ausgedrückt.
Habe jedoch einen VBA Code gefunden, jedoch zeigt es mir einen letzten Laufzeitfehler '9'
- Index außerhalb des gültigen Bereichs
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Spalten einblenden"
Call SpaltenAusblenden
Else
TB.Caption = "Spalten ausblenden"
Call SpaltenEinblenden
End If
End Sub
Sub SpaltenAusblenden()
Sheets("Liste").Activate
Columns("K:S").EntireColumn.Hidden = True
End Sub Sub SpaltenEinblenden()
Sheets("Liste").Activate
Columns("K:S").EntireColumn.Hidden = False
End Sub
Anbei der VBA Code...Welcher Bezug hat der Index? Hat das was mit dem Dateinamen zu tun?
Danke für eure Hilfe.
Zur Info:
Die Datei soll als Kundendatei dienen und den Verhandlungsverlauf anzeigen.
Daher sind für Datum und Notizen mehrere Spalten geplant. Pro Kontaktaufnahme eine Spalte

Anzeige
AW: Spalten ein- und ausblenden via Button
01.04.2014 16:27:27
Klaus
Hallo Phillip,
davon abgesehen dass in deinem VBA-Code ein Zeilenumbruch zwischen "End SUb" und "Sub Spalte Einblenden" fehlt ...
Ich nehme an, du hast kein Blatt Namens "Liste", daher der Laufzeitfehler. Wenn du dort deinen richtigen Blattnamen einträgst, müsste der Code funktionieren - für einen Togglebutton! NICHT für einen Commandbutton! Es kann auch sein dass du gar keinen Togglebutton1 hast - auch das würde den Laufzeitfehler erklären.
Davon abgesehen das er funktioniert ist der Code aber völliger Murks. Wenn es unbedingt ein ToggleButton sein muss, dann so:
Private Sub ToggleButton1_Click()
Sheets("Liste").Columns("K:S").EntireColumn.Hidden = Not ToggleButton1
If ToggleButton1 then
ToggleButton1.Caption = "Einblenden"
else
ToggleButton1.Caption = "Ausblenden"
EndIf
End Sub

Ich persönlich halte ja nichts von ToggleButtons, ich find die nur umständlich.
Aber warum nimmst du nicht die oben vorgeschlagenen Alternativen (Gruppieren, Benutzerdefinierte Ansicht ...) die völlig ohne VBA auskommen?
Grüße,
Klaus M.vdT.

Anzeige
@Klaus
01.04.2014 16:43:07
Idefix
Hallo,
Es kann auch sein dass du gar keinen Togglebutton1 hast - auch das würde den Laufzeitfehler erklären.
Unwahrscheinlich.
Wie soll dann 
Private Sub ToggleButton1_Click()

anspringen?
Gruß
Rudi

AW: @Klaus
01.04.2014 16:45:47
Klaus
Hallo Idefix :-)
Er könnte den ToggleButton-Code 1:1 aus dem Internet kopiert haben und mit F5 gestartet. Immerhin hat er auch kein Sheets("Liste") in seiner Datei und spricht es trotzdem an ...
Grüße,
Klaus M.vdT.
Anzeige
;

Forumthreads zu verwandten Themen

Ausblenden von Spalten abhängig vom Autofilter
Spalten

Ich möchte gerne bestimmte Spalten abhängig vom Wert des Autofilters in einer anderen Spalte ausblenden.
Beispiel: In Spalte A wähle ich im Autofilter "Dieter" und dann sollen die Spalten J bis R ausgeblendet werden. Wähle ich dann "Volker" sollen die Spalten M bis W ausgeblendet werden.
29.08.2008 15:45:36
Thread-ID: 1005878
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Fehlermeldung beim Ausblenden von vielen Spalten
vielen

Hallo,
ich muß in einer Tabelle ziemlich viele Infos über sehr viele Spalten einfügen (es reicht bis Spalte FM) und erst danach kann ich in den anschließenden Spalten das ausweisen was ich möchte. Deswegen
möchte ich die Spalten B bis FM gruppieren und einklappen (sprich ausblenden).
16.10.2008 17:14:44
Thread-ID: 1016924
7 Beiträge
Ein-/Ausblenden von Eingaben
Eingaben

Hallo zusammen,
habe folgendes Problem und hoffe mir kann jemand helfen.
Ich möchte anhand der Eingabe in einem Feld Zellen und Eingabemöglichkeiten
ausblenden oder einblenden.
Im Beispiel:
Bei Eingabe in Zelle E11 = 'Zylinderkopf' soll eine Eingabe in Zelle M11 zugelassen...
13.11.2008 09:55:24
Thread-ID: 1024071
3 Beiträge
Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Spalten ein- und ausblenden mit einem Button in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade deine Datei, in der du die Spalten ein- und ausblenden möchtest.

  2. Füge einen Button hinzu:

    • Gehe zu den Entwicklertools (falls diese nicht sichtbar sind, aktiviere sie über die Excel-Optionen).
    • Wähle das Steuerelement „Button“ aus und platziere es in deiner Tabelle.

  3. Füge VBA-Code hinzu:

    • Klicke mit der rechten Maustaste auf den Button und wähle „Code anzeigen“.
    • Füge folgenden Code ein, um die Spalten K bis S ein- und auszublenden: 
      Sub ToggleSpalten()
 Columns("K:S").Hidden = Not Columns("K:S").Hidden
End Sub
    • Schließe den VBA-Editor.

  4. Teste den Button: Klicke auf den Button in deiner Tabelle. Die Spalten K bis S sollten nun ein- und ausgeblendet werden.

  5. Speichere die Datei als .xlsm: Damit der VBA-Code funktioniert, musst du die Datei im Makro-fähigen Format speichern.

Häufige Fehler und Lösungen

  • Laufzeitfehler '9' - Index außerhalb des gültigen Bereichs:

    • Dieser Fehler tritt häufig auf, wenn im VBA-Code auf ein Tabellenblatt verwiesen wird, das nicht existiert. Stelle sicher, dass der Blattname korrekt ist.

  • Button wird ausgeblendet:

    • Wenn du den Button als Spaltenüberschrift verwendest, wird er ausgeblendet, wenn die Spalten versteckt werden. Nutze stattdessen einen Master-Button, der alle Spalten wieder einblendet.

Alternative Methoden

  • Benutzerdefinierte Ansichten:

    • Eine einfache Methode, um Spalten ein- und auszublenden, ist die Verwendung benutzerdefinierter Ansichten. Du kannst verschiedene Ansichten speichern und schnell zwischen diesen wechseln, ohne VBA zu verwenden.

  • Gruppieren von Bereichen:

    • Gehe zu „Daten“ und wähle „Gruppieren“. Damit kannst du Spalten schnell einklappen und wieder ausklappen, ohne einen Button zu benötigen.

Praktische Beispiele

  • Spalten ausblenden mit einem Button: Wenn du eine Tabelle mit vielen Daten hast, kannst du einen Button einfügen, der beim Klicken alle Spalten mit sensiblen Informationen ausblendet.

  • Ein- und Ausblenden von Zeilen: Der gleiche VBA-Code kann auch für Zeilen verwendet werden. Ändere einfach Columns("K:S") in Rows("1:10"), um die Zeilen 1 bis 10 ein- und auszublenden.

Tipps für Profis

  • Verwende ToggleButtons: ToggleButtons können verwendet werden, um den Status (ein- oder ausgeblendet) anzuzeigen. Setze den Code entsprechend um, um die Benutzererfahrung zu verbessern.

  • Vermeide verbundene Zellen: Verbundene Zellen können die Arbeit mit Buttons erschweren. Verwende stattdessen die Funktion „Horizontal über Auswahl zentrieren“.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten auf einmal ausblenden? Du kannst die Spalten in einer Zeile angeben, z.B. Columns("A:C,E:G").Hidden = True.

2. Was mache ich, wenn der Button nicht funktioniert? Stelle sicher, dass die Datei als .xlsm gespeichert ist und dass der VBA-Code korrekt eingegeben wurde. Überprüfe auch den Blattnamen im Code.

3. Kann ich auch Zeilen mit einem Button ausblenden? Ja, du kannst den gleichen Ansatz verwenden, indem du Rows("1:10").Hidden = True im VBA-Code einfügst.

4. Wie speichere ich meine Excel-Datei mit Makros? Wähle beim Speichern „Excel-Arbeitsmappe mit Makros“ (*.xlsm) aus, um sicherzustellen, dass dein VBA-Code erhalten bleibt.

Beliebteste Forumthreads (12 Monate)

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