Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden mit zwei CheckBoxen

Spalten ausblenden mit zwei CheckBoxen
14.05.2014 15:09:31
Alexander
Hallo liebe Forumsmitglieder,
als absoluter VBA-Neuling habe ich innerhalb der letzten Wochen versucht, mir ein paar Kenntnisse - über einschlägige Forenbeiträge und Suchmaschinenergebnisse bin ich auch bereits etwas vorangekommen - anzueignen. Doch nun komme ich bedauerlicherweise nicht weiter und erhoffe mir, hier etwas Unterstützung erhalten zu können.
Ich möchte gern mit zwei CheckBoxen ganze Spalten ausblenden.
Folgendes habe ich mir zusammengereimt:
Private Sub UST_Pflicht_Click()
If UST_Pflicht.Value = False Then
Range("AF:AF").EntireColumn.Hidden = True
Range("AH:AH").EntireColumn.Hidden = True
Else
UST_Pflicht.Value = True
Range("AF:AF").EntireColumn.Hidden = False
Range("AH:AH").EntireColumn.Hidden = False
End If
End Sub


Private Sub KEINE_VAR_Click()
If KEINE_VAR.Value = True Then
Range("AE:AF").EntireColumn.Hidden = True
Else
KEINE_VAR.Value = False
Range("AE:AF").EntireColumn.Hidden = False
End If
End Sub

Es funktioniert auch in etwa, doch lassen sich die Spalten, wenn einmal ausgeblendet nur über Umwege wieder einblenden. Läuft nicht wirklich geschmeidig.
Für Eure Ratschläge bin ich sehr dankbar.
Grüße,
Alex

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 15:24:30
Rudi
Hallo,
ohne If und Else: 
Private Sub UST_Pflicht_Click()
Range("AF:AF").EntireColumn.Hidden = Not UST_Pflicht
Range("AH:AH").EntireColumn.Hidden = Not UST_Pflicht
End Sub
Private Sub KEINE_VAR_Click()
Range("AE:AF").EntireColumn.Hidden = Not KEINE_VAR
End Sub
das 
UST_Pflicht.Value = True

löst wieder das Kick-Event aus.
Gruß
Rudi

AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 15:35:31
Alexander
Hallo Rudi,
vielen Dank für die schnelle Rückmeldung.
Habe den Code mal eingefügt - funktioniert leider noch nicht so, wie ich es mir vorstelle:
Mit der ersten CheckBox möchte ich, wenn der Haken gesetzt ist, die Spalten AF und AH einblenden.
Mit der zweiten Checkbox sollen, wenn Haken gesetzt ist, die Spalten AE un AF ausgeblendet werden.
Und auch, wenn die Haken unabhängig von einander angeklickt werden, sollen die Spalten auch wieder ein-, bzw. ausgeblendet werden.
Könnte es sein, dass ich hier ggf. mit einer Schleife weiterkomme? Oder wozu werden diese benutzt?
Grüße,
Alex

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 16:01:04
Rudi
Hallo,
jetzt haben ja beide CheckBoxen Einfluss auf AF.
Soll also AF nur eingeblendet werden, wenn beide angehakt sind oder was?
Gruß
Rudi

AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 16:16:39
Alexander
Hallo,
ja, beide haben Einfluss auf AF.
Folgend der Versuch, die gewünschte Situation etwas detaillierter darszustellen:
Die Spalten AF und AH sollen von Beginn an ausgeblendet sein (UST_Pflicht.Value = False / kein Haken gesezt). Wenn UST_Pflicht.Value = True, bzw. wenn in der ersten CheckBox der Haken gesetzt wird, sollen die Spalten AF und AH eingeblendet werden.
Weiterhin sollen, sofern bei der zweiten CheckBox der Haken gesetzt werden sollte (KEINE_VAR.Value = True), die Spalten AE und AF ausgeblendet sein.
Ergibt dies Sinn? Ist es nun etwas nachvollziehbarer?
Vielen Dank für die Hilfe!
Grüße,
Alex

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 16:34:32
Rudi
Hallo,
Wenn UST_Pflicht.Value = True, bzw. wenn in der ersten CheckBox der Haken gesetzt wird, sollen die Spalten AF und AH eingeblendet werden.
AF auch einblenden, obwohl cbx2=true?

AW: Spalten ausblenden mit zwei CheckBoxen
14.05.2014 17:10:42
Alexander
Hallo Rudi,
nee, für den Fall, dass cbx1=true und cbx2=true, AF ebenfall, bzw. trotzdem ausblenden.

AW: Spalten ausblenden mit zwei CheckBoxen
15.05.2014 01:22:55
Ewald
Hallo,
hier mal das Grundgerüst des Codes
Dim Vorgabe As Byte
If Not cbx1 And Not cbx2 Then Vorgabe = 0
If cbx1 And Not cbx2 Then Vorgabe = 1
If Not cbx1 And cbx2 Then Vorgabe = 2
If cbx1 And cbx2 Then Vorgabe = 3
Select Case Vorgabe
Case 0
'was passieren soll bei beide aus
Case 1
'was passieren soll bei cbx1 aktiv
Case 2
'was passieren soll bei cbx2 aktiv
Case 3
'was passieren soll bei beide ein
End Select
die erste Zeile in der Codeanweisung muß immer erst alle Spalten einblenden
ActiveSheet.Columns.Hidden = False
Gru0 Ewald

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
15.05.2014 10:14:12
Ewald
Hallo Alexander,
liste mal die Zustände auf
0 beide aus dann
1 cbx1 ein dann
2 cbx2 ein dann
3 beide ein dann
wenn diese Info vorliegen,sehen wir weiter
Gruß Ewald

AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 10:07:49
Alexander
Hallo Ewald,
vielen Dank für Deine Unterstützung.
Hier die gewünschten Zustände:
0 beide aus dann Spalten AF und AH ausgeblendet
1 cbx1 ein dann Spalten AF und AH eingeblendet
2 cbx2 ein dann Spalten AE und AF ausgeblendet
3 beide ein dann Spalten AE, AF und AH ausgeblendet
Grüße,
Alex

AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 13:09:24
Ewald
Hallo Alex,
dann sollte dies funktionieren
Private Sub cbx1_Click()
Dim Vorgabe As Byte
If Not cbx1 And Not cbx2 Then Vorgabe = 0
If cbx1 And Not cbx2 Then Vorgabe = 1
If Not cbx1 And cbx2 Then Vorgabe = 2
If cbx1 And cbx2 Then Vorgabe = 3
Select Case Vorgabe
Case 0
ActiveSheet.Columns.Hidden = False
Columns(32).EntireColumn.Hidden = True
Columns(34).EntireColumn.Hidden = True
Case 1
ActiveSheet.Columns.Hidden = False
Case 2
ActiveSheet.Columns.Hidden = False
Columns(31).EntireColumn.Hidden = True
Columns(32).EntireColumn.Hidden = True
Case 3
ActiveSheet.Columns.Hidden = False
Columns(31).EntireColumn.Hidden = True
Columns(32).EntireColumn.Hidden = True
Columns(34).EntireColumn.Hidden = True
End Select
End Sub
Private Sub cbx2_Click()
Dim Vorgabe As Byte
If Not cbx1 And Not cbx2 Then Vorgabe = 0
If cbx1 And Not cbx2 Then Vorgabe = 1
If Not cbx1 And cbx2 Then Vorgabe = 2
If cbx1 And cbx2 Then Vorgabe = 3
Select Case Vorgabe
Case 0
ActiveSheet.Columns.Hidden = False
Columns(32).EntireColumn.Hidden = True
Columns(34).EntireColumn.Hidden = True
Case 1
ActiveSheet.Columns.Hidden = False
Case 2
ActiveSheet.Columns.Hidden = False
Columns(31).EntireColumn.Hidden = True
Columns(32).EntireColumn.Hidden = True
Case 3
ActiveSheet.Columns.Hidden = False
Columns(31).EntireColumn.Hidden = True
Columns(32).EntireColumn.Hidden = True
Columns(34).EntireColumn.Hidden = True
End Select
Gruß Ewald

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 13:47:48
Alexander
Hi Ewald,
super! Klappt alles hervorragend! :-)
Bis auf die Tatsache, dass natürlich jetzt durch ActiveSheet.Columns.Hidden = False auch alle anderen Spalten, die ich unabhängig von 31 bis 34 mit anderen Schaltflächen aus- bzw. einblende, nun natürlich auch alle wieder eingeblendet werden. Lässt sich das noch irgendwie umgehen?
Dies sind die betroffenen Schaltflächen, zu denen noch einige mehr der gleichen Art hinzukommen sollen:
Private Sub Vertrag1_ZWEI_Preiskomponenten_Click()
If Vertrag1_ZWEI_Preiskomponenten.Value = False Then
Application.ScreenUpdating = False
Range("H:J").EntireColumn.Hidden = True
Else
Vertrag1_ZWEI_Preiskomponenten.Value = True
Range("H:J").EntireColumn.Hidden = False
End If
End Sub


Private Sub VERTRAG2_hinzufügen_Click()
If VERTRAG2_hinzufügen.Value = True Then
Application.ScreenUpdating = False
Range("M:U").EntireColumn.Hidden = False
Range("Q:S").EntireColumn.Hidden = True
Vertrag2_ZWEI_Preiskomponenten.Visible = True
Else
VERTRAG2_hinzufügen.Value = False
Range("M:U").EntireColumn.Hidden = True
Vertrag2_ZWEI_Preiskomponenten.Visible = False
End If
End Sub
Grüße
Alex

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 14:33:08
Ewald
Hallo Alex,
dann setz nur den Bereich zurück
anstatt
ActiveSheet.Columns.Hidden = False
dann
Columns("AE:AH").EntireColumn.Hidden = False
Gruß Ewald

AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 14:37:59
Alexander
Hallo Ewald,
ich danke Dir! Das funktioniert natürlich besser als, mit Range, was ich soeben versucht habe.
Dann schließe ich mal den Thread.
Nochmals Danke für Eure Hilfe!
Alex

AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 14:42:22
Alexander
Hallo Ewald,
spitzenmäßig! Das funitioniert erheblich besser als mit Range(...), womit ich dies eben noch probiert hatte.
Danke für Eure Unterstützung! Toll, dass es dieses Forum gibt!
Grüße
Alex

Anzeige
AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 14:42:23
Alexander
Hallo Ewald,
spitzenmäßig! Das funitioniert erheblich besser als mit Range(...), womit ich dies eben noch probiert hatte.
Danke für Eure Unterstützung! Toll, dass es dieses Forum gibt!
Grüße
Alex

AW: Spalten ausblenden mit zwei CheckBoxen
16.05.2014 14:42:25
Alexander
Hallo Ewald,
spitzenmäßig! Das funitioniert erheblich besser als mit Range(...), womit ich dies eben noch probiert hatte.
Danke für Eure Unterstützung! Toll, dass es dieses Forum gibt!
Grüße
Alex

311 Forumthreads zu ähnlichen Themen

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
Anzeige
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
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
Anzeige
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
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
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8