Zahlen mischen

Dim Kontrollfeld() As Boolean

Dim Wortfeld() As String

Dim NeuesWort

Dim Gefunden



Function Zufallszahl(Bereich) As Integer

 Randomize

 Zufallszahl = Int((Bereich * Rnd) + 1)

End Function



Function Buchstabensalat(Wort)

 If IsEmpty(Wort) Then Exit Function

 ReDim Kontrollfeld(Len(Wort))

 For i = 1 To UBound(Kontrollfeld)

  Kontrollfeld(i) = False

 Next

 ReDim Wortfeld(Len(Wort))

 For i = 1 To Len(Wort)

  Wortfeld(i) = Mid(Wort, i, 1)

 Next i

 Randomize

 z = Zufallszahl(Len(Wort))

 Kontrollfeld(z) = True

 NeuesWort = Wortfeld(z)

 Gefunden = 1

 For i = 2 To Len(Wort)

  While Kontrollfeld(z) And Gefunden < Len(Wort)

   z = Zufallszahl(Len(Wort))

  Wend

  Gefunden = Gefunden + 1

  Kontrollfeld(z) = True

  NeuesWort = NeuesWort + Wortfeld(z)

 Next

 Buchstabensalat = NeuesWort

End Function

Dim Kontrollfeld() As Boolean 'Hier werden Zahlen gespeichert, die schon "gezogen" wurden  

Dim Wortfeld() As String 'Das Ursprungswort wird hier in Buchstaben zerlegt  

Dim NeuesWort 'Das neue, verdrehte Wort  

Dim Gefunden 'Kontrollvariable  



'Ermittelt Zufallszahlen aus dem Bereich 1 -n(Wortlänge)  

'Wortlänge wird in der Hauptfunktion als Parameter übergeben  

Function Zufallszahl(Bereich) As Integer

 Randomize

 Zufallszahl = Int((Bereich * Rnd) + 1)

End Function



'Hauptfunktion  

Function Buchstabensalat(Wort) 'Wort wird im Tabellenblatt durch eine Zelle ersetzt, z.B. A1  

 If IsEmpty(Wort) Then Exit Function 'Unterdrückt Fehlermeldung, wenn Zelle leer ist  

 ReDim Kontrollfeld(Len(Wort)) 'Kontrollfeld an Wortlänge anpassen  

 For i = 1 To UBound(Kontrollfeld) 'Kontrollfeld initialisieren  

  Kontrollfeld(i) = False

 Next

 ReDim Wortfeld(Len(Wort)) 'Wortfeld an Wortlänge anpassen  

 For i = 1 To Len(Wort) 'Wort in Buchstaben zerlegen, und die Buchstaben in Wortfeld einfügen  

  Wortfeld(i) = Mid(Wort, i, 1)

 Next i

 Kontrollfeld(1) = True 'Erster Buchstabe soll nicht per Zufall ermittelt werden  

 Kontrollfeld(Len(Wort)) = True 'Letzter Buchstabe soll nicht per Zufall ermittelt werden  

 NeuesWort = Wortfeld(1) 'Erster Buchstabe wird eingefügt  

 Gefunden = 1 'Erster Buchstabe gefunden  

 For i = 2 To Len(Wort) 'In der For-Schleife werden nun die Buchstaben 2 - n per Zufall ermittelt  

  'While-Schleife läuft solange,  

  'a: ein gefundener Wert bereits vorhanden ist  

  'b: oder bereits alle Buchstaben vertauscht wurden  

  While Kontrollfeld(z) And Gefunden < Len(Wort)

   z = Zufallszahl(Len(Wort))

  Wend

  Gefunden = Gefunden + 1 'Kontrollvariable wird solange erhöht, wie Buchstaben vorhanden  

  Kontrollfeld(z) = True 'Entsprechendes Feld wird auf TRUE gesetzt  

  NeuesWort = NeuesWort + Wortfeld(z) 'Zufällig gef. Buchstabe wird an neues Wort angehangen  

 Next

 'Da bereits oben das Finden des letzten Buchstabens ausgeschlossen wurde(Kontrollfeld(Len(Wort)) = True ),  

 'muß er nun zum Schluß noch angefügt werden  

 NeuesWort = NeuesWort + Wortfeld(Len(Wort))

 Buchstabensalat = NeuesWort 'Das neue Wort wird an die Funktion übergeben  

End Function