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
|