Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Stop einer Routine wenn Ereignis eintritt.....

Stop einer Routine wenn Ereignis eintritt.....
31.03.2004 19: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
Anzeige
AW: Stop einer Routine wenn Ereignis eintritt.....
31.03.2004 19: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)


Anzeige
AW: Stop einer Routine wenn Ereignis eintritt.....
31.03.2004 19: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 20:07:29
David
Herzlichen Dank!
Werde Euch in mein Nachtgebet einschließen :-)))
Danke für die Rückmeldung! o.T.
31.03.2004 20:08:55
Josef Ehrensberger
Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.

(Sir Winston Churchill)


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige