Hallo liebe Forumsgemeinde,

Hab mich eben hier angemeldet, weil ich nimmer weiter weis

Bin Student und muss für die Uni etwas programmieren und zwar in word mittels vba, bin echt schon am verzweifeln aber ich hoffe ihr helft mir weiter

Hier die Aufgabenstellung:

Monatsumsätze eines Produktes analysieren und größten Wert, inkl. Angabe der relevanten Monatsnummer ausgeben.

hier mein quellcode:

Sub Bso1004()

'Deklaration

Const T1 = "Bitte geben Sie die Monatsumsätze ein: "
Const T2 = "Der Monatsumsatz im Monat ("
Const T3 = ") war: "
Const Startwert = 1

Const OG = 12
Const Ug = 1

Dim i As Integer
Dim Monatsumsätze(12) As Variant
Dim ausgabe As Variant


'Anweisung


For i = 1 To 12

Monatsumsätze(i) = InputBox(T1)

Next

For Each ausgabe In Monatsumsätze

MsgBox (T2 & i & T3 & ausgabe)

Next

MsgBox (UBound(ausgabe))

End Sub


Ich weis, dass ich ubound einbauen muss, aber wie, damit mir das ding, das auch ausgibt?
--------------------------------------------------------------------------

Zweites Beispiel:

Monatsumsätze eines Produktes analysieren und Durchschnittswert ausgeben.


Hier ist der anfang gleich, aber ich hab keinen Schimmer, wie ich einen Durchschnittswert ausgebe? Gibt es da eine Anweisung oder eine Funktion??

----------------------------------------------------------------------

Letztes Beispiel:

Testen der Qualität unseres virtuellen Würfels.
6 Millionen Würfelvorgänge durchführen und Auskunft geben wie oft jede Augenzahl gewürfelt wurde.

Hier muss ich ehrlich sagen hab ich keinen Plan =(


Bitte Leute helft einem armen Studenten auf die Sprünge