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?