Thema Datum  Von Nutzer Rating
Antwort
Rot Bräuchte Unterstützung!
20.02.2016 20:19:01 Sven
NotSolved

Ansicht des Beitrags:
Von:
Sven		 Datum:
20.02.2016 20:19:01		 Views:
1848		 Rating:
     
Antwort:
  Ja
Thema:
Bräuchte Unterstützung!

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bräuchte Unterstützung!
20.02.2016 20:19:01 Sven
NotSolved