Realisierung 1.13 Feststellen der nächsten freien Zeile
Private Function naechsteFreieZeile() As Integer
    Dim zelleBelegt As Boolean
    Dim i As Integer
     zelleBelegt = True
     i = 1
    Do While zelleBelegt
    If IsEmpty(Cells(i, 1)) Then
         naechsteFreieZeile = i
         zelleBelegt = False
    End If
     i = i + 1
    Loop
End Function