Frage von afuzzi 07.01.2010

liste der möglichkeiten von 5 buchstaben

  • Hilfreichste Antwort von Dory1 07.01.2010
    1 Mitglied fand diese Antwort hilfreich

    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 von Ethanol 07.01.2010

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

  • Antwort von baynrw90 07.01.2010

    gar nicht, du bist der administrator und dazu nicht befugt

Diese Frage und Antworten teilen:

Verwandte Fragen

Fragen Sie die Community –

anonym und kostenlos!