Bereich Zellenweise übertragen (Schleife)

Hallo alle zusammen,
Ich hab mich wieder einmal festgebissen mit VBA. Vieleicht seh ich den Wald auch vor lauter Bäumen nicht.
Ich möchte Teile von mehrern Zeilen aus einer bereis geöffneten Mappe (Mappe1) in eine andere Mappe (Mappe2) übernehmen.
Bsp für eine Zeile:


Sub Daten_holen ()
Dim x As Integer, y As Integer
For x = 10 to 100
y = x - 5
Workbooks("Mappe2.xls").Sheets("Tabelle1").Cells(20,y) = Worksbooks("Mappe1.xls"). _
Sheets("Tabelle1").Cells(25,x)
Next
End Sub

Der feste Bereich Cells(25,10) bis Cells(25,100) wird dann bei mir ab Cells(20,5) eingetragen
Jetzt möchte ich das auf 30 Zeilen ausdehnen, da kann ich doch nicht 30 Mal die Spalte ansprechen,
wobei noch dazu kommt, dass in "Mappe1" nur jede 2.Zeile(row) geholt werden, abber in "Mappe2"
fortlaufend eingefügt werden soll.
Es würde nicht funtionieren, die leeren Zeilen mit zu holen, und anschließend zu löschen, da unterhalb der geholten Zeilen Daten sind, die dann ihren Bezug verlieren.
So jetzt kennt ihr mein Problem und "seht hoffentlich die Bäume" ;-)
Ich wäre für jeden Tipp, dankbar
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Daten_holen () dim ZielZeile as long dim QuelleZeile as long zielZeile = 20 for QuelleZeile = 25 to (25 + 60) Step 2 Workbooks("Mappe2.xls").Sheets("Tabelle1").Cells(ZielZeile,5).resize(1,91) = Worksbooks(" _ Mappe1.xls").sheets("Tabelle1").Cells(QuelleZeile,10).resize(1,91) ZielZeile = Zielzeile + 1 next End Sub

Hi
wenn ich es richtig verstanden habe, dann willst du 30 Zeilen übertragen
und da wäre es doch blösinn, die Zielzeile bei 5 zu belassen und 30x zu überschreiben.
daher wird der Wert der Zielzeile bei jedem Schleifendurchlauf um 1 erhöht
.Reszie ist eine Möglichkeit einen alternative Möglichkeit einen Zellbereich anzugeben. Wenn ich beispielsweise den Zellbereich von A1:C10 angeben will, dann geht das per Makro so:


RANGE(Cells(1,1), Cells(10,3))
oder eben auch so:
Cells(1,1).resize(10,3)

wenn man mit Zeilen- oder Spalten-Nummern arbeitet, sollte man immer Long verwenden, da Integer nur bis c.a. 37000 definiert ist, aber wesentlich mehr Zeilnummern möglich sind, in einem solchen Fall müsste man LONG nehmen.
Außderdem ist es halt so, daß Excel intern bei Zeilen- und Spalten-Nummern immer LONG verwendet.
wird jetzt eine INTEGER-Variable als Zeilen-Nr verwendet, muss diese erst in LONG umgewandelt werden, dh. das verwenden von INTEGER für Varialblen, die als Zeilen- und Spalten-Nr verwendet werden ist nachteilig.
Gruß, daniel

Beliebteste Forumthreads (12 Monate)

Bereich Zellenweise übertragen (Schleife)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread