Werte oberhalb Application.Caller add, bis leer
Peter
Ich sollte eine UDF haben, mit der ich die oberhalb einer bestimmten Zelle enthaltenen Werte, bis kein Eintrag oder ein String enthalten ist, addieren kann.
Beispiel:
In Zelle A2 bis A5 stehen je eine Zahl, A1 ist leer (nicht NULL). Wenn ich nun in Zelle A6 die UDF =SUMMEOBEN() eintrage, möchte ich als Ergebnis die Summe der Werte aus A2 bis A5.
Doch wie kann ich diese Werte "SUMMEOBEN" zuweisen - wie muss die Schlaufe lauten?
Danke für eine Antwort.
Gruss, Peter
Public Function summeoben() As Long
Dim aaa As String
Dim sss As String
sss = Application.Caller.Parent.Name
aaa = Application.Caller.Address(0, 0)
summeoben = 0
Do
Loop Until Zelleninhalt = "" oder ein String
End Function