Blattname an Fuction übergeben
16.08.2007 19:15:45
SteffenS
Hallo Zusammen,
ich habe folgende Funktion:
Sub ws_schutz_aufheben(ws As Worksheet)
'Schutz aufheben
ws.Unprotect (PSWDTP)
End Sub
diese möchte ich mit:
Sub xyz()
Dim ADM As Worksheet
Set ADM = Workbooks(admin_datei).Sheets("bt_admin")
ws_schutz_aufheben (ADM)
End Sub
aufrufen.
Objekt unterstützt die Eigenschaft oder Methode nicht
Wie bekomme ich es hin damit es funktioniert?
Danke im Voraus.
MFG
Steffen Schmerler