Spalte einblende

Function MAKRO_WENN(Ausdruck As Boolean, Dann_Makro As String, _
Optional Sonst_Makro As Variant) As Variant
'löst bei Bedingung ein Makro aus
' stammt aus:
' Ralf Nebolo, EXCEL XXL, CT 2002, Heft 2 Seite 197
If Ausdruck = True Then
MAKRO_WENN = True
If Dann_Makro > "" Then
Application.Run Dann_Makro
Else
MAKRO_WENN = CVErr(2001)
End If
Else
MAKRO_WENN = False
If Not IsMissing(Sonst_Makro) Then
If Sonst_Makro > "" Then
Application.Run Sonst_Makro
Else
MAKRO_WENN = CVErr(2001)
End If
End If
End If
End Function