Bereich aus mehreren Tabs kopieren
20.07.2020 14:12:44
Falko
ich bin (als Laie) gnadenlos daran gescheitert, ein Makro zu schreiben, welches das Folgende können soll:
1) In den Worksheets FRA, BER und WES soll jeweils von der Zelle C3 beginnend ein Bereich kopiert werden, der unterschiedlich lang ist. Die Länge soll durch die Variable VERTIKAL definiert werden
2) Anschließend soll dieser Bereich copy + paste in das Worksheet ws kopiert werden. Dabei soll nach jeder Schleife die nächste freie Zeile gefunden werden - dafür dient die Variable Startpunkt - so dass alle einkopierten Bereich untereinander stehen
3) Die Schleife soll alle unter Worksheets definiert Tabellenblätter durchlaufen
Ich hab mich an dem Code versucht (finde es auch blöd, ganz ohne Vorschlag hier aufzukreuzen). Könnte ihr mir sagen, an welchen Stellen der Code Korrektur bedarf?
Vielen Dank!
Falko
Sub Portfolio()
Dim ws As Worksheet
Set ws = Worksheets("Berechnung")
Dim i As Worksheets
For i = Fra, Ber, Wes
' Variable definiert, wo das Ergebnis der Suche im Worksheet ws hinkopiert werden soll
Dim Startpunkt As Integer
Startpunkt = ws.Cells(Range("A17").Rows.Count, 1).End(xlUp).Row + 1
On Error Resume Next
' Variable definiert, wieviele Zeilen in den Worksheets FRA, BER und WES kopiert werden
Dim vertikal As Integer
i.Range("C3").Select
vertikal = Selection.CurrentRegion.Rows.Count
' Bereich aus den Worksheets FRA, BER und WES in das Worksheet ws kopieren
i.Range(Cells(32, 3), Cells(32 + vertikal, 35)).Select
Selection.Copy
ws.Cells(Startpunkt, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Next i
End Sub