Summe aus next schleife
29.06.2006 12:25:58
Henrik
habe kleines problem mit folgender funktion. (konnte im archiv leider nix finden)
(Eigentlich geht es nur um das ende der funktion.)
Function jahrTS()
Application.Volatile True
For n = 1 To 3
If Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column) <> 0 Then
Sa = WorksheetFunction.SumIf(Worksheets("tabellen").Range("j111:j475"), _
Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column), _
Worksheets("tabellen").Range("m111:m475")) / _
WorksheetFunction.CountIf(Worksheets("tabellen").Range("j111:j475"), _
Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column))
Su = WorksheetFunction.SumIf(Worksheets("tabellen").Range("j111:j475"), _
Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column), _
Worksheets("tabellen").Range("n111:n475")) / _
WorksheetFunction.CountIf(Worksheets("tabellen").Range("j111:j475"), _
Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column))
ab = Worksheets("Eingabe BEL").Cells(36, Application.Caller.Column)
ae = Worksheets("Eingabe BEL").Cells(61, Application.Caller.Column)
If ab >= Sa And ab <= Su And ae >= Sa And ae <= Su And ae > ab Then
TS1 = ae - ab
Else
If ab >= Sa And ab <= Su And ae >= Sa And ae <= Su And ae < ab Then
TS1 = Su - ab + ae - Sa
Else
If ab >= Sa And ab <= Su And ae >= Su Or ab >= Sa And ab <= Su And ae <= Sa Then
TS1 = Su - ab
Else
If ae >= Sa And ae <= Su And ab >= Su Or ae >= Sa And ae <= Su And ab <= Sa Then
TS1 = ae - Sa
Else
If ab >= 0 And ab <= Sa And ae >= Su Then
TS1 = Su - Sa
Else
If ab > ae And ab <= Sa And ae < ab Then
TS1 = Su - Sa
Else
If ab = ae Then
TS1 = Su - Sa
Else
If ab > ae And ab > Su And ae >= Su Then
TS1 = Su - Sa
Else
TS1 = 0
End If
End If
End If
End If
End If
End If
End If
End If
ts2 = TS1 * 24 * WorksheetFunction.CountIf(Worksheets("tabellen").Range("j111:j475"), _
Worksheets("Eingabe BEL").Cells(76 + n, Application.Caller.Column))
End If
MsgBox ts2
Next n
jahrTS = ts2
End Function
Das funktioniert auch alles! habe zur kontrolle msgbox für ts2-wert gemacht. da kommen auch für n=1 bis 3 3 verschiedene werte raus.
das problem ist nur: wie kann ich die addieren (also als 1ne summe ausgeben)?
vielen dank für jede hilfe
gruß henrik