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

48 CheckBoxen aufeinmal leeren

48 CheckBoxen aufeinmal leeren
04.03.2015 17:08:15
Heinz
Hallo Leute
Wie könnte ich in einer UF die CheckBoxen 2-49 aufeinmal leeren?
Private Sub ComboBoxLinie_Change()
'CheckBoxen leeren
CheckBox2.Value = False
Gruß, Heinz

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

Betreff
Datum
Anwender
Anzeige
AW: 48 CheckBoxen aufeinmal leeren
04.03.2015 17:12:03
Daniel
Hi
wenn die Checkboxen so benannt sind:
dim i as long
for i = 2 to 49
Me.Controls("CheckBox" & i).Value = False
next
Gruß Daniel

Daniel Danke, heute zum zweiten mal
04.03.2015 17:14:10
Heinz
Hallo Daniel
Einfach wunderbar.
Recht herzlichen Dank.
Gruß, Heinz

Code verkürzen?
04.03.2015 17:41:59
Heinz
Hallo Daniel
Könnte man auch hier den Code verkürzen?
Es handelt sich auch um CheckBox2 bis CheckBox49
  • 'Checkbox von WAHR auf 1 stellen 
    Private Sub CheckBox2_Click()
CheckBox2.Visible = IIf(CheckBox2.Value = "WAHR", 0, 1) * 1
End Sub


    Private Sub CheckBox3_Click()
CheckBox3.Visible = IIf(CheckBox3.Value = "WAHR", 0, 1) * 1
End Sub


    • Gruß, Heinz

    Anzeige
    AW: Code verkürzen?
    04.03.2015 18:01:52
    Daniel
    Hi
    ich gehe mal davon aus, dass du nicht für alle Checkboxen das Click-Event erstellen willst, sondern ein Klick-Eventmakro, welches dann für die Checkboxen 2-49 gilt.
    das geht prinzipell mit der sog. Klassenprogrammierung, aber damit kenne ich mich nicht aus.
    Gruß Daniel

    Danke Daniel
    04.03.2015 18:06:45
    Heinz
    Hallo Daniel
    Dann werde ich den Code so belassen.
    Recht herzlichen Dank.
    Gruß, Heinz

    AW: Code verkürzen?
    05.03.2015 09:49:05
    Nepumuk
    Hallo,
    füge in dein Projekt ein neues Klassenmodul ein (Menüleiste - Einfügen - Klassenmodul). Ändere den Namen des Klassenmodul im Eigenschaftsfenster von Klasse1 zu clsCheckBox. In dieses Klassenmodul kommt folgender Code:
    ' **********************************************************************
    ' Modul: clsCheckBox Typ: Klassenmodul
    ' **********************************************************************

    Option Explicit

    Private WithEvents mchkBox As MSForms.CheckBox

    Private Sub Class_Terminate()
        Set CheckBox = Nothing
    End Sub

    Friend Property Get CheckBox() As MSForms.CheckBox
        CheckBox = mchkBox
    End Property

    Friend Property Set CheckBox(ByRef prchkBox As MSForms.CheckBox)
        Set mchkBox = prchkBox
    End Property

    Private Sub mchkBox_Click()
        mchkBox.Visible = Not mchkBox.Value
    End Sub

    In das Modul des UserForms kommt folgender Code:
    ' **********************************************************************
    ' Modul: UserForm1 Typ: Userform
    ' **********************************************************************

    Option Explicit

    Private colCheckBoxClass As Collection

    Private Sub UserForm_Activate()
        Dim objCheckboxClass As clsCheckBox
        Dim lngIndex As Long
        Set colCheckBoxClass = New Collection
        For lngIndex = 2 To 49
            Set objCheckboxClass = New clsCheckBox
            Set objCheckboxClass.CheckBox = Controls("CheckBox" & CStr(lngIndex))
            colCheckBoxClass.Add objCheckboxClass
        Next
        Set objCheckboxClass = Nothing
    End Sub

    Private Sub UserForm_Terminate()
        Set colCheckBoxClass = Nothing
    End Sub

    Gruß
    Nepumuk

    Anzeige
    Danke Nepumuk
    05.03.2015 19:15:16
    Heinz
    Hallo Nepumuk
    Echt geile Sache,die du hier gebastelt hast !!
    Recht herzlichen D A N K !!!
    Gruß, Heinz

    299 Forumthreads zu ähnlichen Themen

    Checkboxes in Userform prüfen
    Jonatan

    Hallo,
    ich würde gerne in einer Userform alle Checkboxes prüfen, welche angeklickt sind und welche nicht.
    Anschließend soll die Checkbox in ein Array gespeichert werden.
    Irgendwie klappt das mit der Abfrage aber nicht.
    Könnt ihr mir weiterhelfen?
    For i = 1 To 8 ' Es sind 8 c...
    19.09.2008 09:11:35
    Thread-ID: 1010902
    3 Beiträge
    Anzeige
    Checkbox Value auslesen
    Fatza

    Hallo an alle,
    ich habe ein kleines Problem. In meinem Excel-Formular habe ich 4 Checkboxen. Wenn nur eine von diesen aktiviert ist, soll die Druckfunktion frei geschaltet werden, wenn nicht soll eine Messagebox kommen, mit dem Hinweis das eine Checkbox ausgewählt werden muss.
    Wer kann...
    09.10.2008 09:52:07
    Thread-ID: 1015248
    8 Beiträge
    Checkbox in Zelle per VBA
    UweD

    Hallo Leute
    ich brauche mal Hilfe vom VBA-Profi
    Per VBA möchte ich
    1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
    2) Dann Bezug auch auf diese Zelle setzen.
    3) Namen ändern...
    2) und 3) krieg ich sicherl...
    17.10.2008 13:57:00
    Thread-ID: 1017152
    3 Beiträge
    Anzeige
    Checkbox-Werte in Userforms dauerhaft speichern
    Petra

    Hallo,
    ich möchte die Werte von Checkboxen einer Userform dauerhaft speichern und habe gelesen, dass ich dazu die Werte in einer Tabelle speichern und wieder auslesen muss. Leider habe ich keine Ahnung wie das geht. Kann mir bitte jemand einen Hinweis geben? Die Datei mit den Userforms habe...
    22.10.2008 10:05:00
    Thread-ID: 1018246
    3 Beiträge
    Checkboxen in Userform
    Sebastian

    Hallo zusammen,
    Dank Tino (https://www.herber.de/bbs/user/56484.xls
    ) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
    04.11.2008 15:22:00
    Thread-ID: 1021663
    4 Beiträge
    Problem mit Checkboxen per Vba zu erzeugen
    Reinhard

    Hallo Wissende,
    im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
    Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
    13.11.2008 23:45:36
    Thread-ID: 1024386
    7 Beiträge
    Mit checkboxen Einträge in Liste färben
    adrian

    Hallo,
    habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
    Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
    Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
    18.11.2008 16:54:24
    Thread-ID: 1025705
    2 Beiträge
    Checkbox-Werte in Userform dauerhaft speichern.
    Petra

    Hallo zusammen,
    Ich habe eine Userform mit vielen Checkboxen und schreibe deren Werte in eine Tabelle mit
    "Worksheets("Checkbox-Werte").Range("B57") = checkbox.Value". Das funktioniert auch.
    Wie kann ich diese Werte beim nächsten Öffnen der Userform wieder einlesen und den Checkbox...
    26.11.2008 10:09:00
    Thread-ID: 1027947
    12 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    ComboBox 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
    2
    1
    7
    2
    7
    2
    3
    6
    1
    11
    2
    2
    3
    3
    2
    2
    4
    1
    3
    7
    2
    5
    6
    2
    2