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

Checkboxen Abfragen aus UF

Forumthread: Checkboxen Abfragen aus UF

Checkboxen Abfragen aus UF
21.01.2023 11:58:45
Olaf
Guten Morgen,
ich habe mehrere "checkboxen" in eine Tabelle (Spalte M, Zeile 2,3,4,usw.) eingefügt. Diesen habe ich die Makros 
Private Sub CheckBox1_Click()
If CheckBox1 Then
Range("M2") = Date
Else
Range("M2").ClearContents
End If
End Sub
zugeordnet. Nun möchte ich das Ganze aus einer Userform tätigen. Sprich: 1. aktuellen Status auslesen der Checkbox auslesen, 2. Checkbox bearbeiten, speichern und auf Tabelle aktualisieren. Bei nächstem Öffnen der Userform den aktuellen Status zeigen. Ich habe bereits einen Code für die Daten (Texte) aus Spalte D,E,F, usw. der Zeilen 2-....wie folgt:
'Klick auf die ListBox Ereignisroutine
Private Sub ListBox1_Click()
  Dim lZeile As Long
    'Wenn der Benutzer einen Namen anklickt, suchen wir
    'diesen in der Tabelle1 heraus und tragen die Daten
    'in die TextBoxen ein.
        'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
    TextBox12 = ""
    TextBox13 = ""
    TextBox14 = ""
    CheckBox1 = ""
        'Nur wenn ein Eintrag selektiert/markiert ist
    If ListBox1.ListIndex >= 0 Then
            lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
        'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
        Do While Trim(CStr(Tabelle1.Cells(lZeile, 4).Value)) > ""
                    'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
            'gefunden haben, übertragen wir die anderen Spalteninhalte
            'in die TextBoxen!
            If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 4).Value)) Then
                            'TextBoxen füllen
                TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 4).Value))
                TextBox2 = Tabelle1.Cells(lZeile, 5).Value
                TextBox3 = Tabelle1.Cells(lZeile, 6).Value
                TextBox4 = Tabelle1.Cells(lZeile, 7).Value
                TextBox5 = Tabelle1.Cells(lZeile, 8).Value
                TextBox6 = Tabelle1.Cells(lZeile, 27).Value
                TextBox7 = Tabelle1.Cells(lZeile, 28).Value
                TextBox8 = Tabelle1.Cells(lZeile, 13).Value
                TextBox9 = Tabelle1.Cells(lZeile, 100).Value
                TextBox10 = Tabelle1.Cells(lZeile, 101).Value
                TextBox11 = Tabelle1.Cells(lZeile, 102).Value
                TextBox12 = Tabelle1.Cells(lZeile, 9).Value
                TextBox13 = Tabelle1.Cells(lZeile, 10).Value
                TextBox14 = Tabelle1.Cells(lZeile, 11).Value
                CheckBox1 = Tabelle1.Cells(lZeile, 13).Value
                            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
                        End If
                    lZeile = lZeile + 1 'Nächste Zeile bearbeiten
                Loop
            End If
    End Sub
Wie kann ich entsprechend die Checkboxabfrage implementieren?
Vielen Dank
Gruß, Olaf
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen Abfragen aus UF
21.01.2023 14:49:06
Olaf
Ich habe mal eine Testdatei gebastelt und angehangen für ein besseres Verständnis. Es soll hier, wie bei den Textboxen, automatisch die richtigen Checkboxen zum entsprechenden Namen zugeordnet und markiert/Nicht markiert werden. Die Checkboxen habe ich genommen, da es mir nur hier möglich war, das erzeugte Datum zu fixieren.
https://www.herber.de/bbs/user/157413.xlsb
Anzeige
AW: Checkboxen Abfragen aus UF
21.01.2023 16:40:14
Nepumuk
Hallo Olaf,
teste mal:
Private Sub CommandButton2_Click()
    Dim lZeile As Long
    Dim objOLEObject As OLEObject
    If ListBox1.ListIndex > -1 Then
    If Trim(CStr(TextBox1.Text)) = "" Then
        MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
        Exit Sub
    End If
    lZeile = 2
    Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) > ""
        If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
            Tabelle1.Cells(lZeile, 1).Value = Trim$(TextBox1.Text)
            Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
            For Each objOLEObject In Tabelle1.OLEObjects
                If TypeOf objOLEObject.Object Is MSForms.CheckBox Then
                    If objOLEObject.TopLeftCell.Row = lZeile Then
                        objOLEObject.Object.Value = CheckBox1.Value
                        Exit For
                    End If
                End If
            Next
            If ListBox1.Text > Trim(CStr(TextBox1.Text)) Then
                Call UserForm_Initialize
                If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
            End If
            Exit Do
        End If
        lZeile = lZeile + 1
    Loop
End Sub
Gruß
Nepumuk
Anzeige
AW: Checkboxen Abfragen aus UF
21.01.2023 17:07:09
Olaf
Hallo Nepumuk, ich kann es leider nicht ganz testen. Ich sehe einfach nicht, wo das "End if" fehlt.....es gibt einen If-Block ohne End if. Siehst Du es? Dankeschön
Gruß Olaf
AW: Checkboxen Abfragen aus UF
21.01.2023 17:10:18
Olaf
Keine 5 Sek später.... hab ihn gefunden. Dankeschön nochmal!
Gruß Olaf
AW: Checkboxen Abfragen aus UF
21.01.2023 17:11:34
Nepumuk
Oooooooooops :-)
so natürlich:
Private Sub CommandButton2_Click()
    Dim lZeile As Long
    Dim objOLEObject As OLEObject
    If ListBox1.ListIndex > -1 Then
        If Trim(CStr(TextBox1.Text)) = "" Then
            MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
            Exit Sub
        End If
        lZeile = 2
        Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) > ""
            If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
                Tabelle1.Cells(lZeile, 1).Value = Trim$(TextBox1.Text)
                Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
                For Each objOLEObject In Tabelle1.OLEObjects
                    If TypeOf objOLEObject.Object Is MSForms.CheckBox Then
                        If objOLEObject.TopLeftCell.Row = lZeile Then
                            objOLEObject.Object.Value = CheckBox1.Value
                            Exit For
                        End If
                    End If
                Next
                If ListBox1.Text > Trim(CStr(TextBox1.Text)) Then
                    Call UserForm_Initialize
                    If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
                End If
                Exit Do
            End If
            lZeile = lZeile + 1
        Loop
    End If
End Sub
Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Checkboxen
Gordon

Moin,
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click() With Worksheets("Neu") If CheckBox2.Value = True Then .Columns("I:K").ColumnWidth = 10.14 .Columns("L").ColumnWidth = 1.71 ElseIf CheckBox2....
17.09.2008 12:56:00
Thread-ID: 1010340
12 Beiträge
Variable Checkboxen
Gordon

Moin,
ich habe neulichst glaube ich schon mal eine ähnliche Frage gestellt, aber ich bin mir nun nicht sicher, ob es das selbe ist. Daher bitte ich um Verzweihung falls ich die selbe Frage stellen sollte. ;-)
Also ich habe 10 Checkboxen (1 bis 10). Kann man diese Boxen eigentlich Var...
22.09.2008 11:11:00
Thread-ID: 1011408
5 Beiträge
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 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
Frage zu checkboxen auf userform
chris

Hallo und guten morgen,
habe eine frage hoffe ihr könnt mir helfen.
ich habe eine Userform auf dieser habe ich mehere checkboxen von Name
chb_1
bis chb_40
Wie kann ich im VBA code abfragen ob eine bestimmte checkbox value true ist ?
im string fehler steht drinnen:
W...
13.11.2008 09:04:45
Thread-ID: 1024049
3 Beiträge
Anzeige
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
Checkboxen!!
adrian

Hallo,
falls sich hier jemand gut mit "checkboxen" gut auskennt und mir helfen könnte folgendes Problem zu lösen wäre das echt super!
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen)...
24.11.2008 10:50:00
Thread-ID: 1027215
3 Beiträge
Anzeige
Checkboxen
Tim

Hi
Wie kann ich zwei Checkboxen verbinden. Die eine Checkbox ist auf Tabelle1 und die andere auf Tabelle2.
Wenn Checkbox1 auf Tab1 angeklickt ist, sollte auch Checkbox2 auf Tab2 angeklickt sein oder umgekehrt.
Danke für Eure Hilfe
Gruß
Tim
15.01.2009 08:24:00
Thread-ID: 1039889
3 Beiträge
Anzeige
Checkbox im Zusammenspiel mit anderen Checkboxen
Stefen

Hi Leute
Ich bin am Ende meines bescheidenen Wissen. Daher wende ich mich lieber an Euch bevor der PC brennt.
Wollte nur, dass wenn eines der Checkboxen 38 bis 41 true ist sollte CheckboxNr. 37 nicht true sein.
also angeklickt.
Was mache ich da bloß wieder falsch?
If CheckBo...
25.01.2009 21:07:40
Thread-ID: 1043685
3 Beiträge
Anzeige
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Checkboxen bleiben nicht mit Hacken konstant
Leon

Hi Zusammen
Habe eine so tolle Datei erstellt mit einigen UF's und auch Checkboxen etc. und erst jetzt merke ich, daß
wenn ich von einer UF zur anderen gehe und zurück meine angeklickten Checkboxen nicht mehr angeklickt sind.
Kann man dieses Problem beheben?
Gruß
Leon
01.02.2009 00:12:54
Thread-ID: 1045803
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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