Hallo,

Fange gerade erst an in VBA zu Programmieren/Schreiben. Nun hat mich ein Kollege gefragt ob ich ihm nicht eine Art Wertpapiersimulation in Excel schreiben kann. Klar hab ich gesagt. Nichts Leichter als das Gedacht und schon grande malör.einen Großteil habe ich schon selbst hinbekommen, wenn auch nicht professionell aber zumindest läuft es (so einigermaßen). Wäre dankbar wenn sich einer bereit erklären würde mir ein wenig unter die Arme zu greifen.

Die Komplette Aufgabe ist für mich jedoch "Höchst"  komplex (für den einen oder anderen hier wahrscheinlich ein klacks). Die ganze Geschichte würde ich gerne über Telefon klären. aber hier noch der code den ich bisher zusammen gefackelt hab:

Sub Berechnung()
Dim Tage As Integer
Dim AnzahlPakete As Integer
Dim Steigerung
Dim I, c, a, b As Integer
Dim Kosten
Dim Gewinn
Dim Gewinnausgabe
Dim Verfall
Dim Gewinnspanne
Dim VerfallTage
Dim Verlust

Range("A11:F15000").ClearContents





Tage = Worksheets("Tabelle1").Range("C2")
AnzahlPakete = Worksheets("Tabelle1").Range("C1")
Steigerung = Worksheets("Tabelle1").Range("C3")
Kosten = Worksheets("Tabelle1").Range("C4")
a = 1
Verfall = Worksheets("Tabelle1").Range("C5")
Gewinnspanne = Verfall - Kosten
VerfallTage = Gewinnspanne / Steigerung




'Tag 0 = Tag des Kaufes
[A11] = "Kauftag"
[C11] = AnzahlPakete
[F11] = Kosten * AnzahlPakete

[D5] = VerfallTage & " Tage"


For I = 1 To Tage
    


'Berechnung
Gewinn = (Steigerung * AnzahlPakete) * a
    
    
    
    


    If Gewinn >= Kosten Then    '
 
    'c ist Stückzahlermittlung für den Neukauf
    a = 1
    c = 0
    
    c = Gewinn / Kosten
    c = Int(c * (10 ^ 0)) / (10 ^ 0)    'Abrunden

    Gewinn = Gewinn - (Kosten * c)
    AnzahlPakete = AnzahlPakete + c

    'Ausgabe des Zukaufs
    Worksheets("Tabelle1").Cells(I + 11, 3) = c
    End If

'Ausgabe
Worksheets("Tabelle1").Cells(I + 11, 1) = I
Worksheets("Tabelle1").Cells(I + 11, 2) = AnzahlPakete
Worksheets("Tabelle1").Cells(I + 11, 5) = Gewinn



a = a + 1
Next











End Sub

Ihr dürft gerne Schmunzeln.....

bei Interesse gerne email an mich chnodder@yahoo.de

besten dank

Sven