Verknüpfung von Werten aus zwei Tabellen
18.08.2015 11:18:22
Werten
Ich möchte die Werte zweier Tabellen verknüpfen. Das ist grundsätzlich ja nicht ganz so schwer, aber ich habe ein Tabellenblatt mit ca. 500 Zeilen und 50 Spalten habe. Hat jemand eine Idee, ob man den Codeausschnitt unten irgendwie vereinfachen bzw. automatisieren kann?
Die Grundlogik, dass jede vierte Zelle in Blatt 1 auf jeden dritten Zellenwert aus Blatt 2 geschrieben wird, zieht sich durch das gesamte Arbeitsblatt2 bzw. größere Teilbereiche durch.
Gibt es eine Möglichkeit den Code mit Laufvariablen zu verkürzen, sodass ich nicht alle Zellen einzeln verweisen muss?
Sub Zellenverweise()
Dim wktb1 As Worksheet
Dim wktb2 As Worksheet
Set wktb1 = ActiveWorkbook.Worksheets("Tabelle1")
Set wktb2 = ActiveWorkbook.Worksheets("Tabelle2")
wktb2.Cells(1, 3).Value = wktb1.Cells(1, 1).Value
wktb2.Cells(1, 6).Value = wktb1.Cells(1, 5).Value
wktb2.Cells(1, 9).Value = wktb1.Cells(1, 9).Value
wktb2.Cells(2, 3).Value = wktb1.Cells(1, 2).Value
wktb2.Cells(2, 6).Value = wktb1.Cells(1, 6).Value
wktb2.Cells(2, 9).Value = wktb1.Cells(1, 10).Value
wktb2.Cells(3, 3).Value = wktb1.Cells(1, 3).Value
wktb2.Cells(3, 6).Value = wktb1.Cells(1, 7).Value
wktb2.Cells(3, 9).Value = wktb1.Cells(1, 11).Value
End Sub
Vielen Dank.
Gruß Timo