Shared Sub SetDataGridViewg(ByRef Form As Form, AusAuftrag As Boolean)
    Dim AdressenÜbersicht = If(AusAuftrag, CType(Form, AdressenÜbersichtAusAuftrag), CType(Form, Startseite))

        If AusAuftrag Then
            Dim AdressenÜbersicht As AdressenÜbersichtAusAuftrag = CType(Form, AdressenÜbersichtAusAuftrag)
        Else
            Dim AdressenÜbersicht As Startseite = CType(Form, Startseite)
        End If