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

Du kennst die Antwort? Frage beantworten
Bitte noch eine Antwort ... Frage erneut stellen
Diese Frage und Antworten teilen:

Verwandte Fragen

Fragen Sie die Community –

anonym und kostenlos!