Vielleicht kann mir hier jemand weiterhelfen, ich bin langsam am verzweifeln. Ich habe mir eine UserForm erstellt in Excel um jeden Tag Daten einzupflegen. Soweit habe ich auch alles hinbekommen, nun habe ich nur noch ein Problem. Ich suche in der Listbox einen Eintrag ruas klicke diesen an, dann springt er im Excel Sheet an die richtige stelle, soweit alles perfekt. Nun möchte ich das er mir die Inhalte der Textboxen auch aktualisiert wenn ich in eine andere Spalte klicke, das macht er auch soweit nur nicht wenn ich einen Eintrag mit dem gleichen Bezug habe. Ich vermute es ist nur ein kleiner Fehler in meinem Code aber leider komme ich hier nicht weiter.

Private Sub ListBox1_Click()
   Dim lZeile As Long
       
     TextBox5 = ""
     TextBox6 = ""
     TextBox7 = ""
     TextBox8 = ""
     TextBox11 = ""
     TextBox12 = ""
     TextBox13 = ""
     TextBox14 = ""
     TextBox15 = ""
     TextBox16 = ""
     TextBox17 = ""
     TextBox18 = ""
     TextBox19 = ""
     TextBox20 = ""
     TextBox21 = ""
     TextBox22 = ""
     TextBox23 = ""
     TextBox24 = ""
       
     If ListBox1.ListIndex >= 0 Then
     
         lZeile = 2 
         Do While Trim(CStr(Tabelle1.Cells(lZeile, 3).Value)) <> ""
         
             If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 3).Value)) Then
             
                
                 TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 3).Value))
                 TextBox2 = Tabelle1.Cells(lZeile, 8).Value
                 TextBox3 = Tabelle1.Cells(lZeile, 9).Value
                 TextBox4 = Tabelle1.Cells(lZeile, 10).Value
                 TextBox5 = Tabelle1.Cells(lZeile, 19).Value
                 TextBox6 = Tabelle1.Cells(lZeile, 20).Value
                 TextBox7 = Tabelle1.Cells(lZeile, 21).Value
                 TextBox8 = Tabelle1.Cells(lZeile, 22).Value
                 TextBox9 = Tabelle1.Cells(lZeile, 24).Value
                 TextBox10 = Tabelle1.Cells(lZeile, 25).Value
                 TextBox11 = Tabelle1.Cells(lZeile, 26).Value
                 TextBox12 = Tabelle1.Cells(lZeile, 27).Value
                 TextBox13 = Tabelle1.Cells(lZeile, 28).Value
                 TextBox14 = Tabelle1.Cells(lZeile, 30).Value
                 TextBox15 = Tabelle1.Cells(lZeile, 31).Value
                 TextBox16 = Tabelle1.Cells(lZeile, 32).Value
                 TextBox17 = Tabelle1.Cells(lZeile, 34).Value
                 TextBox18 = Tabelle1.Cells(lZeile, 37).Value
                 TextBox19 = Tabelle1.Cells(lZeile, 38).Value
                 TextBox20 = Tabelle1.Cells(lZeile, 41).Value
                 TextBox21 = Tabelle1.Cells(lZeile, 43).Value
                 TextBox22 = Tabelle1.Cells(lZeile, 44).Value
                 TextBox23 = Tabelle1.Cells(lZeile, 45).Value
                 TextBox24 = Tabelle1.Cells(lZeile, 49).Value
                 
                                              
                 
                              
                 Exit Do
             
             End If
         
             lZeile = lZeile + 1 
         
         Loop
         End If
         Cells(ListBox1.ListIndex + 2, 3).Select
         End Sub