Bezug von Tabelle 1 in Tabelle 2

[cleverpb]

Ich benötige Hilfe bei folgendem Problem:

Ich habe in „Tabelle1“ in der Spalte A Codes bis zu Zeile 20000, welche von
813000000008 bis 813001999998 gehen.

Wichtig zu wissen ist die Aufteilung:
Die 813 bleibt immer, die nächsten 8 Stellen sind fortlaufen von 1 – 19.999, und die letzte Zahl ist immer verschieden und zufällig.
 
Nun zur Aufgabenstellung:
Ich benötige diese Codes in der Tabelle2 in einer gewissen Aufteilung:
A1 soll sein =Tabelle1!A1
B1 soll sein = Tabelle1!A2
und so weiter bis
AR1 soll sein = Tabelle1!A44
 
Dann in Zeile 2 der „Tabelle 2“ alles wieder von vorne:
A2 soll sein = Tabelle1!A45
B2 soll sein = Tabelle1!A46
und so weiter bis
AR2 soll sein = Tabelle1!A88
 
Und in dem Schema soll die ganze Tabelle1 in Tabelle2 umgewandelt werden.
 
Ich komme da leider überhaupt nicht weiter, wie ich dies möglichst einfach umsetzten könnte.

Ich hoffe jemand kann mir da helfen.. Viele Grüße

[Elex]

Hi

in Tab2A1 die Formel
=INDEX(Tabelle1!$A:$A;SPALTE(A1)+(ZEILE(A1)-1)*44;)

Gruß Elex

[t_tom]

Public Sub Bezug()

Ze = 1

letztezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

For i = 1 To letztezeile

    xx = xx + 1

        If xx < 45 Then

            SP = SP + 1
            SSP = SSP + 1

            Worksheets("Tabelle2").Cells(Ze, SP).FormulaLocal = "=Tabelle1!A" & SSP & ""

        Else

            Ze = Ze + 1
            xx = 0
            SP = 0


        End If

Next i

End Sub

[cleverpb]

Perfekt. Vielen vielen Dank.