Makro erstellen

Forumthread: Makro erstellen

Makro erstellen

Alifa

Hallo,
kann man diese Berechnung mit einem Makro erledigen?
a = 2700: b = a \ 61: c = a Mod 61
a1 = b * 60 + c: b1 = a1 \ 61: c1 = a1 Mod 61
a2 = b1 * 60 + c1: b2 = a2 \ 61: c2 = a2 Mod 61
a3 = b2 * 60 + c2: b3 = a3 \ 61: c3 = a3 Mod 61
a4 = b3 * 60 + c3: b4 = a4 \ 61: c4 = a4 Mod 61
a5 = b4 * 60 + c4: b5 = a5 \ 61: c5 = a5 Mod 61
a6 = b5 * 60 + c5: b6 = a6 \ 61: c6 = a6 Mod 61
a7 = b6 * 60 + c6: b7 = a7 \ 61: c7 = a7 Mod 61
.
.
So geht das weiter, bis a\61 Null ist. Ich bin bis a60 gelangt....
Am Ende interessieren nur die letzten Werte.(a1000 ?!)
Danke im Voraus
Alifa

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Makro erstellen

Hajo_Zi
Zahlenfolge oder Iteration

Erich
AW: Zahlenfolge oder Iteration

Alifa

AW: Makro erstellen

16.06.2012 14:11:35

Hajo_Zi

mache es ohne Makro, fülle die erste Zelle aus und doppelklick unten rechts.

Zahlenfolge oder Iteration

16.06.2012 14: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!

AW: Zahlenfolge oder Iteration

16.06.2012 15:43:47

Alifa

Hallo Erich,
ja, die Profis! Wunderbar gelöst! Da kam auch Mathematik zum Zuge. Herzlichen Dank und ein angenehmes Wochenende!
Viele Grüße
Erhard

Forumthread: Makro erstellen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread