Office: (Office 2010) Probleme mit Prozeduren

Hallo,

ich hab ein kleines Problem mit Prozeduren.

Der Code führt die eingeschobene Prozedur nicht in der neu erstellten Mappe aus, sondern in der alten Ursprünglichen Mappe.
Ich hoffe ihr könnt mir helfen

Gruß Florian

Code:

Sub Textfeld1_Klicken()
    Dim WSHShell As Object
    Dim Pfad As String
    Dim Mappe As Workbook
    Dim Blatt As Worksheet
    
    Set WSHShell = CreateObject("wscript.Shell")
    Pfad = WSHShell.SpecialFolders.Item("Desktop")
          
        Application.ScreenUpdating = False
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:=Pfad & "\Mappe1.xlsx"
        ActiveWorkbook.Close
        Application.ScreenUpdating = True
               
    Call Untersub
            
        Set Blatt = Sheets("Deckblatt")
        Application.ScreenUpdating = False
        On Error Resume Next
        Set Mappe = Workbooks.Open _
        (Pfad & "\Mappe1.xlsx")
            Blatt.Copy before:=Mappe.Sheets(1)
            Mappe.Save
        Application.ScreenUpdating = True
        
MsgBox ("Gespeicher auf Desktop. Bitte Umbenennen")
End Sub

----------------------------------------------------------------        
        
Sub Untersub()

If Sheets("Deckblatt").Range("B4") <> "" Then
            Set Blatt = Sheets("Detail1")
            Application.ScreenUpdating = False
            On Error Resume Next
            Set Mappe = Workbooks.Open _
            (Pfad & "\Mappe1.xlsx")
                Blatt.Copy after:=Sheets(Sheets.Count)
                Mappe.Save
                Mappe.Close
            Application.ScreenUpdating = True
             Set Blatt = Sheets("Detail2")
            Application.ScreenUpdating = False
            On Error Resume Next
            Set Mappe = Workbooks.Open _
            (Pfad & "\Mappe1.xlsx")
                Blatt.Copy after:=Sheets(Sheets.Count)
                Mappe.Save
                Mappe.Close
            Application.ScreenUpdating = True
        End If

End Sub

 

https://ericlippert.com/2014/03/05/how-to-debug-small-programs/
https://www.techonthenet.com/excel/macros/vba_debug2013.php
http://www.excel-easy.com/vba/examples/debugging.html

Option Explicit ist nicht vorhanden und On Error Resume Next völlig falsch eingesetzt.

Obwohl, am besten, Du startest hier https://excelmacromastery.com/vba-tutorial-1/

Oder es findet sich jemand, der das für Dich fixt, aber das ist die Methode "Jemand anders schreibt den Code für Dich , Und Du wirst es nie verstehen". Wenn Du das willst, bin ich nicht der richtige ...

 

Hab den Fehler Selbst gefunden. Hab in der Sub-Prozedur nicht die zu verwendenen Variabelen mit angegeben.
Jetzt geht alles wie es soll.

 

Und das hätte Dir Option Explicit sofort "erzählt"