gibt es schon was neues bezüglich des Threats "Laufzeit bei Unterbrechungen"?
Du hattest damals noch um ein paar Tage gebeten :-).
Grüße
Dustbin
E | |
9 | 4 |
Formeln der Tabelle | ||||
|
A | B | C | D | E | |
11 | 15 | 15 | 15 | 15 | 15 |
12 | 9 | 9 | 9 | 9 | 9 |
13 | 9 | 9 | 9 | 9 | 9 |
14 | |||||
15 | |||||
16 | |||||
17 | |||||
18 | |||||
19 | |||||
20 | |||||
21 | |||||
22 | |||||
23 | |||||
24 | |||||
25 | |||||
26 | |||||
27 | |||||
28 | |||||
29 | |||||
30 | |||||
31 | |||||
32 | |||||
33 |
Function PSumme1(ParamArray Bezug())
Const myName$ = "PSumme1("
Dim klAnz As Long, pos(1) As Long, fml$
If UBound(Bezug) 0 Then
fml = Replace(fml, ",", Chr(0)): fml = Split(fml, Chr(0))
On Abs(UBound(fml) UBound(Bezug)) GoTo nz
Else: fml = Array(fml)
End If
ReDim avParm(UBound(Bezug))
For Each x In fml
isRoCoX = False
While x Like "*ROW(*#:*#)*"
pos = InStr(x, "ROW(")
pFml = Mid(x, pos, InStr(pos, x, ")") - pos + 1)
aFml = "{" & Join(wf.Transpose(Evaluate(pFml)), ";") & "}"
x = Replace(x, pFml, aFml): isRoCoX = True
Wend
While x Like "*COLUMN([A-Z]*:[A-Z]*)*"
pos = InStr(LCase(fml), "row(")
pFml = Mid(fml, pos, InStr(pos, fml, ")") - pos + 1)
aFml = "{" & Join(wf.Transpose(Evaluate(pFml)), ",") & "}"
x = Replace(x, pFml, aFml): isRoCoX = True
Wend
If isRoCoX Then
avParm(ix) = Evaluate(x)
If Not IsArray(avParm(ix)) Then avParm(ix) = "sum(" & x & ")"
End If
ix = ix + 1
Next x
End If
nz: For ix = LBound(Bezug) To UBound(Bezug)
If IsArray(Bezug(ix)) Then
For Each x In Bezug(ix)
If IsNumeric(x) Then PSumme2 = PSumme2 + x
Next x
ElseIf Not IsEmpty(avParm(ix)) Then
If IsArray(avParm(ix)) Then
For Each x In avParm(ix)
If IsNumeric(x) Then PSumme2 = PSumme2 + x
Next x
ElseIf Not IsNumeric(avParm(ix)) Then
If Left(avParm(ix), 4) = "sum(" Then
avParm(ix) = Evaluate(avParm(ix))
If IsNumeric(avParm(ix)) Then PSumme2 = PSumme2 + avParm(ix)
End If
ElseIf IsNumeric(avParm(ix)) Then
PSumme2 = PSumme2 + avParm(ix)
End If
ElseIf IsNumeric(Bezug(ix)) Then
PSumme2 = PSumme2 + Bezug(ix)
End If
Next ix
fx: If CBool(Err.Number) Then PSumme2 = CVErr(Err.Number)
Set wf = Nothing
End Function
Ich bitte evtl andere Interessenten zu beachten, dass diese Fktt allein der Simulation des DiskussionsGgstandes im dargestellten Umfang dienen und keinen Anspruch auf universelle Einsetzbarkeit erheben!
H | I | J | K | L | |
9 | 1 | 2 | 3 | ||
10 | #WERT! | #WERT! | #WERT! | ||
11 | 1 | 2 | 3 | ||
12 | 1 | 2 | 3 | ||
13 | 1 | 1 | 1 | ||
14 | 1 | 2 | 3 | ||
15 | 1 | 2 | 3 | ||
16 | 1 | 1 | 1 | ||
17 | 1 | 1 | 1 | ||
18 | 1 | 2 | 3 | ||
19 | 1 | 2 | 3 | ||
20 | 1 | 2 | 3 | ||
21 | #WERT! | #WERT! | #WERT! | ||
22 | #WERT! | #WERT! | #WERT! | ||
23 | #WERT! | #WERT! | #WERT! | ||
24 | #WERT! | #WERT! | #WERT! |
Function TestMxV(Bezug): TestMxV = Bezug: End Function
Function TestMxR(Bezug As Range): TestMxR = Bezug: End Function
Function TestNoMxN(Bezug As Double): TestNoMxN = Bezug: End Function
Function TestNoMxT(Bezug As String): TestNoMxT = Bezug: End Function
A | B | C | D | E | |
3 | Kunde | Von | Bis | Hilfsspalte | Jahre |
4 | A | 01.01.1994 | 30.06.1994 | 0 | |
5 | A | 01.01.1994 | 31.07.1994 | 0 | |
6 | A | 01.01.1994 | 31.08.1994 | 0 | |
7 | A | 01.01.1994 | 31.12.1994 | 0 | |
8 | A | 01.01.1994 | 31.05.1995 | 0 | |
9 | A | 01.01.1994 | 31.05.1995 | 0 | |
10 | A | 01.01.1994 | 30.11.1997 | 0 | |
11 | A | 01.01.1994 | 31.12.1998 | 0 | |
12 | A | 01.01.1994 | 31.12.1998 | 0 | |
13 | A | 01.01.1994 | 31.10.1999 | 0 | |
14 | A | 01.01.1994 | 31.03.2001 | 0 | |
15 | A | 01.01.1994 | 31.08.2001 | 0 | |
16 | A | 01.01.1994 | 31.12.2001 | 0 | |
17 | A | 01.01.1994 | 30.09.2003 | 0 | |
18 | A | 01.01.1994 | 31.12.2003 | 0 | |
19 | A | 01.01.1994 | 31.05.2004 | 10,4 | |
20 | A | 01.02.1994 | 30.06.1996 | 0 | |
21 | A | 01.04.1994 | 30.06.1996 | 0 | |
22 | A | 01.07.1996 | 30.09.1997 | 0 | |
23 | A | 01.09.2014 | 31.08.2016 | 0,3 | |
24 | A | 01.01.2015 | 31.12.2016 | 2 | 12,7 |
25 | B | 01.01.1994 | 30.09.2003 | 0 | |
26 | B | 01.01.1994 | 31.12.2003 | 0 | |
27 | B | 01.01.1994 | 31.05.2004 | 10,4 | |
28 | B | 01.02.1994 | 30.06.2003 | 0 | |
29 | B | 01.04.2001 | 30.06.1996 | 0 | |
30 | B | 01.04.2001 | 30.09.1997 | 0 | |
31 | B | 01.09.2014 | 31.08.2016 | 0,3 | |
32 | B | 01.01.2015 | 31.12.2016 | 2 | 12,7 |
Formeln der Tabelle | ||||||
|
A | B | C | D | E | |
3 | Kunde | Von | Bis | Hilfsspalte | Jahre |
4 | A | 01.01.1994 | 30.06.1994 | 0,49 | |
5 | A | 01.01.1994 | 31.07.1994 | 0,08 | |
6 | A | 01.01.1994 | 31.08.1994 | 0,08 | |
7 | A | 01.01.1994 | 31.12.1994 | 0,33 | |
8 | A | 01.01.1994 | 31.05.1995 | 0,41 | |
9 | A | 01.01.1994 | 31.05.1995 | 0 | |
10 | A | 01.01.1994 | 30.11.1997 | 2,5 | |
11 | A | 01.01.1994 | 31.12.1998 | 1,08 | |
12 | A | 01.02.1994 | 31.12.1998 | 0 | |
13 | A | 01.03.1994 | 31.10.1999 | 0,83 | |
14 | A | 01.04.1994 | 31.03.2001 | 1,42 | |
15 | A | 01.05.1994 | 31.08.2001 | 0,42 | |
16 | A | 01.06.1994 | 31.12.2001 | 0,33 | |
17 | A | 01.07.1994 | 30.09.2003 | 1,75 | |
18 | A | 01.07.1994 | 31.12.2003 | 0,25 | |
19 | A | 01.07.1994 | 31.05.2004 | 0,42 | |
20 | A | 01.07.1994 | 30.06.1996 | 0 | |
21 | A | 01.07.1994 | 30.06.1996 | 0 | |
22 | A | 01.07.1996 | 30.09.1997 | 0 | |
23 | A | 01.09.2014 | 31.08.2016 | 2 | |
24 | A | 01.01.2015 | 31.12.2016 | 0,33 | 12,72 |
25 | B | 01.10.1990 | 31.03.1991 | 0,5 | |
26 | B | 01.10.1990 | 31.03.1991 | 0 | |
27 | B | 01.01.1991 | 31.03.1991 | 0 | 0,50 |
28 | C | 01.09.1981 | 31.08.1987 | 6 | |
29 | C | 23.09.1981 | 22.09.1987 | 0,06 | |
30 | C | 01.11.1982 | 31.08.1987 | 0 | |
31 | C | 01.12.1982 | 31.12.1988 | 1,28 | |
32 | C | 01.01.1984 | 31.05.1984 | 0 | |
33 | C | 01.06.1984 | 31.12.1986 | 0 | |
34 | C | 20.06.1984 | 19.09.1987 | 0 | |
35 | C | 15.12.1986 | 14.07.1989 | 0,53 | |
36 | C | 01.01.1989 | 30.06.1992 | 2,96 | |
37 | C | 16.06.1989 | 15.07.1992 | 0,04 | |
38 | C | 01.11.1989 | 31.10.1992 | 0,3 | 11,17 |
Formeln der Tabelle | ||||||
|