Einfügen mit Offset
26.01.2021 14:53:49
Le
ich versuche aus einer geschlossenen Excel alle Werte zu kopieren. Das klappt auch soweit, _
jedoch möchte ich in der Ziel Tabelle ein Offset von 5 Zeilen. Kann mir jemand helfen?
Private Sub CommandButton1_Click()
Dim anzahlzeilen As Integer, anzahlspalten As Integer
Dim Ziel As Worksheet, Quelle As Worksheet
Set Ziel = ActiveWorkbook.ActiveSheet
Set Quelle = Workbooks.Open(Filename:="TEST.xlsx").Worksheets(1) 'Quelldatei: Anpassen wenn _
Ablageort geändert wird
If Quelle Is Nothing Then _
MsgBox ("Fehlerhafter Quellpfad, bitte abändern")
anzahlzeilen = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
anzahlspalten = Quelle.UsedRange.Columns.Count
'MsgBox anzahlzeilen
'MsgBox anzahlspalten
Quelle.Cells.Copy Destination:=Ziel.Cells
'Quelle.Cells.Copy Destination:=Ziel.Cells.Offset(4, 0)
'Quelle.Parent.Close
End Sub