Anfänger: Userform um Checkboxen erweitern

Rüdiger · 2017-10-22T19:20:14+00:00

Hallo zusammen, könnte mir bitte jemand helfen ? Ich habe eine Eingabemaske für eine simple Exceltabelle erstellt. Ziel ist es mit dem Userform eine Exceltabelle zu füllen, aber auch gleichzeitig bereits eingetragene Daten mit dem Userform auszulesen. Ich habe habe jetzt die Tabelle um 17 Spalten erweitert und jede Spalte(nbezeichnung) soll pro Zeile als Checkbox auswählbar sein. Hier der jetzige Stand: Die Datei https://www.herber.de/bbs/user/117156.xlsm wurde aus Datenschutzgründen gelöscht (Userform ist nur funktional, noch nicht schön :-)) jetzt sollen die Spalten P bis AF noch per Checkbox im Userform an und abwählbar sein und in der Excelliste mit Ja oder Nein ausgegeben werden. Im Userform selber habe ich bereits 17 Checkboxen und Labelboxen per Multipage hinzugefügt.

Hallo Rüdiger,
teste mal:

Private Sub EINTRAG_LADEN_UND_ANZEIGEN()
    Dim lZeile As Long
    Dim i As Integer

    'Eingabefelder resetten
    For i = 1 To iCONST_ANZAHL_EINGABEFELDER
        Me.Controls("TextBox" & i) = ""
    Next i

    'Nur wenn ein Eintrag selektiert/markiert ist
    If ListBox1.ListIndex >= 0 Then

        'Die Zeilennummer des Datensatzes steht in der ersten ausgeblendeten Spalte der Liste,
        'somit können wir direkt zugreifen.
        lZeile = ListBox1.List(ListBox1.ListIndex, 0)

        For i = 1 To iCONST_ANZAHL_EINGABEFELDER
            Me.Controls("TextBox" & i) = Tabelle1.Cells(lZeile, i).Text
        Next i

        For i = 1 To 16
            Controls("Checkbox" & CStr(i)).Value = Cells(lZeile, i + 18).Value = "Ja" ' ###NEU###
        Next

    End If

End Sub

Private Sub EINTRAG_SPEICHERN()
    Dim lZeile As Long
    Dim i As Integer

    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub

    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = ListBox1.List(ListBox1.ListIndex, 0)

    For i = 1 To iCONST_ANZAHL_EINGABEFELDER
        Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
    Next i

    For i = 1 To 16
        Cells(lZeile, i + 18).Value = IIf(Controls("Checkbox" & CStr(i)).Value, "Ja", "Nein") ' ###NEU###
    Next

    'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
    'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
    ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
    ListBox1.List(ListBox1.ListIndex, 2) = Textbox2
    ListBox1.List(ListBox1.ListIndex, 3) = TextBox3

End Sub

Gruß
Nepumuk


Private Sub EINTRAG_LADEN_UND_ANZEIGEN()
Dim lZeile As Long
Dim i As Integer
'Eingabefelder resetten
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Me.Controls("TextBox" & i) = ""
Next i
'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then
'Die Zeilennummer des Datensatzes steht in der ersten ausgeblendeten Spalte der Liste,
'somit können wir direkt zugreifen.
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Me.Controls("TextBox" & i) = Tabelle1.Cells(lZeile, i).Text
Next i
For i = 1 To 16
Controls("Checkbox" & CStr(i)).Value = Cells(lZeile, i + 18).Value = "Ja" ' ###NEU## _
Next
End If
End Sub
Private Sub EINTRAG_SPEICHERN()
Dim lZeile As Long
Dim i As Integer
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Next i
For i = 1 To 16
Cells(lZeile, i + 18).Value = IIf(Controls("Checkbox" & CStr(i)).Value, "Ja", "Nein") '  _
###NEU###
Next
'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
ListBox1.List(ListBox1.ListIndex, 2) = Textbox2
ListBox1.List(ListBox1.ListIndex, 3) = TextBox3
End Sub

Danke für deine Antwort. Leider kann ich mit dem File nicht viel anfangen, da ich die ganza ABfrage eigentlich in die o.g. Routine mit einbauen wollte. Bin mir leider nicht sicher, wie ich hier zum einen den Eintrag laden und aber auch speichern kann, wenn es sich um eine Combobox handelt

Anfänger: Userform um Checkboxen erweitern

Forumthread: Anfänger: Userform um Checkboxen erweitern

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anfänger: Userform um Checkboxen erweitern

Forumthread: Anfänger: Userform um Checkboxen erweitern

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread