Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte aus 2 Tabellen in eine 3 Tabelle einfügen
#1
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
Antwortento top
#2
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste