Hallo Zusammen
war lang nicht mehr hier, hat sich viel verändert, aber sieht gaz gut aus!
Ich hätte da eine frage, zwar möchte ich im Excel (2003) erreichen das ich ein Wort das in einer Zelle steht (I3 z.B.) in seine einzelteile zerlegen kann und alle möglichen Variationen ausgeben soll.
Das auslesen, die berechnung der möglichen vriationen und das zerlegen habe ich hinbekommen. aber wie schaffe ich es das es die buchstaben vertauscht und ausgibt?
Hier mal das was ich bisher geschafft habe:
Private Sub CommandButton1_Click()
Dim N As String
Dim Nzaehler As String
Dim Nwort
Dim Nwort2
Dim zaehler
Dim Wortzaehler
N = Range("I3").Characters.Count 'Zählt die Anzahl der Characteren im Feld I3
Nzaehler = N * (N - 1) 'Rechnet die Maximale Anzahl der Möglichen Transpositionen für das Wort
Nwort = Range("I3").Characters.Text 'Gibt den Inhalt von I3 aus
zaehler = 1
Wortzaehler = 1
While zaehler <= N
Nwort2 = Range("I3").Characters(Wortzaehler, 1).Text
-----------KOMME HIER NICHT WEITER--------------------
Wortzaehler = Wortzaehler + 1
zaehler = zaehler + 1
Wend
End Sub
Danke vielmals |