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
Anzeige