AW: UserForm nur laden, wenn Datei manuell geöffnet
12.08.2007 11:24:00
Luschi
Hallo Sascha,
schreibe folgenden Code in "DieseArneitsmappe" von Datei_2.xls!!!:
Private Sub Workbook_Open()
Dim ok As Boolean, wb As Workbook
ok = False
'alle geöffnen Arbeitsmappen durchlaufen und Name prüfen
For Each wb In Application.Workbooks
If wb.Name = "Datei_1.xls" Then
'wenn Name gefunden, dann Datei_1 geöffnet
ok = True
Exit For
End If
Next wb
Set wb = Nothing
If Not ok Then
'nur wenn Datei_1 nicht geöffnet, dann Userform anzeigen
'ok hat den Wert False
UserForm1.Show
End If
End Sub
Gruß von Luschi
aus klein-Paris