If Not (Me.WindowState = vbMinimized) Then
        'Hoehe&Breite des gesammten Fensters begrenzen da es sonst einen Fehler 
        ' gibt 
        'wenn jemand das Fenste extrem klein macht
        If Me.Width < 2000 Then Me.Width = 2000
        If Me.Height < 2000 Then Me.Height = 2000
        'Hoehe&Breite der Listview festlegen
        'die 100 und die 1100 legen den absand zum Rand rechts und unten fest
        Listview.Width = Me.Width - 100
        Listview.Height = Me.Height - 1100
End If