Hi Leute brauch mal wieder Hilfe

ich habe einen code der anfangs einen eintrag finden soll und dann so lange in der zeile nach unten springen soll bis er eine leere Zelle findet

ich habe es so vorgesehen das es immer 3 abschnitte gibt bevor ein neuer eintrag eingetragen werden soll daher muss die schleife immer 3 zellen auf einmal überspringen um dann zu prüfen ob die zelle leer ist und die neuen daten von der maske einzutragen neben bei soll noch ein gesamt auswertung der 3 zelle stattfinden um am ende auf eine gemeinste stunden zahl zu kommen

hoffe man konnte es verstehen und würde mich freuen wenn mir jemande dabei helfen könnte meinen fehler zu finden

denn ich seh so langsam den wald vor lauter bäumen nicht mehr

Gruß Alex

 

     lZeile = 3  'Start in Zeile 3
     Spalte1 = 2 'Startet in Spalte 4
     ZeilenSprung = 0
     Fehlzeiten = 0
     Fehlzeit = 0
     
          'Sucht nach Eintrag in der Spalte
     Do While Trim(CStr(Tabelle1.Cells(lZeile, Spalte1).Value)) <> ""
    
         'Vergleicht ListBox Eintrag und Tabellen Eintrag
         If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, Spalte1).Value)) Then
            
        
             'Eintrag gefunden, die ganze Spalte wird nun geschrieben
             Tabelle1.Cells(lZeile, Spalte1) = TextBox1.Text
             
             Do While Trim(CStr(Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1).Value)) = ""
             
             Fehlzeit = Tabelle1.Cells(lZeile + 4 + ZeilenSprung, Spalte1).Value
             Fehlzeiten = Fehlzeit + Fehlzeiten
             TextBox5 = Fehlzeiten
             
             If Trim(CStr(Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1).Value)) = "" Then
             
             Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1) = TextBox2.Text
             Tabelle1.Cells(lZeile + 2 + ZeilenSprung, Spalte1) = TextBox3.Text
             Tabelle1.Cells(lZeile + 3 + ZeilenSprung, Spalte1) = TextBox4.Text
             
             Else
             
             ZeilenSprung = ZeilenSprung + 3
             
             Loop
            
             'ListBox neu laden
             Call UserForm_Initialize
             If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
             End If
             
         
         'Nächste Spalte bearbeiten
         Spalte1 = Spalte1 + 1
         
     Loop
     
 End If
     
     
    
End Sub