Private Sub btnAbschluss_Click()
Dim Palettenkonto As String
Dim Palkt As Workbook
Dim lngLastG As Long
Dim lngLastI As Long
Dim ThisPalKt As Worksheet
Dim Auswertung As String
lngLastG = Cells(Rows.Count, 7).End(xlUp).Row
lngLastI = Cells(Rows.Count, 9).End(xlUp).Row
Set ThisPalKt = ThisWorkbook.Worksheets("Palettenkonto")
Palettenkonto = "C:\Users\elmo8\OneDrive\Documents\Projekte\GEL\DISPO\Dispo 664\DATA\Palettenkonto.xlsx"
Set Palkt = Workbooks.Open(Palettenkonto)
Palkt.Sheets.Add(After:=Palkt.Sheets(Palkt.Sheets.Count)).Name = ThisPalKt.Range("S2").Value
ThisWorkbook.Worksheets("Palettenkonto").Range("A1:G" & lngLastG).Copy Destination:=Palkt.Range("A1")
ThisPalKt.Range("A3:G" & lngLastG).ClearContents
End Sub