Private Sub cmdListBoxLeeren_Click()
 lstAusgabe.Clear
End Sub