Sub finde_die_letzte_zeile()

flag = 1
offset_ = 6

For i = 1 To 100
    zeile = i + offset_
    iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets("SEITE_B").Range("B" & zeile).Value
    If iterations_wert_wert_der_liste = "" And flag = 1 Then
        flag = 0
        erste_freie_zeile = zeile
        letze_zeile_mit_eintrag = erste_freie_zeile - 1
    End If
    Next i

    letzter_eintrag_in_Liste = ActiveWorkbook.Worksheets("SEITE_B").Range("B" & letze_zeile_mit_eintrag).Value
    
    anzahl_elemente = letze_zeile_mit_eintrag - offset_
    ActiveWorkbook.Worksheets("SEITE_B").Range("C18").Value = letze_zeile_mit_eintrag
    ActiveWorkbook.Worksheets("SEITE_B").Range("C19").Value = erste_freie_zeile
    ActiveWorkbook.Worksheets("SEITE_B").Range("C20").Value = letzter_eintrag_in_Liste
    ActiveWorkbook.Worksheets("SEITE_B").Range("C21").Value = anzahl_elemente

End Sub