Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion automatisch starten

Funktion automatisch starten
30.05.2003 12:38:14
Björn Becker
Hi,

ich suche einen Befehl, der eine Funktion automatisch startet nachdem das Excel file geöfnnet wurde.

Björn

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Funktion automatisch starten
30.05.2003 12:42:44
Georg_Zi

Hallo

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

Gruß Hajo

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

Re: Funktion automatisch starten
30.05.2003 12:43:20
andreas e

hallo björn,
füge das ganze dem Private
Sub Workbook_Open()
dein code
End Sub
im Bereich diese Arbeitsmappe ein.
gruß
andreas e

Anzeige
Re: Funktion automatisch starten
30.05.2003 12:57:41
Björn Becker

Sorry, hat leider nicht geklappt. Er started die Funktion nicht.

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige