Spalte einblenden
06.08.2003 11:51:30
Alex1
Als Lösung bekam ich folgendes:
Public
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
Meine (zugegeben amateurhafte) Frage: Wo schreibe ich die Funktion hin ? In VB? Einfch genauso übernehmen habe ich probiert, das klappt net, helft mir, ist wichtig.
Danke Alex