Probleme im Modul der Arbeitsmappe!!!
Timo
Habe folgenden Code im Modul der Arbeitsmappe:
Code:
Private Sub Workbook_Open()
Application.Visible = False
Dim Antwort3
'Antwort3 = MsgBox(Quelle, 4, "Dateien richtig benannt?", "help.doc", "Die Datei muß folgendermaßen benannt sein:"
Antwort3 = MsgBox("The files must be called as follows :" & vbNewLine _
& "" & vbNewLine _
& "------ ------ ----- ----- --" & vbNewLine _
& "ProjName Date Degree Angel open/close" & vbNewLine _
& "" & vbNewLine _
& "Example: xk 040215+20°C+11.3°OP", 4, "Are the files correctly called?")
If Antwort3 = vbYes Then
UserForm1.Show
Else
Application.Quit
End If
End Sub
Die MsgBox ist eine Abfrage, wenn diese mit Ja beantwortet wurde, soll die USerForm angezeigt werden, wenn diese mit Nein beantwortet wurde soll Excel komplett geschlossen werden!
Das ganz soll passieren, ohne das die Exceloberfläche angezeigt wird. Man soll also erst die Abfrage sehen und dann ggf. die UserForm!
Hoffe auf Hilfe!!!!
Gruß Timo
Anzeige