Private
Sub
idFirmaAAusblenden_Click()
Ausblenden
End
Sub
Private
Sub
idFirmaBAusblenden_Click()
Ausblenden
End
Sub
Private
Sub
idFirmaCAusblenden_Click()
Ausblenden
End
Sub
Private
Sub
idFirmaDAusblenden_Click()
Ausblenden
End
Sub
Private
Sub
idFirmaEAusblenden_Click()
Ausblenden
End
Sub
Sub
Ausblenden()
Dim
farr()
As
String
Dim
arrstr
As
String
, companies
As
String
companies =
"UnternehmenA,UnternehmenA2,UnternehmenB,UnternehmenB2,UnternehmenC,UnternehmenC2,UnternehmenD,UnternehmenD2,UnternehmenE,UnternehmenE2,UnternehmenE3"
arrstr = companies
If
idFirmaAAusblenden
Then
arrstr = Entf(arrstr,
"UnternehmenA"
)
arrstr = Entf(arrstr,
"UnternehmenA2"
)
End
If
If
idFirmaBAusblenden
Then
arrstr = Entf(arrstr,
"UnternehmenB"
)
arrstr = Entf(arrstr,
"UnternehmenB2"
)
End
If
If
idFirmaCAusblenden
Then
arrstr = Entf(arrstr,
"UnternehmenC"
)
arrstr = Entf(arrstr,
"UnternehmenC2"
)
End
If
If
idFirmaDAusblenden
Then
arrstr = Entf(arrstr,
"UnternehmenD"
)
arrstr = Entf(arrstr,
"UnternehmenD2"
)
End
If
If
idFirmaEAusblenden
Then
arrstr = Entf(arrstr,
"UnternehmenE"
)
arrstr = Entf(arrstr,
"UnternehmenE2"
)
arrstr = Entf(arrstr,
"UnternehmenE3"
)
End
If
If
arrstr =
""
Then
Tabelle6.Range(
"$B$3:$V$200"
).AutoFilter Field:=1, Criteria1:=
"="
""
""
, Operator:=xlAnd
ElseIf
arrstr = companies
Then
Tabelle6.Range(
"$B$3:$V$200"
).AutoFilter Field:=1
Else
farr = Split(arrstr,
","
)
Tabelle6.Range(
"$B$3:$V$200"
).AutoFilter Field:=1, Criteria1:=farr, Operator:=xlFilterValues
End
If
End
Sub
Private
Function
Entf(Expression
As
String
, Find
As
String
)
As
String
Entf = Expression
If
Left(Entf, Len(Find) + 1) = Find &
","
Then
Entf = Right(Entf, Len(Entf) - Len(Find) - 1)
If
Right(Entf, Len(Find) + 1) =
","
& Find
Then
Entf = Left(Entf, Len(Entf) - Len(Find) - 1)
Entf = Replace(Entf,
","
& Find &
","
,
","
)
If
Entf = Find
Then
Entf =
""
End
Function