HERBERS Excel-Forum - die Beispiele

Thema: Sätze nach dem Zufallsprinzip bilden

Home

Gruppe

Allgemein

Problem

Wie kann ich Sätze nach dem Zufallsprinzip bilden und über eine MsgBox ausgeben lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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