Zahlenfolge oder Iteration
16.06.2012 12:43:36
Erich
Hi Erhard,
mit XL-Formeln:
| A | B | C |
1 | 2700 | 44 | 16 |
2 | 2656 | 43 | 33 |
3 | 2613 | 42 | 51 |
4 | 2571 | 42 | 9 |
5 | 2529 | 41 | 28 |
6 | 2488 | 40 | 48 |
7 | 2448 | 40 | 8 |
8 | 2408 | 39 | 29 |
9 | 2369 | 38 | 51 |
10 | 2331 | 38 | 13 |
11 | 2293 | 37 | 36 |
12 | 2256 | 36 | 60 |
13 | 2220 | 36 | 24 |
14 | 2184 | 35 | 49 |
15 | 2149 | 35 | 14 |
264 | 61 | 1 | 0 |
265 | 60 | 0 | 60 |
266 | 60 | 0 | 60 |
Formeln der Tabelle |
Zelle | Formel | B1 | =KÜRZEN(A1/61) | C1 | =A1-B1*61 | A2 | =B1*60+C1 | B2 | =KÜRZEN(A2/61) | C2 | =A2-B2*61 |
|
Und mit VBA:
Option Explicit
Sub Rest61()
Dim aa As Integer, bb As Integer, cc As Integer, nn As Long
aa = 2700
bb = Int(aa / 61)
While bb > 0
nn = nn + 1
If nn > 999 Then Stop ' Notbremse
cc = aa - bb * 61
aa = bb * 60 + cc
bb = Int(aa / 61)
Wend
MsgBox "bb ist Null ab Zeile " & nn + 1
End Sub
Sub Rest61Arr()
Dim aa As Integer, bb As Integer, cc As Integer, nn As Long
Dim arT(0 To 9), arE(0 To 9), pp As Integer
aa = 2700
bb = Int(aa / 61)
pp = 1
arT(pp) = aa
While bb > 0
nn = nn + 1
If nn > 999 Then Stop ' Notbremse
cc = aa - bb * 61
aa = bb * 60 + cc
pp = (pp + 1) Mod 10
arT(pp) = aa
bb = Int(aa / 61)
Wend
MsgBox "bb ist Null ab Zeile " & nn + 1
nn = 0
For aa = pp + 1 To 9
arE(nn) = arT(aa)
nn = nn + 1
Next aa
For aa = 0 To pp
arE(nn) = arT(aa)
nn = nn + 1
Next aa
MsgBox "Letzte 10 Werte in Sp. A: " & Join(arE, ", ")
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich und: Schönes Wochenende!