Funktion mit werte zurück geben
10.04.2006 09:56:46
Christian
wenn ich eine Funktion habe, diese aufrufe und abarbeiten lassen, einen wert wieder zurückgeben? ohne Globale Variable aber!
Danke schon einmal.
Im Anhang meine Zählfunktion:
Function Anzahl_Elemente_in(spalte)
Set ws = Worksheets("Uebersicht")
Dim ende As Boolean
Dim zeile, As Integer
ende = False
zeile = 2
While ende = False
If ws.Cells(zeile, spalte) = "" Then
last_element = True
End If
zeile = zeile + 1
Wend
rückgabewert = (zeile - 1)
***Hier den Rückgabewert zurückgeben****
End Function
Anzeige