Daten von Tabelle1 auf Tabelle2 übernehmen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim i As Integer, j As Integer, k As Integer, l As Integer j = 0 l = 3 For i = 1 To 53 For k = 1 To 6 Worksheets("Tabelle2").Range("A" & k + l).Value = _ Worksheets("Tabelle1").Cells(j + 7, (5 * k) - 1).Value Next k = 7 Worksheets("Tabelle2").Range("A" & k + l).Value = _ Worksheets("Tabelle1").Cells(j + 7, 33).Value j = j + 35 l = l + 7 Next End Sub

Hallo Ute,
in der gebotenen Kürze (zu Schleifen etc. findest du einiges in den Basics auf dieser Web-Site); im Grunde genommen ergibt sich alles mit ein wenig Logik aus deiner Aufgabenstellung:
Dim i As Integer, j As Integer, k As Integer, l As Integer => wir brauchen 4 Zähler
i ist der Zähler für die Schleife, nach der Aufgabenstellung muss 53-mal das gleiche gemacht werden, ergo: For i = 1 To 53
j ist der Zähler für die Zeilen in Tabelle2, nach der Aufgabenstellung ist die 1. Zeile die 7 und dann kommen immer 35 dazu => also vor die Schleife J=0 setzen, in der Schleife (=zwischen for und next) die Zeile in Tabelle 2 mit 7 anfangen lassen =Cells(j + 7,= und am Ende der Schleife 35 drauflegen (Zuweisung: j = j + 35)
k ist der Zähler für die Spalten in Tabelle2. Nach der Aufgabenstellung waren die Spalten D, I, N, S, X, AC und AG zu erfassen. In der Cells-Schreibweise(=> Basics) sind das die Spalten 4, 9, 14, 19, 24, 29 und 33, die Werte befinden sich also immer in diesen 7 Spalten. Die ersten 6 Spalten kann man mit =(5 * k) - 1= definieren, die 7. weicht von diesem Muster ab; ich habe daher den k-Zähler mit 7 und den Spaltenwert mit 33 definiert.
l ist der Zeilenzähler für Tabelle1; nach der Aufgabenstellung wolltest du die Werte untereinander beginnend mit A4 haben. Also l vor der Schleife mit 3 starten lassen, innerhalb der Schleife mit k aufaddieren und am Ende der Schleife mit der Zuweisung l=l+7 (es sind ja 7 k-Werte dazu gekommen) neu starten lassen.
Da keiner der Zähler den Wert 32767 erreichen wird, reicht eine Dimensionierung als Integer.
Das eigentliche Kopieren ist trivial: im Kern steht dort nur .value = .value. Dadurch kannst du z.B. performanceschädliches Selektieren vermeiden. Für eine Anfängerin verwirrend ist möglicherweise die Verwendung von Range- und Cells-Schreibweisen; es sind aber wirklich nur unterschiedliche Schreibweisen. Den "Mittelteil" hätte man z.B. auch so schreiben können:
Worksheets("Tabelle2").Cells(k + l, 1).Value = _
Worksheets("Tabelle1").Cells(j + 7, (5 * k) - 1).Value
So, mehr erkläre ich am Freitagabend nicht :-)
Gruß
Roland

Sub kopieren2() Dim i As Integer, j As Integer, k As Integer, l As Integer j = 0 l = 3 For i = 1 To 53 For k = 1 To 6 Worksheets("Tabelle2").Range("B" & k + l).Value = _ Worksheets("Tabelle1").Cells(j + 9, (5 * k) - 1).Value Next k = 7 Worksheets("Tabelle2").Range("B" & k + l).Value = _ Worksheets("Tabelle1").Cells(j + 9, 35).Value j = j + 35 l = l + 7 Next End Sub

Sub kopierschleife() Dim i, j, k, l, zähler As Integer Sheets("Tabelle1").Range("A1").Select i = 6 j = 35 k = 3 l = 3 For zähler = 1 To 53 Sheets("Tabelle1").Select ActiveCell.Offset(i, l).Range("A1,F1,K1,P1,U1").Select Selection.Copy i = j l = 0 Sheets("Tabelle2").Select ActiveCell.Offset(k, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True _ , Transpose:=True k = 5 Next zähler End Sub

Beliebteste Forumthreads (12 Monate)

Daten von Tabelle1 auf Tabelle2 übernehmen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread