Private Sub idFirmaAAusblenden_Click()
If idFirmaAAusblenden = True Then
Tabelle6.Range("$B$3:$V$200").AutoFilter Field:=5, Criteria1:=Array("UnternehmenB" _
, "UnternehmenB2", "UnternehmenC", "UnternehmenC2", "UnternehmenD", "UnternehmenD2", "UnternehmenE", "UnternehmenE2", "UnternehmenE3", "="), _
Operator:=xlFilterValues
Else
Tabelle6.Range("$B$3:$V$200").AutoFilter
End If
Call Modul1.guiFormatieren
End Sub