jh schrieb am 25.11.2007 17:37:26:
Hallo,
welchen Parameter meinst du denn, etwa vbModeless?
UserForm1.Show vbModeless
Wenn du es mal mit einer unsichtbaren Excel-Instanz probieren willst,
schreibst du in die Sub Workbook_Open, gleich nachdem du die
OnTime-Methode gestartet hast
Application.Visible = False
Danach kannst du den Task aber nur noch mit dem Taskmanager
beenden.
Gruß
das erste habe ich hinbekommen, mit dem unsichtbar habe ich meine Probleme. Ich liste mal mein Script, vielleicht kannst du es mal an der richtigen Stelle einfügen. Noch eine Frage, ich habe die Ausgabe für die log.txt verändert, es wird jetzt auch das datum mit angezeigt. ist es ein Problem statt des excel users den angemeldeten user des OS auszuwerfen?
danke für die wirklich tollen Hilfen an einen unerfahrenen aber lernenden User
Stromberg
Private Sub Workbook_Open()
Application.OnTime EarliestTime:=Now + TimeSerial(0, 5, 0), _
Procedure:="PopUp", Schedule:=True
End Sub
Private Sub CommandButton1_Click()
Dim strMsg As String, strFileName As String, intFileNr As Integer
UserForm1.Hide
strMsg = "Benutzer " & Application.UserName & " bestätigt um " _
& Format(Date, "dddd dd.mm.yyyy") & " " & Format(Time, "hh:mm:ss") & " Uhr."
strFileName = ThisWorkbook.Path & "\log.txt"
intFileNr = FreeFile
Open strFileName For Append Shared As #intFileNr
Print #intFileNr, strMsg
Close #intFileNr
Application.OnTime EarliestTime:=Now + TimeSerial(0, 1, 0), _
Procedure:="PopUp", Schedule:=True
End Sub
|