Werte aus 2 Tabellen in eine 3 Tabelle einfügen

[volkerko]

Hallo,

ich habe ein einer Tabelle Artikelnummern stehen.
In der 2 Tabelle gibt es Werte die zu jeder Artikelnummer hinzugefügt werden soll und in eine neue Spalte eingetragen werden.

Hier ein Beispiel:

Tabelle1

1234
4567
8764
4657

Tabelle 2


001
002
003
004


Tabelle 3 ( das soll rauskommen)

1234-001
1234-002
1234-003
1234-004
4567-001
4567-002
4567-003
4567-004
.......

Kann mir jemand bei dem Problem helfen wir ich das gelöst bekomme?

Vielen Dank.

Volker

[UweD]

Hallo

in ein Modul

Code:

Sub jshjds()
    Dim TB1, TB2, TB3, LR1 As Long, LR2 As Long, ZN As Long
    Dim SP As Integer, i As Long, j As Long
   
    Set TB1 = Sheets("Tabelle1")
    Set TB2 = Sheets("Tabelle2")
    Set TB3 = Sheets("Tabelle3")
   
    SP = 1 'Daten in Spalte A
   
    LR1 = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    LR2 = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
   
    For i = 1 To LR2
        For j = 1 To LR1
            TB3.Cells(ZN + 1, SP) = TB1.Cells(i, SP) & "-" & Format(TB2.Cells(j, SP), "000")
            ZN = ZN + 1
        Next
    Next i
   
End Sub

LG UweD