Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Anfänger braucht dringend hilfe!
Autor: diskus
Datum: 29.05.03 10:13
Hallo Leute! Bin totaler Anfänger ! Leider habe ich ein Problem, bei dem Ihr mir bestimmt helfen könnt. Folgendes: Ich arbeite im moment an einen "automatischen Handelssystem" dafür habe ich bestimmte Vorgaben erhalten. Das Programm soll eine Abfrage tätigen, kurz warten, danach Abfrage wiederholen - eine Order ausdrucken - und wieder eine bestimmte Zeit warten, bevor das Programm dann von vorne beginnt. Leider bekomme ich immer wieder Fehler angezeigt z.b: "without End If", nehme ich" End If "raus funktioniert es trotzdem nicht. Bin mit meinem Latein am Ende aber für euch kann es total easy sein! Hier ist ein Beispiel von meinem Programm: Public Sub LongEntry() Dim OutFile As Integer OutFile = FreeFile If Sheet1.Range("L3") = 0 And Sheet1.Range("K3") And Sheet1.Range("I3") = 1 Then ' 15 Sekunden warten Delay 15 If Sheet1.Range("L3") = 0 And Sheet1.Range("K3") And Sheet1.Range("I3") = 1 Then ' Create an order file Open "c:\program files\tsimplus\auto.tsm" For Output As OutFile Print #OutFile, "place,buymkt," & Sheet1.Range("symbol") & ",1,,," Close OutFile ' 45 Sekunden warten Delay 45 End If End Sub Wäre großartig wenn Ihr mir helfen könntet!!!!!!!!!!!!!!!!!!!!!!!!!!! diskus

Anfänger braucht dringend hilfe!	465	diskus	29.05.03 10:13
Re: Anfänger braucht dringend hilfe!	301	Elwood	29.05.03 10:41
Re: Anfänger braucht dringend hilfe!	93	Sorgenkind Mast...	29.05.03 10:43
Re: Anfänger braucht dringend hilfe!	380	diskus	29.05.03 11:39
Re: Anfänger braucht dringend hilfe!	286	Elwood	29.05.03 12:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen