Hallo Community
Eine Excel Vba Variante!
Eine benutzerdefinierte Function
A1="Auf einer Insel"
B1=Zufall1(A1)
z.b.
B1= fAu ienre Inels
Function Zufall1(VarString As String) As String
Randomize Timer
Dim Gezogen As Integer, DimIndex As Integer, AnzZeichen As Integer
Dim Dat As Variant
Dim Puffer As String
Dat = Split(VarString, " ")
For DimIndex = 0 To UBound(Dat)
For AnzZeichen = 1 To Len(Dat(DimIndex))
Gezogen = Int(Rnd * Len(Dat(DimIndex))) + 1
Puffer = Puffer & Mid(Dat(DimIndex), Gezogen, 1)
Dat(DimIndex) = Mid(Dat(DimIndex), 1, Gezogen - 1) & Mid(Dat(DimIndex), Gezogen + 1, Len(Dat(DimIndex)))
Next AnzZeichen
Dat(DimIndex) = Puffer & " "
Puffer = ""
Zufall1 = Zufall1 & Dat(DimIndex)
Next DimIndex
End Function
Gruß Nighty