VBA - Bedingungs-Problem
15.05.2006 20:02:47
Jan
Ich bitte euch dringend um Hilfe. Ich arbeite gerade an einer Würfelsimulation, aber habe ein Problem; hier erst der Code:
Sub Würfelspiel()
Rem Variablen festlegen
Dim zeile As Integer
Dim result As Integer
Dim wurfnummer As Integer
Dim highscore As Integer
Dim speicher As Integer
Dim speichera As Integer
Worksheets("Tabelle1").Select
Rem Inhalt des Arbeitsblatzs löschen
ActiveSheet.Range("A1:B60000").Delete
Range("A1").Select
zeile = 1
Cells(zeile, 1).Value = "Wurfnummer"
Cells(zeile, 2).Value = "Würfelergebnis"
wurfnummer = 0
result = 0
Do
speicher = result
wurfnummer = wurfnummer + 1
zeile = zeile + 1
result = Int((6 * Rnd) + 1)
Cells(zeile, 1).Value = wurfnummer
Cells(zeile, 2).Value = result
If result = speicher Then
speichera = result
End If
Loop Until speicher = speichera
End Sub
Leider schreibt mein VBA immer nur den 1. Wurf, d.h. er erfüllt schon beim ersten Durchlauf der Schleife die Bedingung von 'If', was aber beim ersten Mal unmöglich sein sollte.
Kann mir bitte jemand helfen?
MfG Jan