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
1756to1760
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
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkboxen beibehalten

Checkboxen beibehalten
11.05.2020 11:44:05
excelkid
Hallo zusammen,
in eine Userform habe ich einige Checkboxen eingefügt, mit denen man Spalten ein- und ausblenden kann. Ich möchte die Auswahl der Checkboxen nach Schließen der Userform beibehalten so dass beim Aktivieren der Userform die Auswahl wieder auftaucht.
Ich habe gelesen, dass es mit der Controlsource Funktion möglich sein soll die Auswahl zwischenzuspeichern, jedoch habe ich keinen Schimmer wie ich das in meinen Code einbaue.
Private Sub Check1_Click()
If Check1.Value = False Then
Sheets("Übersicht").Select
Columns("F").Hidden = Not Check1.Value
Else
If Check1.Value = True Then
Sheets("Übersicht").Select
Columns("F").Hidden = Not Check1.Value
End If
End If
End Sub


Private Sub Check10_Click()
If Check10.Value = False Then
Sheets("Übersicht").Select
Columns("AG").Hidden = Not Check10.Value
Else
If Check10.Value = True Then
Sheets("Übersicht").Select
Columns("AG").Hidden = Not Check10.Value
End If
End If
End Sub


Private Sub Check11_Click()
If Check11.Value = False Then
Sheets("Übersicht").Select
Columns("AJ").Hidden = Not Check11.Value
Else
If Check11.Value = True Then
Sheets("Übersicht").Select
Columns("AJ").Hidden = Not Check11.Value
End If
End If
End Sub


Private Sub Check12_Click()
If Check12.Value = False Then
Sheets("Übersicht").Select
Columns("AM").Hidden = Not Check12.Value
Else
If Check12.Value = True Then
Sheets("Übersicht").Select
Columns("AM").Hidden = Not Check12.Value
End If
End If
End Sub


Private Sub Check13_Click()
If Check13.Value = False Then
Sheets("Übersicht").Select
Columns("G:H").Hidden = Not Check13.Value
Else
If Check13.Value = True Then
Sheets("Übersicht").Select
Columns("G:H").Hidden = Not Check13.Value
End If
End If
End Sub


Private Sub Check14_Click()
If Check14.Value = False Then
Sheets("Übersicht").Select
Columns("J:K").Hidden = Not Check14.Value
Else
If Check14.Value = True Then
Sheets("Übersicht").Select
Columns("J:K").Hidden = Not Check14.Value
End If
End If
End Sub


Private Sub Check15_Click()
If Check15.Value = False Then
Sheets("Übersicht").Select
Columns("M:N").Hidden = Not Check15.Value
Else
If Check15.Value = True Then
Sheets("Übersicht").Select
Columns("M:N").Hidden = Not Check15.Value
End If
End If
End Sub


Private Sub Check17_Click()
If Check17.Value = False Then
Sheets("Übersicht").Select
Columns("S:T").Hidden = Not Check17.Value
Else
If Check17.Value = True Then
Sheets("Übersicht").Select
Columns("S:T").Hidden = Not Check17.Value
End If
End If
End Sub


Private Sub Check18_Click()
If Check18.Value = False Then
Sheets("Übersicht").Select
Columns("V:W").Hidden = Not Check18.Value
Else
If Check18.Value = True Then
Sheets("Übersicht").Select
Columns("V:W").Hidden = Not Check18.Value
End If
End If
End Sub


Private Sub Check19_Click()
If Check19.Value = False Then
Sheets("Übersicht").Select
Columns("Y:Z").Hidden = Not Check19.Value
Else
If Check19.Value = True Then
Sheets("Übersicht").Select
Columns("Y:Z").Hidden = Not Check19.Value
End If
End If
End Sub


Private Sub Check2_Click()
If Check2.Value = False Then
Sheets("Übersicht").Select
Columns("I").Hidden = Not Check2.Value
Else
If Check2.Value = True Then
Sheets("Übersicht").Select
Columns("I").Hidden = Not Check2.Value
End If
End If
End Sub


Private Sub Check20_Click()
If Check20.Value = False Then
Sheets("Übersicht").Select
Columns("AB:AC").Hidden = Not Check20.Value
Else
If Check20.Value = True Then
Sheets("Übersicht").Select
Columns("AB:AC").Hidden = Not Check20.Value
End If
End If
End Sub


Private Sub Check21_Click()
If Check21.Value = False Then
Sheets("Übersicht").Select
Columns("AE:AF").Hidden = Not Check21.Value
Else
If Check21.Value = True Then
Sheets("Übersicht").Select
Columns("AE:AF").Hidden = Not Check21.Value
End If
End If
End Sub


Private Sub Check22_Click()
If Check22.Value = False Then
Sheets("Übersicht").Select
Columns("AH:AI").Hidden = Not Check22.Value
Else
If Check22.Value = True Then
Sheets("Übersicht").Select
Columns("AH:AI").Hidden = Not Check22.Value
End If
End If
End Sub


Private Sub Check23_Click()
If Check23.Value = False Then
Sheets("Übersicht").Select
Columns("AK:AL").Hidden = Not Check23.Value
Else
If Check23.Value = True Then
Sheets("Übersicht").Select
Columns("AK:AL").Hidden = Not Check23.Value
End If
End If
End Sub


Private Sub Check24_Click()
If Check24.Value = False Then
Sheets("Übersicht").Select
Columns("AN:AO").Hidden = Not Check24.Value
Else
If Check24.Value = True Then
Sheets("Übersicht").Select
Columns("AN:AO").Hidden = Not Check24.Value
End If
End If
End Sub


Private Sub Check26_Click()
If Check26.Value = False Then
Sheets("Übersicht").Select
Columns("C").Hidden = Not Check26.Value
Else
If Check26.Value = True Then
Sheets("Übersicht").Select
Columns("C").Hidden = Not Check26.Value
End If
End If
End Sub


Private Sub Check27_Click()
If Check27.Value = False Then
Sheets("Übersicht").Select
Columns("D").Hidden = Not Check27.Value
Else
If Check27.Value = True Then
Sheets("Übersicht").Select
Columns("D").Hidden = Not Check27.Value
End If
End If
End Sub


Private Sub Check3_Click()
If Check3.Value = False Then
Sheets("Übersicht").Select
Columns("L").Hidden = Not Check3.Value
Else
If Check3.Value = True Then
Sheets("Übersicht").Select
Columns("L").Hidden = Not Check3.Value
End If
End If
End Sub


Private Sub Check4_Click()
If Check4.Value = False Then
Sheets("Übersicht").Select
Columns("O").Hidden = Not Check4.Value
Else
If Check4.Value = True Then
Sheets("Übersicht").Select
Columns("O").Hidden = Not Check4.Value
End If
End If
End Sub


Private Sub Check5_Click()
If Check5.Value = False Then
Sheets("Übersicht").Select
Columns("R").Hidden = Not Check5.Value
Else
If Check5.Value = True Then
Sheets("Übersicht").Select
Columns("R").Hidden = Not Check5.Value
End If
End If
End Sub


Private Sub Check6_Click()
If Check6.Value = False Then
Sheets("Übersicht").Select
Columns("U").Hidden = Not Check6.Value
Else
If Check6.Value = True Then
Sheets("Übersicht").Select
Columns("U").Hidden = Not Check6.Value
End If
End If
End Sub


Private Sub Check7_Click()
If Check7.Value = False Then
Sheets("Übersicht").Select
Columns("X").Hidden = Not Check7.Value
Else
If Check7.Value = True Then
Sheets("Übersicht").Select
Columns("X").Hidden = Not Check7.Value
End If
End If
End Sub


Private Sub Check8_Click()
If Check8.Value = False Then
Sheets("Übersicht").Select
Columns("AA").Hidden = Not Check8.Value
Else
If Check8.Value = True Then
Sheets("Übersicht").Select
Columns("AA").Hidden = Not Check8.Value
End If
End If
End Sub


Private Sub Check9_Click()
If Check9.Value = False Then
Sheets("Übersicht").Select
Columns("AD").Hidden = Not Check9.Value
Else
If Check9.Value = True Then
Sheets("Übersicht").Select
Columns("AD").Hidden = Not Check9.Value
End If
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen beibehalten
11.05.2020 12:21:25
Werner
Hallo,
das hier als Code für deine Checkboxen reicht: 
Private Sub Check1_Click()
Sheets("Übersicht").Columns("F").Hidden = Not Me.Check1.Value
End Sub
Und dann im Initialize der Userform: 
Private Sub UserForm_Initialize()
Me.Check1 = Not Sheets("Übersicht").Columns("F").Hidden
End Sub
Für die übrigen Checkboxen/Bereiche dann genauso.
Gruß Werner
AW: Checkboxen beibehalten
11.05.2020 13:57:31
excelkid
Hallo Werner,
danke für die schnelle Antwort!
Ich habe den Code nun angepasst, jedoch bleibt das Häkchen in der Checkbox nicht aktiviert wenn ich die Userform schließe und wieder öffne.
Private Sub ButtonBestätigen_Click()
Unload meinFormular
End Sub


Private Sub Buttoncancel_Click()
Unload meinFormular
End Sub

Private Sub Check1_Click()
Sheets("Übersicht").Columns("F").Hidden = Not Me.Check1.Value
End Sub


Private Sub Check10_Click()
Sheets("Übersicht").Columns("AG").Hidden = Not Me.Check10.Value
End Sub

Private Sub Check11_Click()
Sheets("Übersicht").Columns("AJ").Hidden = Not Me.Check11.Value
End Sub

Private Sub Check12_Click()
Sheets("Übersicht").Columns("AM").Hidden = Not Me.Check12.Value
End Sub

Private Sub Check13_Click()
Sheets("Übersicht").Columns("G:H").Hidden = Not Me.Check13.Value
End Sub


Private Sub Check14_Click()
Sheets("Übersicht").Columns("J:K").Hidden = Not Me.Check14.Value
End Sub


Private Sub Check15_Click()
Sheets("Übersicht").Columns("M:N").Hidden = Not Me.Check15.Value
End Sub

Private Sub Check17_Click()
Sheets("Übersicht").Columns("S:T").Hidden = Not Me.Check17.Value
End Sub


Private Sub Check18_Click()
Sheets("Übersicht").Columns("V:W").Hidden = Not Me.Check18.Value
End Sub

Private Sub Check19_Click()
Sheets("Übersicht").Columns("Y:Z").Hidden = Not Me.Check19.Value
End Sub

Private Sub Check2_Click()
Sheets("Übersicht").Columns("I").Hidden = Not Me.Check2.Value
End Sub

Private Sub Check20_Click()
Sheets("Übersicht").Columns("AB:AC").Hidden = Not Me.Check20.Value
End Sub

Private Sub Check21_Click()
Sheets("Übersicht").Columns("AE:AF").Hidden = Not Me.Check21.Value
End Sub

Private Sub Check22_Click()
Sheets("Übersicht").Columns("AH:AI").Hidden = Not Me.Check22.Value
End Sub


Private Sub Check23_Click()
Sheets("Übersicht").Columns("AK:AL").Hidden = Not Me.Check23.Value
End Sub


Private Sub Check24_Click()
Sheets("Übersicht").Columns("AN:AO").Hidden = Not Me.Check24.Value
End Sub

Private Sub Check26_Click()
Sheets("Übersicht").Columns("C").Hidden = Not Me.Check26.Value
End Sub

Private Sub Check27_Click()
Sheets("Übersicht").Columns("D").Hidden = Not Me.Check27.Value
End Sub

Private Sub Check3_Click()
Sheets("Übersicht").Columns("L").Hidden = Not Me.Check3.Value
End Sub

Private Sub Check4_Click()
Sheets("Übersicht").Columns("O").Hidden = Not Me.Check4.Value
End Sub


Private Sub Check5_Click()
Sheets("Übersicht").Columns("R").Hidden = Not Me.Check5.Value
End Sub

Private Sub Check6_Click()
Sheets("Übersicht").Columns("U").Hidden = Not Me.Check6.Value
End Sub

Private Sub Check7_Click()
Sheets("Übersicht").Columns("X").Hidden = Not Me.Check7.Value
End Sub


Private Sub Check8_Click()
Sheets("Übersicht").Columns("AA").Hidden = Not Me.Check8.Value
End Sub


Private Sub Check9_Click()
Sheets("Übersicht").Columns("AD").Hidden = Not Me.Check9.Value
End Sub

Private Sub meinFormular_initialize()
Me.Check1 = Not Sheets("Übersicht").Columns("F").Hidden
Me.Check2 = Not Sheets("Übersicht").Columns("I").Hidden
Me.Check3 = Not Sheets("Übersicht").Columns("L").Hidden
Me.Check4 = Not Sheets("Übersicht").Columns("O").Hidden
Me.Check5 = Not Sheets("Übersicht").Columns("R").Hidden
Me.Check6 = Not Sheets("Übersicht").Columns("U").Hidden
Me.Check7 = Not Sheets("Übersicht").Columns("X").Hidden
Me.Check8 = Not Sheets("Übersicht").Columns("AA").Hidden
Me.Check9 = Not Sheets("Übersicht").Columns("AD").Hidden
Me.Check10 = Not Sheets("Übersicht").Columns("AG").Hidden
Me.Check11 = Not Sheets("Übersicht").Columns("AJ").Hidden
Me.Check12 = Not Sheets("Übersicht").Columns("AM").Hidden
Me.Check13 = Not Sheets("Übersicht").Columns("G:H").Hidden
Me.Check14 = Not Sheets("Übersicht").Columns("J:K").Hidden
Me.Check15 = Not Sheets("Übersicht").Columns("M:N").Hidden
Me.Check16 = Not Sheets("Übersicht").Columns("P:Q").Hidden
Me.Check17 = Not Sheets("Übersicht").Columns("S:T").Hidden
Me.Check18 = Not Sheets("Übersicht").Columns("V:W").Hidden
Me.Check19 = Not Sheets("Übersicht").Columns("Y:Z").Hidden
Me.Check20 = Not Sheets("Übersicht").Columns("AB:AC").Hidden
Me.Check21 = Not Sheets("Übersicht").Columns("AE:AF").Hidden
Me.Check22 = Not Sheets("Übersicht").Columns("AH:AI").Hidden
Me.Check23 = Not Sheets("Übersicht").Columns("AK:AL").Hidden
Me.Check24 = Not Sheets("Übersicht").Columns("AN:AO").Hidden
Me.Check25 = Not Sheets("Übersicht").Columns("B").Hidden
Me.Check26 = Not Sheets("Übersicht").Columns("C").Hidden
Me.Check27 = Not Sheets("Übersicht").Columns("D").Hidden
Me.Check28 = Not Sheets("Übersicht").Columns("E").Hidden
End Sub

Private Sub Check16_Click()
Sheets("Übersicht").Columns("P:Q").Hidden = Not Me.Check16.Value
End Sub

Private Sub Check25_Click()
Sheets("Übersicht").Columns("B").Hidden = Not Me.Check25.Value
End Sub


Private Sub Check28_Click()
Sheets("Übersicht").Columns("E").Hidden = Not Me.Check28.Value
End Sub

Anzeige
AW: Checkboxen beibehalten
11.05.2020 14:24:10
Werner
Hallo,
wann sollen denn die Spalten ausgeblendet werden?
Checkbox ausgewählt (angehakt) - Spalte ausblenden
oder umgekehrt
Checkbox nicht ausgewählt (nicht angehakt) - Spalte ausblenden
Wenn 1. dann brauchst du doch nur jeweils beim Code deiner Checkboxen und beim Initialize jeweils das Not aus dem Code zu löschen.
Gruß Werner
AW: Checkboxen beibehalten
12.05.2020 09:14:20
excelkid
Hallo Werner,
die Spalten sollen ausgeblendet bleiben wenn die Checkbox nicht ausgewählt ist.
Wenn die Checkbox ausgewählt ist und ich die Userform schließe, möchte ich beim erneuten Öffnen der Userforum die Checkboxauswahl vom letzten Mal beibehalten, quasi als "Abbild" der aktuell ein- und ausgeblendeten Spalten.
Gruß Excelkid
Anzeige
AW: Checkboxen beibehalten
12.05.2020 09:51:41
Werner
Hallo,
das Event heißt: 
Private Sub UserForm_Initialize()

und nicht: 
Private Sub meinFormular_initialize()
Gruß Werner
AW: Checkboxen beibehalten
12.05.2020 10:36:46
excelkid
Hallo Werner,
hat nun funktioniert, danke dir vielmals!
Gruß
excelkid
Gerne u. Danke für die Rückmeldung. o.w.T.
12.05.2020 10:43:03
Werner

Links zu Excel-Dialogen

CheckBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige