Office: (Office 2016) Excel

Ich melde mich nach der Arbeit wieder

 

Hallo,
mein letzter Versuch: Meinst Du die (sicher auch besser darstellbare) Formel inA1:
=WENN($B$1>=$K$1;$K$1;WENN($B$1>=$H$1;$H$1;WENN($B$1>=$E$1;$E$1;WENN($B$1<=0;0;0))))

 

Hallo Nochmal,
es tut mir leid. So habe ich nicht gemeint. Ich lade nochmal eine Mappe hoch mit genaue Erklärung!
Schauen Sie bitte nochmal an

 

Hallo,
Formel für A1:
=WENN($B$1<=0;0;GANZZAHL($B$1/10)*10)

 

Es hat klappt!!!!! Sie sind einfach spitze!!!!

 

Hallo

ich möchte die Befehle automatisch ausführen lassen. Z.B die Zeilen von K4:Q14 und K20:Q30 ändern sich von Zeile zu Zeile. Sobald die betreffende Zeile da ist, möchte ich dass er sofort selbstständig und automatisch ausgeführt wird, ohne dass ich irgendein Schalter klicke oder manuell ins vba reinkopiere! Das ist sehr umständlich.
Der Befehl lautet! (Die Zahlen sind nur als Beispiel da)

Set cmd = CreateObject("FXBlueLabs.ExcelCommand")
strResult = cmd.SendCommand("24435553", "BUY", "s=EURUSD|v=1000|price= 1.0969 |sl= 0 |tp= 1.09705 ", 5)
strResult = cmd.SendCommand("24435553", "SELL", "s=EURUSD|v=1000|price= 1.09681 |sl= 0 |tp= 1.09666 ", 5)

Ich weiss, dass MQL4 oder andere Programmiersprache besser ist. Ich möchte erstmal im Excel probieren!

 

Hallo,
Du verlangst von den Helfern ziemlich große Wahrsagerfähigkeiten.
Ich versuche es mal:
- Die Zahlen stehen im Bereich K4:Q30. Wenn sicj in einer Zeile dieses Bereiches etwas ändert (und die Zeile vollständig ist), soll der oben angeführte Befehlssatz abgearbeitet werden. So richtig?
Wenn Du jetzt noch verrätst, aus welcher Spalte die Werte im SendCommand-Statement kommen, hann man das schreiben.
Du könntest es auch selber. Mit der Annahme, die erste Zahl kommt aus Spalte K, würde das es (ungetestet und unvollständig!) so aussehen

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long, cmd As Object, strresult As Variant
  If Not Intersect(Target, Range("K4:Q30")) Is Nothing Then
    zeile = Target.Row
    If IsNumeric(Cells(zeile, 11)) And Val(Cells(zeile, 11)) > 0 Then
    'Vollständigkeitstest muss sicher ausgebaut werden
      Set cmd = CreateObject("FXBlueLabs.ExcelCommand")
      strresult = cmd.SendCommand(Cells(zeile, 11).Text, "BUY", "s=EURUSD|v=1000|price= 1.0969 |sl= 0 |tp= 1.09705 ", 5)
      strresult = cmd.SendCommand("24435553", "SELL", "s=EURUSD|v=1000|price= 1.09681 |sl= 0 |tp= 1.09666 ", 5)
      Set cmd = Nothing
    End If
  End If
End Sub

Gruß der ALteDresdner

 

Hallo ALteDresdner
Ich werde morgen mal ausprobieren. Sollte es nicht klappen, kannst du über Anydesk mal anschauen. Wäre es möglich für dich? Da kannst du besser verstehen: Muss jetzt bald arbeiten.

 

Hallo, nur zur Sicherheit: Das Makro kann so nicht funktionieren. Dazu müsstest Du erst mal Infos zur Herkunft der Zahlen in dem cmd.Send liefern.
Und zu AnyDesk: No, mache ich nicht.
Gruß der AlteDresdner

 

Hallo nochmal,
cmd.Send ist der Befehl für Mt4(Metatrader4). Das wird automatisch an Mt4 ausgeführt Ohne die Befehle kann ich nicht kaufen oder verkaufen.
strResult = cmd.SendCommand("24435553", "BUY", "s=EURUSD|v=1000|price= 1.0969 |sl= 0 |tp= 1.09705 ", 5)
strResult = cmd.SendCommand("Kontonummer", "BUY", "s=EURUSD|v=1000$ |Kaufpreis= 1.0969 |stopLoss= 0 |take profit= 1.09705 ", 5(5 Sekunden zum ausführen). ich habe nochmal Mappe runtergeladen mit genaue Erklärung.

 

Hallo,
was auch immer Du da willst, Du musst es ohne mich realisieren.
Ich kenne kein Ereignis "Zeile wird eingeblendet" und der Rest ist mir auch zu diffus.
Ich bin dann raus.
Gruß der ALteDresdner