Option Explicit
Sub tst()
Perm "1234", "", 5, 1
End Sub
Sub Perm(aa As String, bb As String, Ze As Long, Sp As Long)
Dim ii As Integer, jj As Integer, kk As Long
jj = Len(aa)
If jj > 1 Then
For ii = 1 To jj
Perm Left(aa, ii - 1) + Right(aa, jj - ii), bb + Mid(aa, ii, 1), _
Ze, Sp
Next ii
Else
If Ze >= Rows.Count Then Exit Sub
For kk = Sp To Sp + Len(bb & aa) - 1
Cells(Ze, kk) = Mid(bb & aa, kk, 1)
Next kk
Ze = Ze + 1
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Option Explicit
Sub tst()
Dim zzz As Long ' test
zzz = 1 ' test
Cells.Clear ' test
Range("G1:J1") = Split("aa bb Ze Erg") ' test
Perm "1234", "", 5, 1, zzz
End Sub
Sub Perm(aa As String, bb As String, Ze As Long, Sp As Long, zz As Long)
Dim ii As Integer, jj As Integer, kk As Long
zz = zz + 1 ' test
Cells(zz, 7) = aa ' test
Cells(zz, 8) = bb ' test
jj = Len(aa)
If jj > 3 Then ' testweise statt "If jj > 1 Then" laufen lassen
' If jj > 2 Then ' testweise statt "If jj > 1 Then" laufen lassen
' If jj > 1 Then ' das ist die Original-Anweisung
For ii = 1 To jj
Perm Left(aa, ii - 1) & Right(aa, jj - ii), bb & Mid(aa, ii, 1), _
Ze, Sp, zz
Next ii
Else
If Ze >= Rows.Count Then Exit Sub
For kk = Sp To Sp + Len(bb & aa) - 1
Cells(Ze, kk) = Mid(bb & aa, kk, 1)
Next kk
zz = zz + 1 ' test
Cells(zz, 9) = Ze ' test
Cells(zz, 10) = bb & aa ' test
Ze = Ze + 1
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort