Ich habe in einem UserForm CheckBox felder zum auswählen welche Arbeitsmappen zusätzlich geöffent werden sollen
nun möchte ich, dass die CheckBox felder abgeblendet werden
(CheckBox.Value = False) wenn die entsprechende Arbeitsmappe bereits geöffnet ist. in einer weiteren CheckBox möchte ich die Datei wieder schliessen können.
Nachstehende Funktion habe ich bereits kopiert
Function MAPPEOFFEN(MappeName As String) As Boolean
Dim stName As String
On Error GoTo Nonexistent
stName = Workbooks(MappeName).Name
MAPPEOFFEN = True
Exit Function
Nonexistent:
MAPPEOFFEN = False
End Function
Klicke ich auf nein erscheint ein Debugger und verweisst auf folgende Zeile
If CheckBox1 = True Then Workbooks.Open Filename:="O:\Pool\PPS\PPS AA.xls"
CheckBox1.Value = False
Danke
Gruss Pius