Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Möglichkeiten aus 3 Tabellen kombinieren

Forumthread: Alle Möglichkeiten aus 3 Tabellen kombinieren

Alle Möglichkeiten aus 3 Tabellen kombinieren
14.05.2018 08:23:21
Marc
Hallo zusammen,
ich habe 3 Tabellenblätter in denen ich aus Spalte A alle Werte miteinander kombinieren muss.
Also ein Beispiel:
Tabelle 1
1
2
3
4
Tabelle 2
a
b
c
Tabelle 3
A
B
C
Ergebnis
1aA
1aB
1aC
1bA
1bB
1bC
1cA
1cB
1cC
2aA
2aB
2aC
2bA
2bB
2bC
2cA
2cB
2cC
....
Gibt es da irgendeinen Trick?
Danke für Eure Hilfe
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Möglichkeiten aus 3 Tabellen kombinieren
14.05.2018 09:29:11
UweD
Hallo
per VBA
in ein Modul
Sub ABC()
    Dim Tb1, Tb2, Tb3, Tb4
    Dim LR1 As Integer, LR2 As Integer, LR3 As Integer
    Dim SP As Integer, i As Integer, j As Integer, k As Integer, z As Integer
    
    Set Tb1 = Sheets("Tabelle1")
    Set Tb2 = Sheets("Tabelle2")
    Set Tb3 = Sheets("Tabelle3")
    Set Tb4 = Sheets("Tabelle4")
    
    SP = 1 'Spalte A 
    
    Tb4.Cells.ClearContents 'reset 
    
    LR1 = Tb1.Cells(Tb1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    LR2 = Tb2.Cells(Tb2.Rows.Count, SP).End(xlUp).Row
    LR3 = Tb3.Cells(Tb3.Rows.Count, SP).End(xlUp).Row
    
    For i = 1 To LR1
        For j = 1 To LR2
            For k = 1 To LR3
                z = z + 1
                Tb4.Cells(z, SP) = Tb1.Cells(i, SP) & Tb2.Cells(j, SP) & Tb3.Cells(k, SP)
            Next k
        Next j
    Next i
End Sub

LG UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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