Wie viel verschiedene "Worte" kann man aus dem Wort
"Hallo" erstellen ?
Auch wenn es keine richtigen Worte sind,
kann man das Wort Hallo immerhin auf 120 verschiedene Arten
darstellen...
Hallo, Halol, Hallo, Halol, Haoll, Haoll, Hlalo, Hlaol, Hllao,
Hlloa usw.
Und so geht es:
Sub Textdreher(x As String, y As String)
Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = x & y
Else
For i = 1 To j
Call Textdreher(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If
End Sub
Startwert beispielsweise: Call Textdreher("", "Hallo")
|
Download