VBA Variablen Bereich kopieren

Grüße euch,
ich habe mal wieder ein Problem, und zwar möchte ich einen variablen Bereich einer Spalte kopieren & in eine andere vordefinierte Spalte einfügen. Mir ist wichtig, dass nur der Bereich kopiert wird, in dem Daten stehen.
Mein Gedanke war, einfach mit der .End(xldown) Funktion zu arbeiten, in meinem vorliegenden Fall jedoch, wird nur die letzte Zelle der Spalte kopiert & eingefügt.
Hier der Code:

Sub copy()
Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda&Solutions").Range("B5").End( _
xlDown)).copy
Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda").Range("A10").PasteSpecial  _
xlPasteValues
End Sub

Hatte dann den Gedanken, das ganze über Cells zu lösen und so einen ´"Bereich" zu definieren in dem die .End(xldown) Funktion arbeitet, das klappt aber leider auch nicht.

Sub copy()
Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda&Solutions").Range(Cells(5, 2),   _
_
Cells(78, 2).End(xlDown)).copy
Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda").Range("A10").PasteSpecial  _
xlPasteValues
End Sub

Kann mir hier jemand bitte eine Hilfestellung geben?
LG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub copyRange() Dim LastRow As Long With Workbooks("Design_JF_Agenda_Vorlage01.xlsm") With .Worksheets("Agenda&Solutions") LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row End With .Worksheets("Agenda&Solutions").Range("B2:B" & LastRow).copy _ Destination:=.Worksheets("Agenda").Range("A10") End With End Sub

Sub CCopy() Dim LR As Long, Z1 As Integer, SP As Integer Dim Tb1, TB2 Set Tb1 = Sheets("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda&Solutions") Set TB2 = Sheets("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda") Z1 = 5 SP = 1 'Spalte A LR = Tb1.Cells(Tb1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte '*________________________________* Tb1.Cells(5, 1).Resize(LR - Z1 + 1, 1).copy TB2.Cells(10, 1).Resize(LR - Z1 + 1, 1).PasteSpecial xlPasteValues 'Oder TB2.Cells(10, 1).Resize(LR - Z1 + 1, 1).Value = Tb1.Cells(5, 1).Resize(LR - Z1 + 1, 1). _ Value End Sub

Sub kopieren() With Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda&Solutions") .Range("B5:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).copy Workbooks("Design_JF_Agenda_Vorlage01.xlsm").Worksheets("Agenda") _ .Range("A10").PasteSpecial Paste:=xlPasteValues End With Application.CutCopyMode = False End Sub

Sub Unit() Dim LZ As Long With Workbooks("Design_JF_Agenda_Vorlage01.xlsm"). _ Worksheets("Agenda&Solutions") If IsEmpty(.Range("B5")) Or IsEmpty(.Range("B6")) Then LZ = 5 Else LZ = .Range("B5").End(xlDown).Row End If .Range("B5:B" & LZ).copy End With Workbooks("Design_JF_Agenda_Vorlage01.xlsm"). _ Worksheets("Agenda").Range("A10").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Variablen Bereich kopieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread