Re: mögliche Kombinationen mit variabler
01.08.2002 16:43:28
L.Vira
Max. 8 Zahlen, weil das schon 40.000 Kombis sind, sonst umstricken und in der nächsten Spalte weiterrödeln:Dim Zeile
Sub Eingabe()
Dim s As String
s = InputBox("Geben Sie eine Zahl ein(max. 8 Zeichen!", "Kombinationen", 123)
If Len(s) < 2 Then
MsgBox "Mindestens zwei Zahlen erforderlich ! ", 64, "weise hin..."
Exit Sub
ElseIf Len(s) > 8 Then
MsgBox "Maximal 8 Zahlen möglich! ", 64, "weise hin..."
Exit Sub
End If
ActiveSheet.Columns(1).Clear
Zeile = 1
Call Kombinationen("", s)
End Sub
Sub Kombinationen(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 Kombinationen(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If
End Sub
Geht auch mit Buchstaben