Microsoft Excel

Herbers Excel/VBA-Archiv

Makroproblem

Betrifft: Makroproblem von: ReSt
Geschrieben am: 12.10.2014 16:45:49

Hallo
Ich möchte meinen Lottogenerator ausbauen und auf 14 Tippe erweitern.
Mein altes Makro funktioniert leider nicht.
Es rechnet nur bis Zeile 8 statt wie im Makro Zeile 15.
Aktiviere ich das Makro, hängt es sich auf.
Wo liegt der Fehler ?

https://www.herber.de/bbs/user/93124.xlsm

Gruss Reto

Tabelle1

 ABCDEFGHIJKLMNOP
1Lotto                          Glückszahl 
21234561 Tipp123456  4 
312114562 Tipp1245611  3 
412332563 Tipp1235632  3 
512344564 Tipp1235644  2 
665234565 Tipp2345665  1 
71237566 Tipp123567  6 
8332334567 Tipp34562333  4 
91234568 Tipp123456  4 
1012234569 Tipp1245623  4 
1112345610 Tipp123456  1 
12122345611 Tipp1245623  4 
13123445612 Tipp1234645  4 
1412345613 Tipp123456  1 
1512345614 Tipp123456  3 

verwendete Formeln
Zelle Formel Bereich
H2 =KKLEINSTE(A2:F2;1) 
I2 =KKLEINSTE(A2:F2;2) 
J2 =KKLEINSTE(A2:F2;3) 
K2 =KKLEINSTE(A2:F2;4) 
L2 =KKLEINSTE(A2:F2;5) 
M2 =KKLEINSTE(A2:F2;6) 
O2 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H3 =KKLEINSTE(A3:F3;1) 
I3 =KKLEINSTE(A3:F3;2) 
J3 =KKLEINSTE(A3:F3;3) 
K3 =KKLEINSTE(A3:F3;4) 
L3 =KKLEINSTE(A3:F3;5) 
M3 =KKLEINSTE(A3:F3;6) 
O3 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H4 =KKLEINSTE(A4:F4;1) 
I4 =KKLEINSTE(A4:F4;2) 
J4 =KKLEINSTE(A4:F4;3) 
K4 =KKLEINSTE(A4:F4;4) 
L4 =KKLEINSTE(A4:F4;5) 
M4 =KKLEINSTE(A4:F4;6) 
O4 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H5 =KKLEINSTE(A5:F5;1) 
I5 =KKLEINSTE(A5:F5;2) 
J5 =KKLEINSTE(A5:F5;3) 
K5 =KKLEINSTE(A5:F5;4) 
L5 =KKLEINSTE(A5:F5;5) 
M5 =KKLEINSTE(A5:F5;6) 
O5 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H6 =KKLEINSTE(A6:F6;1) 
I6 =KKLEINSTE(A6:F6;2) 
J6 =KKLEINSTE(A6:F6;3) 
K6 =KKLEINSTE(A6:F6;4) 
L6 =KKLEINSTE(A6:F6;5) 
M6 =KKLEINSTE(A6:F6;6) 
O6 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H7 =KKLEINSTE(A7:F7;1) 
I7 =KKLEINSTE(A7:F7;2) 
J7 =KKLEINSTE(A7:F7;3) 
K7 =KKLEINSTE(A7:F7;4) 
L7 =KKLEINSTE(A7:F7;5) 
M7 =KKLEINSTE(A7:F7;6) 
O7 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H8 =KKLEINSTE(A8:F8;1) 
I8 =KKLEINSTE(A8:F8;2) 
J8 =KKLEINSTE(A8:F8;3) 
K8 =KKLEINSTE(A8:F8;4) 
L8 =KKLEINSTE(A8:F8;5) 
M8 =KKLEINSTE(A8:F8;6) 
O8 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H9 =KKLEINSTE(A9:F9;1) 
I9 =KKLEINSTE(A9:F9;2) 
J9 =KKLEINSTE(A9:F9;3) 
K9 =KKLEINSTE(A9:F9;4) 
L9 =KKLEINSTE(A9:F9;5) 
M9 =KKLEINSTE(A9:F9;6) 
O9 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H10 =KKLEINSTE(A10:F10;1) 
I10 =KKLEINSTE(A10:F10;2) 
J10 =KKLEINSTE(A10:F10;3) 
K10 =KKLEINSTE(A10:F10;4) 
L10 =KKLEINSTE(A10:F10;5) 
M10 =KKLEINSTE(A10:F10;6) 
O10 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H11 =KKLEINSTE(A11:F11;1) 
I11 =KKLEINSTE(A11:F11;2) 
J11 =KKLEINSTE(A11:F11;3) 
K11 =KKLEINSTE(A11:F11;4) 
L11 =KKLEINSTE(A11:F11;5) 
M11 =KKLEINSTE(A11:F11;6) 
O11 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H12 =KKLEINSTE(A12:F12;1) 
I12 =KKLEINSTE(A12:F12;2) 
J12 =KKLEINSTE(A12:F12;3) 
K12 =KKLEINSTE(A12:F12;4) 
L12 =KKLEINSTE(A12:F12;5) 
M12 =KKLEINSTE(A12:F12;6) 
O12 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H13 =KKLEINSTE(A13:F13;1) 
I13 =KKLEINSTE(A13:F13;2) 
J13 =KKLEINSTE(A13:F13;3) 
K13 =KKLEINSTE(A13:F13;4) 
L13 =KKLEINSTE(A13:F13;5) 
M13 =KKLEINSTE(A13:F13;6) 
O13 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H14 =KKLEINSTE(A14:F14;1) 
I14 =KKLEINSTE(A14:F14;2) 
J14 =KKLEINSTE(A14:F14;3) 
K14 =KKLEINSTE(A14:F14;4) 
L14 =KKLEINSTE(A14:F14;5) 
M14 =KKLEINSTE(A14:F14;6) 
O14 =GANZZAHL(ZUFALLSZAHL()*6)+1 
H15 =KKLEINSTE(A15:F15;1) 
I15 =KKLEINSTE(A15:F15;2) 
J15 =KKLEINSTE(A15:F15;3) 
K15 =KKLEINSTE(A15:F15;4) 
L15 =KKLEINSTE(A15:F15;5) 
M15 =KKLEINSTE(A15:F15;6) 
O15 =GANZZAHL(ZUFALLSZAHL()*6)+1 

Tabellendarstellung in Foren Version 5.48


  

Betrifft: AW: Makroproblem von: Crazy Tom
Geschrieben am: 12.10.2014 18:12:43

Hallo

in Deinem Makro lässt Du die Zahlen 1 bis 42 nur einmal zu
deswegen rauscht es ab der Zeile 9 in eine Endlosschleife weil es in
Deiner Wend-Anweisung immer weiter geht und eine Zahl gesucht wird die noch frei ist
da aber alle 42 Zahlen schon vergeben sind geht es halt nicht weiter

MfG Tom


  

Betrifft: AW: Makroproblem von: ReSt
Geschrieben am: 13.10.2014 18:12:29

Hallo Tom
Besten Dank für deine Antwort.
Ja das ist mir bis jetzt noch nie aufgefallen.
Ich habe das Makro jetzt pro Zeile angepasst, und es funktioniert wie ich es möchte.

Merci
Gruss Reto