Consolidating two sheets - vba

Question

I do have two different sheets (Tabelle2 & Tabelle3) and I want to consolidate them in a third one (Tabelle1) on basis of the Register No.
To copy Tabelle2 into the correct columns in Tabelle1 I'm using VLookup which is working smooth.
Dim lastrow As Long
lastrow = Tabelle2.Range("A" & Rows.Count).End(xlUp).Row
Set myrange = Tabelle2.UsedRange
For i = 2 To lastrow
Tabelle1.Cells(i, 1) = Application.WorksheetFunction.VLookup(Tabelle2.Cells(i, 1), myrange, 1, False)
Next i
For i = 2 To lastrow
Tabelle1.Cells(i, 2) = Application.WorksheetFunction.VLookup(Tabelle2.Cells(i, 1), myrange, 2, False)
Next i
For i = 2 To lastrow
Tabelle1.Cells(i, 6) = Application.WorksheetFunction.VLookup(Tabelle2.Cells(i, 1), myrange, 3, False)
Next i
In a 2. Step I want my code to check the "Register No." in Tabelle1 and copy only those rows from Tabelle3 to Tabelle1. Note: Tabelle3 is containing many more "Register No." which data I don't need
Does anyone know which function to use or how to solve this challange? :)

Answer 1

Try this
Dim lastrow As Long
lastrow = Tabelle3.Range("A" & Rows.Count).End(xlUp).Row
Set myrange = Tabelle3.UsedRange
For i = 2 To lastrow
Tabelle1.Cells(i, 3) = Application.WorksheetFunction.VLookup(Tabelle1.Cells(i, 1), myrange, 2, False)
Next i
For i = 2 To lastrow
Tabelle1.Cells(i, 4) = Application.WorksheetFunction.VLookup(Tabelle1.Cells(i, 1), myrange, 3, False)
Next i
For i = 2 To lastrow
Tabelle1.Cells(i, 5) = Application.WorksheetFunction.VLookup(Tabelle1.Cells(i, 1), myrange, 4, False)
Next i

Answer 2

Let's make it really simple - put the three tables on the same worksheet like this:
The idea would be to get something like this, after running the code below:
Probably the simplest way to achieve it with some bad practices as hard-coding is like this:
Public Sub TestMe()
Dim cnt As Long
Dim combinedIndex As Range
Dim currentCell As Range
With Worksheets(1)
Set combinedIndex = .Range("A7:A12")
'Fill table with names
For cnt = 2 To 5
Set currentCell = Nothing
Set currentCell = combinedIndex.Find(Cells(cnt, 1))
If Not currentCell Is Nothing Then
currentCell.Offset(0, 1) = .Cells(cnt, 2)
End If
Next cnt
'Fill table with Shoe Sizes
For cnt = 2 To 5
Set currentCell = Nothing
Set currentCell = combinedIndex.Find(Cells(cnt, 4))
If Not currentCell Is Nothing Then
currentCell.Offset(0, 2) = .Cells(cnt, 5)
End If
Next cnt
End With
End Sub
This is what the code does:
Defines the combinedIndex range. In a more general case it can be Worksheets(1).Range("A:A")
then loops through the table with the names. It is hardcoded from 2 to 5, but it can be loosened up a bit. Once a RegisterN is found, the second value is written to the offset of the found value
the same is for the Shoe Sizes table