ListBox unterscheidet Zeilen mit gleichem Wert nic

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: ListBox unterscheidet Zeilen mit gleichem Wert nic
von: Max
Geschrieben am: 02.07.2015 14:26:36

Hallo Leute,
Ich habe ein Problem ich habe eine Excel Ordnerliste die In Spalte A die Projektnummer hat und in Spalte B die Ordnerart (1-4). Mit der Aktuellen Maske wird alles was in den Spalten steht in die Textfelder eigetragen. Nur wenn ich Jetzt ein Projekt mit 2, 3 oder 4 Verschiedenen Arten habe dann wird mir beim anklicken in der Listbox immer nur die Information vom ersten Projekt angezeigt.
Meine Frage jetzt wie muss ich meinen Code verändern das mir bei unterschiedlicher Art alles so angezeigt wird wie es an der 2, 3 oder vierten Zeile steht?

  • Option Explicit
    Option Compare Text
    Private Sub UserForm2_Initialize()
       Dim lZeile As Long
       
         Suche1 = ""
         
         ListBox1.Clear
        
         lZeile = 4
         Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
            
             ListBox1.AddItem Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))
            
             lZeile = lZeile + 1
            
         Loop
     
    End Sub
    Private Sub ListBox1_Click()
       Dim lZeile As Long
       
         Büro = ""
         Keller = ""
         Archiv = ""
         Nummer = ""
         Vernichtet = ""
         Abgegeben = ""
         Typ = ""
        
         If ListBox1.ListIndex >= 0 Then
        
             lZeile = 4
             Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
            
                 If ListBox1.Text = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) Then
                
                     Büro = Trim(CStr(Tabelle2.Cells(lZeile, 3).Value))
                     Keller = Tabelle2.Cells(lZeile, 4).Value
                     Archiv = Tabelle2.Cells(lZeile, 5).Value
                     Nummer = Tabelle2.Cells(lZeile, 8).Value
                     Typ = Tabelle2.Cells(lZeile, 2).Value
                     
                        If Tabelle2.Cells(lZeile, 6).Value = 1 Then
                        Vernichtet = "JA"
                        Vernichtet.BackColor = &HFF&
                        End If
                        If Tabelle2.Cells(lZeile, 7).Value = 1 Then
                        Abgegeben = "JA"
                        Abgegeben.BackColor = &HFF&
                        End If
                        
                        If Tabelle2.Cells(lZeile, 6).Value = "" Then
                        Vernichtet = "NEIN"
                        End If
                        If Tabelle2.Cells(lZeile, 7).Value = "" Then
                        Abgegeben = "NEIN"
                        End If
                        
                        If Tabelle2.Cells(lZeile, 2).Value = 2 Then
                        Typ = Tabelle2.Cells(lZeile, 2).Value
                        Typ.BackColor = &HC000&
                        End If
                        If Tabelle2.Cells(lZeile, 2).Value = 3 Then
                        Typ = Tabelle2.Cells(lZeile, 2).Value
                        Typ.BackColor = &HC0C000
                        End If
                        If Tabelle2.Cells(lZeile, 2).Value = 4 Then
                        Typ = Tabelle2.Cells(lZeile, 2).Value
                        Typ.BackColor = &HC000C0
                        End If
                                  
                     Exit Do
                
                 End If
            
                 lZeile = lZeile + 1
            
             Loop
            
         End If
    End Sub
    Private Sub Suche1_Change()
    Dim lZeile As Long
     
     ListBox1.Clear
     
     lZeile = 4
     
     Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
     
        If Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) = Suche1.Text Then
            ListBox1.AddItem Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))
            ListBox1.List(ListBox1.ListCount - 1, 1) = Trim(CStr(Tabelle2.Cells(lZeile, 2).Value))
            ListBox1.List(ListBox1.ListCount - 1, 2) = Trim(CStr(Tabelle2.Cells(lZeile, 3).Value))
        End If
     
     lZeile = lZeile + 1
     
     Loop
    End Sub


  • Bild

    Betrifft: Doppelt
    von: Hajo_Zi
    Geschrieben am: 02.07.2015 16:50:52
    https://www.herber.de/forum/messages/1434459.html

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "ListBox unterscheidet Zeilen mit gleichem Wert nic"