Live-Forum - Die aktuellen Beiträge
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige