Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Kombinationen aus drei Stellen des Alphabets

Forumthread: Alle Kombinationen aus drei Stellen des Alphabets

Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 17:28:47
JuriR
Hi,
ich hoffe ihr könnt mir helfen.
Wie erstelle ich in Excel alle Kombinationsmöglichkeiten einer drei stelligen Buchstaben (nur Großbuchstaben A-Z) reihe?
vielen Dank

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 17:43:52
Spenski
hi Juri.. probier das mal
Sub Schaltfläche1_Klicken() Dim i As Long, j As Long Dim r As Long, x As Long Dim arrBegriffe() As String r = 3 x = 26 ReDim arrBegriffe(x) arrBegriffe(1) = "A" arrBegriffe(2) = "B" arrBegriffe(3) = "C" arrBegriffe(4) = "D" arrBegriffe(5) = "E" arrBegriffe(6) = "F" arrBegriffe(7) = "G" arrBegriffe(8) = "H" arrBegriffe(9) = "I" arrBegriffe(10) = "J" arrBegriffe(11) = "K" arrBegriffe(12) = "L" arrBegriffe(13) = "M" arrBegriffe(14) = "N" arrBegriffe(15) = "O" arrBegriffe(16) = "P" arrBegriffe(17) = "Q" arrBegriffe(18) = "R" arrBegriffe(19) = "S" arrBegriffe(20) = "T" arrBegriffe(21) = "U" arrBegriffe(22) = "V" arrBegriffe(23) = "W" arrBegriffe(24) = "X" arrBegriffe(25) = "Y" arrBegriffe(26) = "Z" If x ^ r > 2 ^ 16 Then Exit Sub For j = r To 1 Step -1 For i = 1 To x ^ r Step x ^ (r - j) Sheets("Tabelle1").Cells(i, j).Resize(x ^ (r - j)).Value = arrBegriffe(((i - 1) / x _ ^ (r - j)) Mod x + 1) Next Next End Sub mfg
christian

Anzeige
AW: Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 18:00:29
JuriR
Vielen Dank! Nur habe ich vorher noch nie mit VBA gearbeitet. Könntest du mir sagen, wie man das anwendet?

AW: Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 18:11:43
Spenski
hi juri
hab dir das ergebnis mal als .xls datei hochgeladen
https://www.herber.de/bbs/user/90101.xlsx
du musst vba erstmal in excel aktivieren. aber da kannst besser googlen wie das geht, ich kann sehr schlecht erklären :D
hoffe das reciht dir so
falls noch was hast oder das nicht das gewünschte ergebnis ist einfach melden
mfg
christian

Anzeige
AW: Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 18:21:29
JuriR
Danke!

AW: Alle Kombinationen aus drei Stellen des Alphabets
10.04.2014 18:21:29
JuriR
Danke!

Kombinationen mit Formeln
11.04.2014 00:30:13
anderer
Hallo Juri,
mit Formeln ;-)
Formeln natürlich bis Zeile 17576 kopieren...
 ABC
1AAA
2AAB
3AAC
4AAD
5AAE

Formeln der Tabelle
ZelleFormel
A1=ZEICHEN(GANZZAHL((ZEILE()-1)/26^2)+65)
B1=ZEICHEN((GANZZAHL((ZEILE()-1)/26)+65)-GANZZAHL((ZEILE()-1)/26^2)*26)
C1=ZEICHEN(REST(ZEILE()-1;26)+65)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
MfG Christian
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alle Kombinationen aus drei Stellen des Alphabets


Schritt-für-Schritt-Anleitung

Um alle Kombinationen aus drei Buchstaben (A-Z) in Excel zu erstellen, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.
  3. Kopiere den folgenden Code in das Modul:

    Sub Schaltfläche1_Klicken()
       Dim i As Long, j As Long
       Dim r As Long, x As Long
       Dim arrBegriffe() As String
       r = 3
       x = 26
       ReDim arrBegriffe(x)
       For i = 1 To x
           arrBegriffe(i) = Chr(64 + i) ' Buchstaben A-Z
       Next i
       For j = r To 1 Step -1
           For i = 1 To x ^ r Step x ^ (r - j)
               Sheets("Tabelle1").Cells(i, j).Resize(x ^ (r - j)).Value = arrBegriffe(((i - 1) / x ^ (r - j)) Mod x + 1)
           Next
       Next
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle Schaltfläche1_Klicken und klicke auf Ausführen.

Jetzt werden alle Kombinationen aus drei Buchstaben in der Tabelle1 aufgelistet.


Häufige Fehler und Lösungen

  • Fehler: Das Makro läuft nicht.

    • Lösung: Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.
  • Fehler: Ich sehe keine Ergebnisse.

    • Lösung: Überprüfe, ob Du die richtige Tabelle ausgewählt hast. Der Code schreibt in "Tabelle1".

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch mit Formeln arbeiten. Hier ist ein Beispiel:

  1. Erstelle die Buchstaben A-Z in den Zellen A1 bis A26.

  2. Trage in Zelle B1 folgende Formel ein und ziehe sie nach unten:

    =ZEICHEN(GANZZAHL((ZEILE()-1)/26^2)+65) & ZEICHEN(GANZZAHL((ZEILE()-1)/26)+65-((GANZZAHL((ZEILE()-1)/26^2))*26)) & ZEICHEN(REST(ZEILE()-1;26)+65)
  3. Kopiere diese Formel bis zur Zeile 17576, um alle 3 Buchstaben Kombinationen zu erhalten.


Praktische Beispiele

Hier sind einige beispielhafte Kombinationen, die Du mit den oben genannten Methoden erstellen kannst:

  • AAA
  • AAB
  • AAC
  • ...
  • ZZY
  • ZZZ

Diese Beispiele zeigen, wie Du alle 3 Buchstaben Kombinationen in Excel erstellen kannst.


Tipps für Profis

  • Wenn Du größere Kombinationen benötigst (z.B. alle Kombinationen aus 4 oder 5 Buchstaben), kannst Du die Variable r im VBA-Code entsprechend ändern.
  • Experimentiere mit zusätzlichen Buchstaben oder Zeichen, um mehr Vielfalt in Deine Excel-Kombinationen zu bringen.

FAQ: Häufige Fragen

1. Wie viele Kombinationen gibt es insgesamt für drei Buchstaben? Es gibt insgesamt 26^3 = 17.576 Kombinationen.

2. Kann ich die Methode auch für Zahlen verwenden? Ja, Du kannst die Buchstaben durch Zahlen ersetzen, um alle Kombinationen aus 3 Zahlen zu erstellen. Ändere einfach die Zeichen im Code oder der Formel.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige