Ich habe ein Problem ich möchte bei einem Wort die Buchstaben vertauschen
und alle Möglichkeiten anzeigen zu lassen
Danke schon im voraus
Sub Eingabe()
Dim s As String
s = InputBox("Geben Sie einen Text ein(max. 8 Zeichen!", "Zeichenkombinationen", "Test")
If Len(s) < 2 Then
MsgBox "Der Text muss länger als 1 Zeichen sein ! ", 64, "weise hin..."
Exit Sub
ElseIf Len(s) > 8 Then
MsgBox "Der Text darf max. 8 Zeichen haben! ", 64, "weise hin..."
Exit Sub
End If
ActiveSheet.Columns(1).Clear
Zeile = 1
Call ZeichenKombi("", s)
End Sub
Sub ZeichenKombi(x As String, y As String)
Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
Cells(Zeile, 1) = x & y
Zeile = Zeile + 1
Else
For i = 1 To j
Call ZeichenKombi(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If
End Sub