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.

Bezug von Tabelle 1 in Tabelle 2
#1
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
Antworten Top
#2
Hi

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

Gruß Elex
Antworten Top
#3
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
Antworten Top
#4
Perfekt. Vielen vielen Dank.
Antworten Top


Gehe zu:


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