weis jemand warum es hier beim entladen der Form zu einem Fehler kommt (Typen unverträglich)?
Sub ShowForm_Sheet(objForm As Object, sSheet As String)
Dim sActSheet As String
On Error GoTo ERRORHANDLE
sActSheet = ActiveSheet.Name
If sActSheet = "System" Then
Else
objForm.Show
End If
Exit Sub
ERRORHANDLE:
End Sub
mfg tobias