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

Beiträge aus den Excel-Beispielen zum Thema "Bereich kopieren dynamisch"