title image


Smiley Re: Arbeitsmappe zu bestimmten Datum öffnen
Erstelle eine Datei mit dem Namen "PERSONL.XLS", wenn du sie noch nicht hast, und kopiere im VB-Editor unter "Diese Arbeitsmappe" diesen Code.



Private Sub Workbook_Open()

Dim Nachricht As Object, OutApp As Object

Dim CheckDate As String, AddWb As String

'Datum in dieser Form eimgeben

CheckDate = "20.08.2002"

If Format(Now(), "dd.mm.yyyy") = CheckDate Then

    'Pfad der Datei anpassen

    Application.Workbooks.Open ("C:\Deine Datei.xls")

    Set OutApp = CreateObject("Outlook.Application")

    AddWb = ThisWorkbook.FullName

    'InitializeOutlook = True

    Set Nachricht = OutApp.CreateItem(0)

    With Nachricht

        'Empfänger Adresse anpassen

        .To = "irgendwer@provider"

        'Betreff anpassen

        .Subject = "Testmeldung von Excel2000 " & Date & Time

        .attachments.Add AddWb

        'Nachrichtentext anpassen

        .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."

        'Hier wird die Mail gleich gesendet

        Mail.Send

    End With

    OutApp.Quit

    Set OutApp = Nothing

    Set Nachricht = Nothing

    'Datei wird wieder geschlossen

    ActiveWorkbook.Close

End If

End Sub





Code eingefügt mit Syntaxhighlighter 1.12





Speichere die Datei im Verzeichnis "XLStart" und blende Sie aus ( "Fenster - Ausblenden" ) und schliesse die Applikation. Beim nächsten Start von EXCEL wird die Datei automatisch geöffnet, das Makro ausgeführt.


Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: