Thema: Sätze nach dem Zufallsprinzip bilden

StandardModule: basMain

Sub ZufallsSatz()
   Dim arrS As Variant
   Dim arrP As Variant
   Dim arrA As Variant
   Dim arrG As Variant
   Dim sA As String, sB As String, sC As String, sD As String
   arrS = Array("Gerhard Schröder ", "Edmund Stoiber ", _
      "Guido Westerwelle ", "Otto Schily ")
   arrP = Array("schätzt ", "nutzt ", _
      "verurteilt ", "genießt ")
   arrA = Array("den Zauber ", "die Freuden ", _
      "das Prinzip ", "den Rausch ")
   arrG = Array("der Macht.", "des Bundestages.", _
      "der Bundeshauptstadt.", "der Sinneslust.")
   Randomize
   sA = arrS(Int((4 * Rnd) + 0))
   sB = arrP(Int((4 * Rnd) + 0))
   sC = arrA(Int((4 * Rnd) + 0))
   sD = arrG(Int((4 * Rnd) + 0))
   MsgBox sA & sB & sC & sD
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall