Mögliche Buchstabenkombinationen

Lela Sommer

unread,

Sep 17, 2003, 3:23:23 PM9/17/03

to

Hallo!
Wie kann ich berechnen, wieviele Buchstabenkombinationen
mit jeweils 3 Buchstaben sich aus dem Alphabet generieren
lassen. (nur Kleinschreibung, keine Sonderzeichen)
Es geht um die Vergabe von Kürzeln für Angestellte.

Wäre für einen Tipp sehr dankbar.

Liebe Grüsse
Lela Sommer

Michael Mueller

unread,

Sep 17, 2003, 3:31:52 PM9/17/03

to

> Wie kann ich berechnen, wieviele Buchstabenkombinationen
> mit jeweils 3 Buchstaben sich aus dem Alphabet generieren
> lassen. (nur Kleinschreibung, keine Sonderzeichen)
> Es geht um die Vergabe von Kürzeln für Angestellte.

Im Binärsystem ist es 2^3 0,1
Im Dezimalsystem ist es 10^3 0,1,2,3,4,5,6,7,8,9

Dann dürften es wohl 26^3 mögliche Kombinationen sein.

Gruß
Michi

Lela Sommer

unread,

Sep 19, 2003, 3:11:50 PM9/19/03

to

>
> Im Binärsystem ist es 2^3 0,1
> Im Dezimalsystem ist es 10^3 0,1,2,3,4,5,6,7,8,9
>
> Dann dürften es wohl 26^3 mögliche Kombinationen sein.
>
> Gruß
> Michi

Hallo Michi!

Vielen Dank für deinen Tipp! Lassen sich diese
Kombinationen in Excel auch generieren bzw. anzeigen?

Liebe Grüsse
Lela Sommer

Thomas Ramel

unread,

Sep 20, 2003, 2:34:37 AM9/20/03

to

Grüezi Lela

Lela Sommer schrieb:

>>
>>Dann dürften es wohl 26^3 mögliche Kombinationen sein.
>

> Vielen Dank für deinen Tipp! Lassen sich diese
> Kombinationen in Excel auch generieren bzw. anzeigen?

Trage die Buchstaben von 'a' - 'z' in die Zellen A1:Z1 ein.

B3 =ANZAHL2($1:$1)^3 --> ergibt die Anzahl der Kombinationen
C3 =ANZAHL2(A:A)-1 --> ergibt die Anzahl der bereits aufgeführten

Dann verwende die folgende Formel z.B in A5 und ziehe sie nach unten
(Vorsicht Zeilenumbruch):

=INDEX(BEREICH.VERSCHIEBEN($A$1;;;;ANZAHL2($1:$1));;GANZZAHL(REST((ZEILE(A1)-1)/ANZAHL2($1:$1)/ANZAHL2($1:$1);ANZAHL2($1:$1))+1))&INDEX(BEREICH.VERSCHIEBEN($A$1;;;;ANZAHL2($1:$1));;GANZZAHL(REST((ZEILE(A1)-1)/ANZAHL2($1:$1);ANZAHL2($1:$1))+1))&INDEX(BEREICH.VERSCHIEBEN($A$1;;;;ANZAHL2($1:$1));;REST(ZEILE(A1)-1;ANZAHL2($1:$1))+1)

Sobald die Zellen B3 und C3 dieselbe Zahl zeigen, hast Du alle
Kombinationen aufgelistet.

Nun kannst du in A1:Z1 auch andere Werte eingeben um Vraiationen zu
erzeugen oder du kannt mehr oder weniger Werte in A1:??1 eingeben; die
Formeln passen sich immer an.

Alternativ für dein Problem kannst Du auch das folgende Makro einsetzen:

Public Sub Kombination()
Dim Zeichen(1 To 26)
Dim Kombi(1 To 20000, 0)
Dim I1 As Byte
Dim I2 As Byte
Dim I3 As Byte
Dim intWert As Integer

intWert = 1
For I1 = 1 To 26
Zeichen(I1) = Chr(96 + I1)
Cells(1, I1) = Zeichen(I1)
Next I1
For I1 = 1 To 26
For I2 = 1 To 26
For I3 = 1 To 26
Kombi(intWert, 0) = Zeichen(I1) & Zeichen(I2) & Zeichen(I3)
intWert = intWert + 1
Next I3
Next I2
Next I1

Range(Cells(5, 1), Cells(20005, 1)) = Kombi

End Sub

Bei Bedarf kann ich auch eine Demo-Mappe bereitstellen.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win 2000Pro SP-4 / xl2000 SP-3]

Lela Sommer

unread,

Sep 21, 2003, 4:42:16 PM9/21/03

to

..stark gekürzt

Hallo Thomas!

Echt genial, Danke! Deine Demomappe nehme ich gerne.
Für so etwas habe ich immer Bedarf ;-)

(habe aber meiner Mailadresse aber eine "1" angefügt,
weil ich sonst zugemüllt werde)

Ein Grüezi in die schöne Schweiz

Lela Sommer

Thomas Ramel

unread,

Sep 22, 2003, 1:01:28 AM9/22/03

to

Grüezi Lela

Lela Sommer schrieb:
>
> Echt genial, Danke!

Es freut mich, wenn's Dir gefällt :-)

Danke auch fürs Feefback

> Deine Demomappe nehme ich gerne.
> Für so etwas habe ich immer Bedarf ;-)
>
> (habe aber meiner Mailadresse aber eine "1" angefügt,
> weil ich sonst zugemüllt werde)

Ich habe sie hier auf meinen Webspace hochgeladen, da vielleicht auch
andere Interesse daran haben (Grösse ca. 1,2 MB):

http://users.quick-line.ch/ramel/Demo-Daten/Kombinationen.xls