Massage Box durch Input Box ersetzen...........
David
In nachfolgendem VBA Code soll die Messagebox durch eine Input Box ersetzt werden, die eine entsprechende Zahleneingabe in das erste Feld der nächsten Zeile schreibt. Nach Bestätigung der Eingabe soll die ursprüngliche Routine weiterlaufen. Außerdem soll ein Liniendiagramm die grafische Darstellung übernehmen, wobei die Position z. B. am Anfang der Tabelle fixiert wird oder aber aktuell mit dem Seitenumbruch mitläuft.
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 >= 8 Then
If Cells(intC - 4, 1) = Cells(intC, 1) Then
If Cells(intC - 5, 1) = Cells(intC - 1, 1) Then
If Cells(intC - 6, 1) = Cells(intC - 2, 1) Then
If Cells(intC - 7, 1) = Cells(intC - 3, 1) Then
Range(Cells(intC, 1), Cells(intC - 7, 1)).Select
If MsgBox("Die letzten vier Zahlen wurden wiederholt!", vbRetryCancel) _
= vbCancel Then Exit Sub
End If
End If
End If
End If
End If
Next
End Sub
Vielen Dank für die Unterstützung!
Gruß
David