Hallo,

habe ein Problem beim Variablenübergeben vom Hauptprogramm ins Unterprogramm:

///// Aufgabe:

Schreiben Sie ein Unterprogramm Sub Mittelwert(Start As Integer, Ende As Integer, Wert As Double), das den Mittelwert aller Zahlen in der Spalte A der aktuellen Tabelle beginnend bei der Zeile Start und endend bei der Zeile Ende berechnet. Der berechnete Wert soll in der Variablen Wert abgelegt werden. Prüfen Sie das Unterprogramm in dem Sie es in einer Testprozedur aufrufen.

/////

Sub mittelwert(i, Start, Ende, Wert)

' Wenn ich versuche hier Variablen zu übergeben werde ich mit der

' Fehlermeldung !!Argument nicht optional!! bestraft!!

Start = InputBox("Bitte geben Sie die Zeile an, bei der gestartet werden soll!")

Ende = InputBox("Bitte geben Sie die Zeile an, bei der geendet werden soll!")

i = 0

Wert = 0

Do While Start <= Ende

Wert = Wert + Cells(Start, "B")

Start = Start + 1

i = i + 1

Loop

MsgBox ("Der Mittelwert aller Zahlen in Spalte B beträgt: " & Wert / i)

End Sub

Sub mittelwert_aufruf()

Dim i As Integer, Start As Integer, Ende As String, Wert As Double

Call mitelwert(i, Start, Ende, Wert)

End Sub

_________________________________________________

mein Problem steht im Quelltext, ich bekomme grundsätzlich den Fehler das ein Argument nicht optional ist,.. was tun?

Da fehlt ein t bei "mitelwert", aber das ist wohl nicht das Problem.

Die Funktion soll ihre Parameter benutzen, nicht den Benutzer fragen. Dazu sollte die Testfunktion dann aber auch wirklich Werte übergeben.