liste der möglichkeiten von 5 buchstaben

... komplette Frage anzeigen

3 Antworten

http://j-walk.com/ss/excel/tips/tip46.htm

Dim CurrentRow

Sub GetString()

Dim InString As String
InString = InputBox("Enter text to permute:")
If Len(InString) < 2 Then Exit Sub
If Len(InString) >= 8 Then
    MsgBox "Too many permutations!"
    Exit Sub
Else
    ActiveSheet.Columns(1).Clear
    CurrentRow = 1
    Call GetPermutation("", InString)
End If

End Sub

Sub GetPermutation(x As String, y As String)

' The source of this algorithm is unknown

Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
    Cells(CurrentRow, 1) = x & y
    CurrentRow = CurrentRow + 1
Else
    For i = 1 To j
        Call GetPermutation(x + Mid(y, i, 1), _
        Left(y, i - 1) + Right(y, j - i))
    Next
End If

End Sub

Antwort bewerten Vielen Dank für Deine Bewertung

gar nicht, du bist der administrator und dazu nicht befugt

Antwort bewerten Vielen Dank für Deine Bewertung

Da dürftest du etwas länger lesen: Es gibt mathematisch 26^5=11881376 mögliche Kombinationen.

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Dory1
07.01.2010, 23:57

Bei 5 Buchstaben? Da zähle ich nur 120... (5! also 1x2x3x4x5=120) ... oder mach ich was falsch?

0

Was möchtest Du wissen?