VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Sätze nach dem Zufallsprinzip bilden

Gruppe

Allgemein

Bereich

Zufall

Thema

Sätze nach dem Zufallsprinzip bilden

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

    


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