Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Karalien vom 23.02.2022, 10:09 Options

Excel Kontrollkästchen

Hallo,
Ich möchte gern zwei Excel Tabellen zusammenfügen. Die eine enthält alle Hauptthemen mit den wichtigsten Informationen und die zweite beinhaltet weitere Infos aber nur zu gewissen Themen, welche nicht in der Haupttabelle enthalten sind. - Die zusätzlichen drei Spalten der zweiten Tabelle möchte ich in die Haupttabelle übernehmen, sie sollen jedoch nicht umbedingt immer angezeigt werden. - Ist es möglich Kontrollkästchen in Excel einzufügen, welche dann die drei Spalten anzeigen lassen, sobald sie aktiviert wurden? Muss ich mit Makros arbeiten, damit die Spalten ein- und wieder ausgeblendet werden?

Vielen Dank für die Hilfe!

Antwort schreiben

Antwort 1 von Hajo_Zi vom 23.02.2022, 10:57 Options

Hallo,

benutze doch die Gruppierung von Excel, ganz ohne Makro.

Gruß Hajo

Antwort 2 von Karalien vom 23.02.2022, 13:50 Options

...die Gruppierung erzielt nicht ganz den gewünschten Effekt. Mein Ziel ist es, das die Spalten automatisch eingeblendet werden, sobald das Kontrollkästchen aktiviert wird. Nur gewisst Themen haben zusätzliche Infos und diese sollen dann so sichtbar werden.

Dennoch vielen Dank für den Vorschlag.

Antwort 3 von coros vom 24.02.2022, 05:24 Options

Hallo Jaqueline,

nachfolgender VBA-Code blendet Dir bei Aktivieren von Kontrollkästchen die Spalten E, F oder G ein bzw. wieder aus. Für diesen VBA-Code müssen Kontrollkästchen aus der Symbolleiste "Steuerelement-Toolbox" verwendet werden. Außerdem müssen die Namen der CheckBoxen "CheckBox1", "CheckBox2" und "CheckBox3" heißen.

Kopiere den VBA-Code in das VBA-Projekt des Tabellenblatts, in dem die CheckBoxen eingefügt wurden.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Private Sub CheckBox1_Click() 'Wenn CheckBox1 aktiviert, dann... If CheckBox1 = True Then '...Spalte E einblenden und ... Columns("E:E").EntireColumn.Hidden = False '...Text in CheckBox ändern (Text nur für das _ Beispiel, ist für die Funktion nicht notwendig) CheckBox1.Caption = "Spalte E Ein" '...wenn CheckBox nicht aktiviert, dann... Else '...Spalte E ausblenden und ... Columns("E:E").EntireColumn.Hidden = True '...Text in CheckBox ändern (Text nur für das _ Beispiel, ist für die Funktion nicht notwendig) CheckBox1.Caption = "Spalte E Aus" End If End Sub Private Sub CheckBox2_Click() 'Wenn CheckBox2 aktiviert, dann... If CheckBox2 = True Then '...Spalte F einblenden und ... Columns("F:F").EntireColumn.Hidden = False '...Text in CheckBox ändern (Text nur für das _ Beispiel, ist für die Funktion nicht notwendig) CheckBox2.Caption = "Spalte F Ein" Else '...Spalte F ausblenden und ... Columns("F:F").EntireColumn.Hidden = True CheckBox2.Caption = "Spalte F Aus" End If End Sub Private Sub CheckBox3_Click() 'Wenn CheckBox3 aktiviert, dann... If CheckBox3 = True Then '...Spalte G einblenden und ... Columns("G:G").EntireColumn.Hidden = False '...Text in CheckBox ändern (Text nur für das _ Beispiel, ist für die Funktion nicht notwendig) CheckBox3.Caption = "Spalte G Ein" Else '...Spalte G ausblenden und ... Columns("G:G").EntireColumn.Hidden = True '...Text in CheckBox ändern (Text nur für das _ Beispiel, ist für die Funktion nicht notwendig) CheckBox3.Caption = "Spalte G Aus" End If End Subb
Zum besseren Verständnis habe ich Dir mal eine Beispieldatei unter http://www.excelbeispiele.de/beispiele_supportnet/Durch_Kontrollkae... hochgeladen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von Karalien vom 24.02.2022, 12:27 Options

Vielen Dank für die Hilfe! Hat super geklappt in meiner 'Test-Datei', jetzt muss ich es nur noch ins Orginal kopieren.

Antwort 5 von coros vom 24.02.2022, 12:30 Options

Hallo Jaqueline,

gerne geschehen. Freut mich, dass alles funktioniert. Danke auch für die Rückmeldung.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 6 von Patrick_S vom 24.03.2022, 11:27 Options

Hallo Coros,

ich habe mir die Freiheit genommen und deine Anleitung einmal selber ausprobiert, da ich ein ähnliches Problem habe.
Es hat auch soweit hervorragend geklappt, nur habe ich dazu noch eine Frage.

Bei mir stellt sich das ganze so da:

Es gibt 3 Checkboxen, die auch entsprechend deiner Anleitung benannt wurden.
Diese Checkboxen sollen folgendes machen:

CheckBox1 = Aus / Einblenden der Spalte D
CheckBox2 = Aus / Einblenden der Spalte F
---- Bis hier hin funktioniert es wunderbar.....
CheckBox3 = Aus / Einblenden Spalte D bis einschl. S

Und das ist der Knackpunkt, ich dachte ich mach mal auf ganz schlau und habe folgendes versucht:

Private Sub CheckBox3_Click()
'Wenn CheckBox3 aktiviert, dann...
If CheckBox3 = True Then
'...Spalte G einblenden und ...
Columns("D:S").EntireColumn.Hidden = False
'...Text in CheckBox ändern (Text nur für das _
Beispiel, ist für die Funktion nicht notwendig)
CheckBox3.Caption = "Alle aktiviert"
Else
'...Spalte G ausblenden und ...
Columns("D:S").EntireColumn.Hidden = True
'...Text in CheckBox ändern (Text nur für das _
Beispiel, ist für die Funktion nicht notwendig)
CheckBox3.Caption = "Alle deaktiviert"
End If
End Subb

Leider meldet sich beim Anklicken der Debugger.
Kannst du mir vllt. hier weiterhelfen?

Besten Dank und Grüße

Patrick

Antwort 7 von coros vom 24.03.2022, 16:04 Options

Hallo Patrick,

bei mir funktioniert Dein Code. Welche Zeile wird denn gelb markiert, wenn Du die Debugg-Schaltfläche betätigst? Eventuell kannst Du ja auch eine Beispieldatei, bei der ebenfalls der Fehler auftritt, z.B. bei http://www.file-upload.net/ hochladen und den Link, den Du erhältst, uns hier mitteilen. Dann kann man schauen, wo das Problem liegt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 8 von Patrick_S vom 25.03.2022, 08:30 Options

Guten Morgen und vielen Dank für die Schnelle Antwort,

habe den Code gerade nochmals hinzugefügt und gesehen, das ich einen Schreibfehler drinn hatte.
Naja wer lesen kann ist klar im Vorteil :)
Vielen Dank aber nochmals für die schnelle Antwort.

Viele Grüße

Patrick

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..