Tabellenblatt soll Before Kopieren

Sub CodeAufAlleBlaetter()

    Dim wbQuelle As Workbook

    Dim wbZiel As Workbook

    Dim pfadZiel As String

    Dim objShape As Shape, objKomp As Object

Range("B1").Select

MsgBox "Button werden auch gelöscht " & ActiveSheet.Name & "  geklickt!", vbInformation

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

For Each objShape In ActiveSheet.Shapes

objShape.Delete

Next objShape

    ' Pfad zur geschlossenen Zieldatei

    pfadZiel = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xlsm*),*.xlsm*,(*.xls*),*.xls*")

    ' Quelle (aktuell geöffnete Mappe) und Ziel setzen

If pfadZiel = "Falsch" Then Exit Sub

'On Error Resume Next

Set wbQuelle = ThisWorkbook

    Set wbZiel = Workbooks.Open(pfadZiel)



    ' Blatt "Tabelle1" aus der Quelle ans Ende der Zieldatei kopieren

'-----------------------------------------------------------------------

Hier muss die Zeile geändert werden auf  Before ???

    wbQuelle.ActiveSheet.Copy After:=wbZiel.Sheets(wbZiel.Sheets.Count)

'-----------------------------------------------------------------------    

    Set wbZiel = Workbooks.Open(pfadZiel)

' neu---Shapes-und-Codes-werden-gelöscht------------------

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

If shp.Name Like "Btn_lösch*" Then

shp.Delete

ElseIf shp.Name Like "Btn_kopier*" Then

shp.Delete

End If

Next



With ActiveWorkbook.VBProject

For Each objKomp In .VBComponents

Select Case objKomp.Type

Case 1, 2, 3            ' Module, Klasssenmodule, Userforms

.VBComponents.Remove .VBComponents(objKomp.Name)

Case 100                ' Klasssenmodule von Workbook, Sheets

With objKomp.CodeModule

.DeleteLines 1, .CountOfLines

End With

End Select

Next

End With

        

End Sub