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