ich habe ein Makro was mir aus einer externen Datei das Tabellenblatt kopiert.
Würde aber gerne das es in meiner Datei das ganze ab A2 einfügt.
Da ich die erste Zeile für Button und weitere Sachen brauche die erhalten bleiben sollen.
mfg Blue Bird
Sub Kopieren()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open ThisWorkbook.Path & "\aktuell.xls"
Set QWB = Workbooks("aktuell.xls")
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Tabelle1")
Set ZWS = ZWB.Worksheets("Tabelle1")
QWS.Cells.Copy ZWS.Cells(1, 1)
Workbooks("aktuell.xls").Close SaveChanges:=True
Application.EnableEvents = True
End Sub
QWS.Cells.Copy ZWS.Cells(1, 1)
eben so
QWS.Cells.Copy ZWS.Cells(2, 1)
Gruß WernerQWS.Cells.Copy ZWS.Cells(1, 1)
ZWS.Rows("1:1").Insert Shift:=xlDown
Gruß WernerDim loLetzte As Range
Set loLetzte = ZWS.Cells(Rows.Count, 1).End(xlUp)
Application.ScreenUpdating = False
loLetzte.EntireRow.Cut
Rows("1:1").Insert
Application.CutCopyMode = False
Application.ScreenUpdating = True
Gruß Werner