Zufälliger Zitat-Generator
17.01.2018 15:36:47
Alex
untenstehend habe ich ein kleines Makro gebastelt, welches im Quellcode eingetragene Zitate in zufälliger Reihenfolge als MsgBox ausgeben soll. Dies funktioniert soweit auch. Jedoch möchte ich zwei Dinge ändern:
1. Zitate sollen sich erst dann Wiederholen, wenn jedes Zitat bereits mindestens
ein Mal angezeigt wurde.
2. Bei schließen und erneutem öffnen der Datei, beginnt die Reihenfolge wieder
exakt von vorne, was nicht so sein soll.
Kann mir hierbei bitte jemand helfen?
Vielen Dank im Voraus!
LG
Alex
Sub Schaltfläche3_Klicken()
Dim strQuotes(20) As String
Dim lngIndex As Long
strQuotes(0) = "Zitat 1" & vbNewLine & "Name 1"
strQuotes(1) = "Zitat 2" & vbNewLine & "Name 2"
strQuotes(2) = "Zitat 3" & vbNewLine & "Name 3"
etc.
lngIndex = Int((Anzahl der Zitate - 0 + 1) * Rnd + 0)
MsgBox strQuotes(lngIndex)
End Sub