Option
Private
Module
Public
r
As
Range
Public
ausgebl
As
Boolean
Function
ZeileAusblenden(
Optional
zeile
As
Variant
)
If
Application.Caller
Is
Nothing
Then
Exit
Function
If
IsMissing(zeile)
Then
Set
r = Application.Caller.EntireRow
ElseIf
TypeName(zeile) =
"Range"
Then
Set
r = zeile.EntireRow
ElseIf
zeile > 0
Then
Set
r = Application.Caller.Parent.Rows(zeile)
End
If
ausgebl =
True
ZeileAusblenden = IIf(ausgebl,
"Ausgeblendet"
,
"Eingeblendet"
)
End
Function
Function
ZeileEinblenden(
Optional
zeile
As
Variant
)
If
Application.Caller
Is
Nothing
Then
Exit
Function
If
IsMissing(zeile)
Then
Set
r = Application.Caller.EntireRow
ElseIf
TypeName(zeile) =
"Range"
Then
Set
r = zeile.EntireRow
ElseIf
zeile > 0
Then
Set
r = Application.Caller.Parent.Rows(zeile)
End
If
ausgebl =
False
ZeileEinblenden = IIf(ausgebl,
"Ausgeblendet"
,
"Eingeblendet"
)
End
Function