Stop einer Routine wenn Ereignis eintritt.....

Forumthread: Stop einer Routine wenn Ereignis eintritt.....
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Stop einer Routine wenn Ereignis eintritt.....

31.03.2004 21:17:14

David

Hallo!
In der Spalte A sollen von Zeile eins beginnend 500 Zufallszahlen (1 oder 2) generiert werden. Gestoppt werden soll, wenn die letzten 3 Zahlen die genaue Abfolge der vorletzten 3 Zahlen war (Messagebox). Durch Bestätigung der Messagebox sollte es wieder weitergehen (bis zum nächsten Stop bzw. bis die 500 Zahlen durch sind). Im Rahmen meiner begrenzten Excelkenntnisse habe ich das Problem "manuell" gelöst. Mir fehlt die Automatikvariante.
Vielen Dank für die Hilfe!
Grüße aus Franken
David

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Stop einer Routine wenn Ereignis eintritt.....

31.03.2004 21:45:04

Josef Ehrensberger
AW: Stop einer Routine wenn Ereignis eintritt.....

31.03.2004 21:46:31

ChrisL
Vielen Dank Josef, vielen Dank Chris

31.03.2004 22:07:29

David
Danke für die Rückmeldung! o.T.

31.03.2004 22:08:55

Josef Ehrensberger

AW: Stop einer Routine wenn Ereignis eintritt.....

31.03.2004 21:45:04

Josef Ehrensberger

Hallo David!
Probier mal.

Option Explicit
Sub Zahlen_bis_500()
Dim intC As Integer
Range("A1:A500").ClearContents
For intC = 1 To 500
Cells(intC, 1) = Int(2 * Rnd) + 1
If intC >= 6 Then
If Cells(intC - 3, 1) = Cells(intC, 1) Then
If Cells(intC - 4, 1) = Cells(intC - 1, 1) Then
If Cells(intC - 5, 1) = Cells(intC - 2, 1) Then
Range(Cells(intC, 1), Cells(intC - 5, 1)).Select
If MsgBox("Die letzten drei Zahlen wurden wiederholt!", vbRetryCancel) _
= vbCancel Then Exit Sub
End If
End If
End If
End If
Next
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

AW: Stop einer Routine wenn Ereignis eintritt.....

31.03.2004 21:46:31

ChrisL

ups jetzt bin ich zu spät...
Hi David
Sieht fast gleich aus wie das von Josef


Sub Zufall()
Dim i As Integer
For i = 1 To 500
Cells(i, 1) = Int(Rnd() * 2 + 1)
If i > 5 Then
If _
Cells(i, 1) = Cells(i - 3, 1) And _
Cells(i - 1, 1) = Cells(i - 4, 1) And _
Cells(i - 2, 1) = Cells(i - 5, 1) Then _
MsgBox "jetzt"
End If
Next i
End Sub

Gruss
Chris

Vielen Dank Josef, vielen Dank Chris

31.03.2004 22:07:29

David

Herzlichen Dank!
Werde Euch in mein Nachtgebet einschließen :-)))

Danke für die Rückmeldung! o.T.

31.03.2004 22:08:55

Josef Ehrensberger

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!