Sub verarbeiten()
        Dim lines() As String
        Dim i As Integer = Array.IndexOf(lines, "##" & c.jahr & "##")
        If i > -1 Then
            jahrshit.Items.Clear()
            For i = i + 1 To UBound(lines)
                If Microsoft.VisualBasic.Left(lines(i), 2) = "##" Then Exit Sub
                jahrshit.Items.Add(lines(i))
            Next
        End If