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

Einfaches Makro (Spalten ein- ausblenden)

Forumthread: Einfaches Makro (Spalten ein- ausblenden)

Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 10:54:39
Thomas

Hallo liebes Excel Forum,
ich habe es mit dem Makrorekorder versucht, aber das wird leider nichts.
Folgendes möchte ich erreichen. Wenn ich eine Checkbox 1 anklicke soll die Spalte "J"ausgeblendet werden und die Spalte K eingeblendet. Verknüpft ist die Checkbox mit Zelle K4, die den Wert "Wahr" bei Cklick angibt.
Wenn ich die Checkbox erneut klicke (Haken also entfernen) soll das Spiel genau umgekehrt laufen, d.h.
Spalte J einblenden, Spalte K ausblenden.
Wer kann mir helfen?
lieben Gruß
Thomas

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:04:00
mumpel
Hallo!

Private Sub Checkbox1_Click()
If Checkbox1.Value = True then
Columns("J:J").EntireColumn.Hidden = True
Columns("K:K").EntireColumn.Hidden = False
Else
Columns("J:J").EntireColumn.Hidden = False
Columns("K:K").EntireColumn.Hidden = True
End If
End Sub


Dieses Makro hinter die Tabelle. Dazu rechtsklick auf den Tabellenreiter, Code anzeigen und den Code einfügen. Checkbox muss dabei aus Steuerlemente-Toolbox stammen.
Gruß, Rene

Anzeige
AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:09:00
Thomas
Klappt perfekt Rene,
herzlichen Dank!

AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:11:14
Hajo_Zi
Hallo Thomas,
und kürzer wäre es so
Option Explicit

Private Sub Checkbox1_Click()
Columns("J:J").EntireColumn.Hidden = Checkbox1.Value
Columns("K:K").EntireColumn.Hidden = Not Checkbox1.Value
End Sub



Anzeige
AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:12:11
Erich
Hallo Thomas,
das sollte auch ausreichen: 

Private Sub CheckBox1_Click()
Columns(10).Hidden = CheckBox1
Columns(11).Hidden = Not CheckBox1
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:13:39
Daniel
Hi,
nutze diesen Code bei der Checkbox1

Private Sub CheckBox1_Change()
If CheckBox1.Value = 0 Then
Range("J:J").EntireColumn.Hidden = True
Range("k:k").EntireColumn.Hidden = False
Else
Range("J:J").EntireColumn.Hidden = False
Range("k:k").EntireColumn.Hidden = True
End If
End Sub


Klappt?
Daniel

Anzeige
AW: Einfaches Makro (Spalten ein- ausblenden)
04.12.2007 11:32:20
Thomas
Find es echt nett von euch, dass ihr alle helfen wollt.
Leider bin ich arbeiten und habe nicht die Zeit alles auszuprobieren. Hab das erste genommen, was geklappt hat.
Trotzdem danke ich euch allen für eure Hilfe. Dieses Forum (und damit natürlich die fleißigen Helfer)
ist echt spitze.
Also nicht böse sein.
Wünsch euch ne schöne Weihnachtsvorzeit mit viel Glühwein und Plätzchen.
Gruß
Thomas
Anzeige
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Spalten ausblenden - Makro tut nicht mehr
Daniel

Hallo,
gibt es eine Möglichkeit/ Befehl ein Makro auf eine Zelle zugreifen zu lassen, die ausgeblendet ist, ohne diese einzublenden?
Excel kann kann ja auch berechnungen durchführen obwohl die spalte net angezeigt wird.
Mfg
Daniel
05.11.2009 14:56:28
Thread-ID: 1114735
6 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 Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
Makro zum Spalten ausblenden
Andreas

Hallo an alle Excel Profis,
ich habe in der Zellen A1-Z1 verschiedene Zahlen eingetragen.
Einige Zellen sind jedoch auch leer bzw. mit falsch ausgefüllt.
Kann ich durch ein Makro die Spalten in denen kein Wert bzw. "falsch" eingetragen ist ausblenden?
Danke vielmals für eure...
16.06.2011 22:29:04
Thread-ID: 1218642
4 Beiträge
Anzeige
VBA Zeilen aus/einblenden
Christian

Hallo,
ich habe in den Zeilen (Mappe "Übersicht") B10-B35 die Einträge "Team Meier; Team Schulze; Team Müller; Team Krüger etc. In H10-H35 errechne ich einen Zielwert, nachdem der Datenbereich sortiert wird.
Die Teams gehören einzelnen Abtl, die ich per Button anzeigen lassen möchte. <...
08.07.2011 09:51:42
Thread-ID: 1221319
2 Beiträge
makro spalten ausblenden bereichsabhängig
jxht8iwm

Hallo, ich suche ein Makro, dass bestimmte Spalten ausblendet, abhängig von Werten in einem definierten Bereich.
Spaltenüberschriften bilden die Zeilen 2 bis 4 (zellinhalte sind Texte und Zahlen).
Im Bereich C6 bis I9 gibt es die Werte "x" und "". Von den Spalten C bis I sollen alle aus...
30.08.2011 00:38:13
Thread-ID: 1227947
3 Beiträge
Anzeige
Makro Leere Zeilen ausblenden Office 2010
Maksiu

Servus Miteinander!
Vor längerer Zeit habe ich von Euch das folgende Makro bekommen, das mir in den Bereichen E13:E24 und E30:E109 und E122:E265 die Zeilen ausblendet, die in Spalte E einen Wert Leider funktioniert das Makro auf Office 2007 und Office 2010 nicht.
Wie muss das Makro für...
18.10.2011 17:08:26
Thread-ID: 1234374
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Einfaches Makro zum Ein- und Ausblenden von Spalten in Excel

Schritt-für-Schritt-Anleitung

Um ein einfaches Excel-Makro zu erstellen, das Spalten ausblendet und einblendet, folge diesen Schritten:

  1. Entwicklertools aktivieren: Stelle sicher, dass die Entwicklertools in Excel aktiviert sind. Gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die „Entwicklertools“.

  2. Checkbox hinzufügen: Füge eine Checkbox aus der Steuerlemente-Toolbox in dein Arbeitsblatt ein. Rechtsklicke auf den Tabellenreiter und wähle „Steuerelemente einfügen“, um eine Checkbox hinzuzufügen.

  3. VBA-Editor öffnen: Klicke mit der rechten Maustaste auf den Tabellenreiter, wähle „Code anzeigen“, um den VBA-Editor zu öffnen.

  4. Code einfügen: Füge den folgenden Code in das VBA-Fenster ein:

    Private Sub Checkbox1_Click()
   If Checkbox1.Value = True Then
       Columns("J:J").EntireColumn.Hidden = True
       Columns("K:K").EntireColumn.Hidden = False
   Else
       Columns("J:J").EntireColumn.Hidden = False
       Columns("K:K").EntireColumn.Hidden = True
   End If
End Sub

  5. Testen: Schließe den VBA-Editor und teste die Checkbox. Wenn du sie anklickst, sollten die Spalten J und K entsprechend ausgeblendet und eingeblendet werden.

Häufige Fehler und Lösungen

  • Checkbox funktioniert nicht: Stelle sicher, dass die Checkbox mit dem richtigen Steuerelement verknüpft ist und dass der Code im richtigen Modul steht.

  • Spalten werden nicht richtig angezeigt: Überprüfe, ob andere Makros oder Einstellungen in Excel die Sichtbarkeit der Spalten beeinflussen.

  • Excel stürzt ab: Wenn dein Excel häufig abstürzt, kann es an einem fehlerhaften VBA-Code liegen. Überprüfe den Code auf Syntaxfehler.

Alternative Methoden

Falls du eine andere Methode zum Ausblenden von Spalten in Excel bevorzugst, kannst du die folgenden Alternativen in Betracht ziehen:

  • VBA Code für mehrere Spalten: Wenn du mehrere Spalten auf einmal ausblenden möchtest, kannst du diesen Code verwenden:

    Private Sub Checkbox1_Click()
   Columns("J:K").EntireColumn.Hidden = Checkbox1.Value
End Sub

  • Verwendung von Schaltflächen: Du kannst auch Schaltflächen verwenden, um das Ausblenden und Einblenden von Spalten zu steuern.

Praktische Beispiele

Hier sind einige praktische Beispiele für die Verwendung von Makros zum Ausblenden von Spalten:

  1. Einfaches Ausblenden mit einer Checkbox:

    Private Sub Checkbox1_Click()
   Columns("J:J").EntireColumn.Hidden = Checkbox1.Value
End Sub

  2. Alle Spalten einblenden:

    Sub AlleSpaltenEinblenden()
   Columns.Hidden = False
End Sub

  3. Mehrere Spalten mit einem Button ausblenden:

    Sub SpaltenAusblenden()
   Columns("J:K").EntireColumn.Hidden = True
End Sub

Tipps für Profis

  • Code optimieren: Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler im Code zu vermeiden.

  • Fehlerbehandlung: Implementiere Fehlerbehandlung in deinem VBA-Code, um sicherzustellen, dass dein Makro nicht abbricht, wenn es auf unerwartete Probleme stößt.

  • Dokumentation: Kommentiere deinen Code, damit du und andere ihn später besser verstehen können.

FAQ: Häufige Fragen

1. Warum funktioniert das Makro nicht?
Überprüfe, ob die Checkbox korrekt verknüpft ist und der VBA-Code im richtigen Modul eingefügt wurde.

2. Kann ich mehrere Checkboxen verwenden?
Ja, du kannst mehrere Checkboxen verwenden, um unterschiedliche Spalten ein- oder auszublenden. Du musst für jede Checkbox einen eigenen VBA-Code schreiben.

3. Wie kann ich Spalten wieder einblenden?
Verwende den Befehl Columns("J:J").EntireColumn.Hidden = False in deinem VBA-Code, um die Spalten wieder sichtbar zu machen.

Beliebteste Forumthreads (12 Monate)

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