Hallo Leute,
Ich sitze gerade an einem Simplen VBA Programmentwurf für die Uni und hänge ein bisschen. Ich hoffe ihr könnt mir helfen.
Als Eingabedatei habe ich eine Tabelle mit verschiedenen Aktien und deren Kursen jeweils zum Monatsende des laufenden Jahres.
Als Ausgabe soll eine Tabelle mit den Aktienkursen, ihren Durchschnitsskursen sowie Niedrigster und Höchster Kurs ausgegeben werden.
Meine erste Frage bezieht sich auf das Einlesen der verschiedenen Kurse. Ich hab ja zu einer Aktie mehrere verschiedene Kurse die in Excel horizontal aneinandergereit sind. Wie lese ich diese Kurse aus und untersuche sie auf den höchsten bzw. niedrigsten Kurs?
Mein erster Ansatz sieht so aus:
Sub Aktienkurse()
Rem Vorlauf
Rem Deklarieren
Dim Aktie As String
Dim Kurs As Integer
Dim Durchschnitt As Double
Rem Initialisieren
Min = 99999
Max = 0
Durchschnitt = 0
Rem Datensatz einlesen
Name = Worksheets("Aktie").Cells(3, 1)
Kurs = Worksheets("Aktie").Range(Cells(3, 2), Cells(3, 6))
'Überschriften ausgeben
Worksheets("Aktie").Cells(7, 1) = "Name:"
Worksheets("Aktie").Cells(7, 2) = "Durchnschnittskurs in €"
Worksheets("Aktie").Cells(7, 3) = "Niedrigster kurs in €"
Worksheets("Aktie").Cells(7, 4) = "Höchster Kurs in €"
Allerdings tappe ich im Dunkeln ob ich da völligen Mist zusammenbastel oder halbwegs auf dem Richtigen Weg bin.
Vielleicht kann mir ja jemand helfen.
Lg Maurizio
|