AW: Daten in Pivot übertragen
08.04.2022 10:43:14
Rudi
Hakko,
teste mal:
Sub SAP_Auszug()
Dim wb As Workbook
Dim Datei As Variant
Dim LastRow As Long
Dim wsZIEL As Worksheet
Dim wsQUELLE As Worksheet
Dim lngLastZ As Long, lngLastQ As Long
Application.ScreenUpdating = False
Set wsZIEL = ThisWorkbook.Worksheets("SAP-Daten")
lngLastZ = wsZIEL.Cells(Rows.Count, 5).End(xlUp).Row + 1
'ChDir "XXX"
Datei = Application.GetOpenFilename(filefilter:="Excel-Dateien (*.xls*),*.xls*")
If Datei = False Then Exit Sub
Set wb = Workbooks.Open(Datei, UpdateLinks:=0, ReadOnly:=False)
Set wsQUELLE = wb.Sheets("Sheet1")
lngLastQ = wsQUELLE.Cells(Rows.Count, 5).End(xlUp).Row
'Datum kopieren und einfügen
With wsQUELLE
.Range("E2:E" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 5).PasteSpecial xlPasteValues
'Materialkurztext kopieren und einfügen
With wsQUELLE
.Range("B2:C" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 2).PasteSpecial xlPasteValues
'Menge kopieren und einfügen
With wsQUELLE
.Range("C2:C" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 1).PasteSpecial xlPasteValues
'Betrag kopieren und einfügen
With wsQUELLE
.Range("F2:F" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 3).PasteSpecial xlPasteValues
'Belegtext kopieren und einfügen
With wsQUELLE
.Range("O2:O" & lngLastQ).Copy
End With
wsZIEL.Cells(lngLastZ, 4).PasteSpecial xlPasteValues
wb.Close False
End Sub
Gruß
Rudi