Option
Explicit
Public
Sub
MICHID()
Dim
obWorksheet
As
Worksheet
Dim
Bereich
As
Range
Set
obWorksheet = GetSheetByCodeName(
"Tabelle1"
)
If
Not
obWorksheet
Is
Nothing
Then
Set
Bereich = obWorksheet.UsedRange
Bereich.AutoFilter Field:=1, Criteria1:=
"MO367"
Set
Bereich =
Nothing
Set
obWorksheet =
Nothing
End
If
End
Sub
Private
Function
GetSheetByCodeName(
ByVal
pvstrName
As
String
)
As
Object
Dim
objSheet
As
Object
For
Each
objSheet
In
ActiveWorkbook.Sheets
If
objSheet.CodeName = pvstrName
Then
_
Set
GetSheetByCodeName = objSheet:
Exit
For
Next
Set
objSheet =
Nothing
End
Function