Spalte mit selektierten Eintrag von Listbox vergleichen + Checkbox

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von TeamBob.

    Spalte mit selektierten Eintrag von Listbox vergleichen + Checkbox

    Hallo Community,

    ich habe folgendes Problem.
    In Userform sind mehrere Textboxen eingefügt, in welche Daten eingegeben werden. Diese Daten werden dann in einer Tabelle eingefügt
    und in einer Listbox wird immer ein Eintrag deutlich anhand einer vorher bestimmten Textbox.
    Wenn man nun in der Listbox einen Eintrag auswählt, werden die zugehörigen Daten in die Textfelder geladen.
    Dies geschieht alles anhand von einem Kriterium, welcher auch in der Listbox angezeigt wird. Das Problem ist, dass sobald dieses
    Krtierium genau 2x auftritt, sich die zweite Textbox nicht mehr läd, da es das erste gefunden Kriterium wählt und reinläd.
    Wie kann ich die Suche und Ausfüllen anhand von 2 Kriterien einbinden?

    Ein weiterer Punkt wäre, dass bei der Eingabe von Textfelder auch eine Checkbox abgehackt werden kann.
    Dazu möchte ich, das wenn die Checkbox betätigt wird, einfach ein "JA" bzw. "NEin" in die jeweilige zugehörige Zeile mit eingtragen wird.
    Wie kann ich dies umsetzen.

    Hier der Auszug vom Quelltext.
    Vielen Dank für Eure Hilfe


    Visual Basic-Quellcode

    1. 'Neuer Eintrag Schaltfläche Ereignisroutine
    2. Private Sub NeuerArtikel3_Click()
    3. Dim lZeile As Long
    4. 'neuen Eintrag erzeugen
    5. 'erstellen eines neuen Eintrags in der ListBox und markieren
    7. lZeile = 3 'Start in Zeile 3
    8. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    9. Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) <> ""
    10. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    11. Loop
    14. Tabelle3.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile)
    16. 'Und neuen Eintrag in die UserForm eintragen
    17. ListBox3.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
    19. 'Den neuen Eintrag markieren mit Hilfe des ListIndexes
    20. ListBox3.ListIndex = ListBox3.ListCount - 1
    21. 'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
    23. End Sub
    26. 'Speichern Schaltfläche Ereignisroutine
    27. Private Sub Speichern3_Click()
    28. Dim lZeile As Long
    30. 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    32. lZeile = 3 'Start in Zeile 3
    33. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    34. Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) <> ""
    36. 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
    37. If ListBox3.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then
    39. 'Eintrag gefunden, TextBoxen in die Zellen schreiben
    40. Tabelle3.Cells(lZeile, 2).Value = Holzart3.Text
    41. Tabelle3.Cells(lZeile, 3).Value = Trim(CStr(Abmessungen.Text))
    42. Tabelle3.Cells(lZeile, 4).Value = AnzahlMatten.Text
    43. Tabelle3.Cells(lZeile, 5).Value = Personal3.Text
    44. Tabelle3.Cells(lZeile, 6).Value = Information3.Text
    46. Tabelle3.Cells(lZeile, 1).Value = Date
    47. Tabelle3.Cells(lZeile, 8).Value = Format(Time, "hh:mm:ss")
    50. 'Die ListBox muss nun neu geladen werden
    51. 'allerdings nur, wenn sich der Name (ID) geändert hat
    52. If ListBox3.Text <> Trim(CStr(Abmessungen.Text)) Then
    53. Call UserForm3_Initialize
    54. If ListBox3.ListCount > 0 Then ListBox3.ListIndex = 0
    55. End If
    57. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    59. End If
    61. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    62. Loop
    65. 'Klick auf die ListBox Ereignisroutine
    66. Private Sub ListBox3_Click()
    67. Dim lZeile As Long
    68. 'Wenn der Benutzer einen Namen anklickt, suchen wir
    69. 'diesen in der Tabelle1 heraus und tragen die Daten
    70. 'in die TextBoxen ein.
    72. 'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    73. Holzart3 = ""
    74. Abmessungen = ""
    75. Personal3 = ""
    76. AnzahlMatten = ""
    77. Information3 = ""
    80. 'Nur wenn ein Eintrag selektiert/markiert ist
    81. If ListBox3.ListIndex >= 0 Then
    83. lZeile = 3 'Start in Zeile 3
    84. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    85. Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) <> ""
    87. 'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
    88. 'gefunden haben, übertragen wir die anderen Spalteninhalte
    89. 'in die TextBoxen!
    90. If ListBox3.Text = Trim(CStr(Tabelle3.Cells(lZeile, 2).Value)) Then
    92. 'TextBoxen füllen
    93. Abmessungen = Trim(CStr(Tabelle3.Cells(lZeile, 3).Value))
    94. AnzahlMatten = Tabelle3.Cells(lZeile, 4).Value
    95. Holzart3 = Tabelle3.Cells(lZeile, 2).Value
    96. Personal3 = Tabelle3.Cells(lZeile, 5).Value
    97. Information3 = Tabelle3.Cells(lZeile, 6).Value
    99. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    101. End If
    103. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    105. Loop
    107. End If
    109. End Sub
    113. 'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
    114. Private Sub UserForm3_Initialize()
    115. Dim lZeile As Long
    117. 'Alle TextBoxen leer machen
    118. Holzart3 = ""
    119. Abmessungen = ""
    120. AnzahlMatten = ""
    121. Personal3 = ""
    122. Information3 = ""
    125. 'laden aller vorhandenen Einträge in die ListBox1
    126. ListBox3.Clear 'Zuerst einmal die Liste leeren
    128. lZeile = 3 'Start in Zeile 3
    129. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    130. Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) <> ""
    132. 'Aktuelle Zeile in die ListBox eintragen
    133. If Tabelle3.Cells(lZeile, 1).Value = Date Then
    134. ListBox3.AddItem Trim(CStr(Tabelle3.Cells(lZeile, 2).Value))
    135. End If
    137. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    139. Loop
    141. End Sub

    Hallo
    Habe den Code angepasst bzw. aus verschiedenen zusammengebaut.

    Nein das Problem ist, dass er nur nach ein kriterium sucht und das erste was er findet nimmt er und füllt die Textboxen aus.
    Jedoch ist dies vielleicht nicht das richtige, sondern diese Kriterium nach dem er sucht gibt es doppelt, wodurch er noch ein
    anderen Krierium mit einbeziehen sollte. Es soll somit nach 2 kriterien verglichen werden und erst wenn die bedien passen,
    dann die jeweilige Zeile in die Textboxen übertragen

    TeamBob schrieb:

    Habe den Code angepasst bzw. aus verschiedenen zusammengebaut.

    online-vba.de/vba_tutorialuserform.php steht da nicht irgendwas von

    Autor und Copyright: Marc Wershoven - IT / EDV Dienstleistungen und Beratung
    ' Homepage: online-vba.de - E-Mail: info@online-vba.de
    ' ------------------------------------------------------------------------------------------------
    ' Wichtige Hinweise:
    ' - Verwendung der Quelltexte auf eigene Gefahr!
    ' - Bitte beachten Sie die Nutzungsbedingungen von online-vba.de!
    ' - Dieser Hinweis inkl. Autorennennung darf nicht entfernt werden!
    ' - Jede Weiterübermittlung, Veröffentlichung oder Verbreitung ist untersagt!
    ' - Eine kommerzielle/gewerbliche Verwendung ist nicht gestattet!
    ' ************************************************************************************************
    ' Diese Hinweise beziehen sich auf den Quelltext, wie dieser unter dem folgenden Link, unverändert
    ' als Original zu sehen ist und gelten nicht für Veränderungen durch Nutzer bzw. Dritte:
    ' online-vba.de/vba_tutorialuserform.php
    ' ************************************************************************************************
    Gruss Mirco

    Ich habe jetzt schon viel versucht, aber leider immernoch keine Lösung gefunden.
    Wie gesagt, im moment liest er die Werte aus einer Tabelle anahnd einer Celle ein und füllt dann die zugehörigen Textfelder aus.
    Es sollte jedoch einfach 2 Cellen prüfen und wenn die beiden Werte passen, dann erst die Textfelder ausfüllen.
    Wäre über Hilfe echt dankbar.
    Vielen Dank

    Hallo
    Ich habe die Excel hier mal hochgeladen.
    Habe schon 2 Werte eingegeben. Alle Spalten sind unterschiedlich nur der Punkt "Chargennr" ist identisch und nach diesen soll
    er unterscheiden. In der Bedienmaske wird dann in der Listbox 2x die Zahl 1 angezeigt (Chargennr.). Jedoch wenn man auf die erste chrage klickt,
    läd er die Zellen der ersten Charge und bei der 2ten Charge auch die selben Werte, da die Chargen identisch bezeichnet wurden.
    Das heitßt es müsste nach chargen und ein weiteren Kritierum auswählen.

    workupload.com/file/Egx6DXcl

Facebook
Telefonspende