VBA Handelssystem

[stracke]

Hallo Gemeinde,

ich habe mich gerade erst hier im Forum angemeldet und habe ein wenig gestöbert. Wenn ich so manche Beiträge hier lese wird mir ganz schwindelig über die prima Kenntnisse im Bereich Excel Programmierung. Ich bin da eher ein Anfänger oder gar Deletant )

 

In Aktienbörse habe ich mal das folgende Makro gefunden welches auch funktioniert, allerdings kann ich es weder auf eine andere Webseite portieren noch bin ich in der Lage daraus einen Automatismuss zu machen.

 

Public Sub Realtime()

Set wstemp = Worksheets("Tabelle1")

' Daten werden ins Tabellenblatt "Tabelle1" eingelesen

Dim webadresse As String

' Beispieladresse

webadresse="http://aktien.boerse.de/aktien_startseite.php?view=2&order=name asc&liste=prime&boerse_id=16#anker_liste"

' Start Zugriff auf das Internet

With wstemp.QueryTables.Add(Connection:= _

"URL;" & webadresse & "", Destination:=wstemp.Range("A1"))

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "5"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

End Sub

 

Gibt es hier jemanden der mir helfen kann eine art automatisches Handelsystem zu generieren?

Das Programm soll folgendes tun:

 

- einen Wert (Aktie, Optionsschein oder ähnliches ) von mir abfragen

- einen Kaufpreis für den oben abgefragten Wert abfragen

- das gleiche für einen Verkaufspreis

- das Stop Loss soll in Abstand X automatisch nachgezogen werden

- das Programm soll mit flatex zusammen arbeiten können

 

Wer kann mir Tips geben?

 

Danke und Gruß

Thomas