Herbers Excel-Forum - das Archiv

Bereich kopieren dynamisch

Bild

Betrifft: Bereich kopieren dynamisch
von: artur

Geschrieben am: 17.02.2005 19:43:27
hallo user,
ich wäre für die Lösung meines Problemes dankbar.
Aufgabenstellung.
Innerhalb einer Mappe soll von Blatt A ein immer gleicher Bereich ( B2:m13) auf Blatt B kopiert werden. auf dem Blatt B muss der kopierte Bereich immer an die letzte Zelle gesetzt werden. 1. Copy Blatt B B2:O2, 2. Copy Blatt B B14:O25, 3. Copy Blatt B B26:O37 usw.
Für eine Hilfe wäre ich dankbar
Gruß Artur
Bild

Betrifft: AW: Bereich kopieren dynamisch
von: Josef Ehrensberger

Geschrieben am: 17.02.2005 19:50:18
Hallo Artur!
Vorausgesetz das im kopierten Bereich zumindest in Spalte "B" immer alle
Zeilen gefüllt sind, so.
Sub kopieren()
Dim wksA As Worksheet, wksB As Worksheet
Dim lastRow As Long
Set wksA = Sheets("Tabelle1") 'Blatt A - Name anpassen
Set wksB = Sheets("Tabelle2") 'Blatt B - Name anpassen
lastRow = IIf(wksB.Range("B65536") <> "", 65536, _
wksB.Range("B65536").End(xlUp).Row) + 1
wksA.Range("B2:M13").Copy wksB.Cells(lastRow, 2)
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Bereich kopieren dynamisch
von: Artur
Geschrieben am: 17.02.2005 19:55:20
Hallo Sepp,
funktioniert einwandfrei, sollten noch Fragen auftauchen werden ich mich nochmals melden.
Gruß artur
 Bild
Excel-Beispiele zum Thema "Bereich kopieren dynamisch"
Leerzeichen aus einem Bereich löschen Befindet sich die aktive Zelle in einem bestimmten Bereich?
Mehrbereichsauswahl auf eine Seite drucken. Spalten einer Mehrbereichsauswahl ausblenden.
Bereich mit Maximalwert markieren Benannten Bereich erweitern
Bereich in RefEdit-Element eingeben und auslesen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Letzter Wert aus einem Bereich Bereiche bei Mehrfachauswahl prüfen