ich suche einen Befehl, der eine Funktion automatisch startet nachdem das Excel file geöfnnet wurde.
Björn
falls es tattsächlich eine selbstgeschriebene Funktion ist. Schreibe als erste Zeile in die Funktion
Application.Volatile
schaue aber auch mal hier dazu
https://www.herber.de/forum/archiv/200to204/t201142.htm#201365
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Hier mal mein Code:
Const PrjDatei = "C:\Test\Robo.pro"
Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "Objektdaten.Daten"
End Sub
Public Sub Daten()
If Range("B4") = 1 Then
DdeKanal = DDEInitiate("Codesys", PrjDatei)
Application.DDEPoke DdeKanal, "WINKEL", Range("B1")
Application.DDEPoke DdeKanal, "OBJ.X_SOLL_OPT", Range("B2")
Application.DDEPoke DdeKanal, "OBJ.Y_SOLL_OPT", Range("B3")
Application.DDEPoke DdeKanal, "OBJ.FERTIG", Range("B4")
DDETerminate (DdeKanal)
Range("B4").Value = 0
Application.OnTime Now + TimeValue("00:00:10"), "Objektdaten.Daten"
Else
Application.OnTime Now + TimeValue("00:00:10"), "Objektdaten.Daten"
End If
End Sub