Office: (Office 2010) Probleme mit Prozeduren

Helfe beim Thema Probleme mit Prozeduren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich hab ein kleines Problem mit Prozeduren. Der Code führt die eingeschobene Prozedur nicht in der neu erstellten Mappe aus, sondern in... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Annomaster, 15. November 2017.

  1. 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
     
    Annomaster, 15. November 2017
    #1
  2. Storax User
    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 ...
     
    Zuletzt bearbeitet: 16. November 2017
  3. Hab den Fehler Selbst gefunden. Hab in der Sub-Prozedur nicht die zu verwendenen Variabelen mit angegeben.
    Jetzt geht alles wie es soll.
     
    Annomaster, 16. November 2017
    #3
  4. Storax User

    Probleme mit Prozeduren

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

Probleme mit Prozeduren

Die Seite wird geladen...
  1. Probleme mit Prozeduren - Similar Threads - Probleme Prozeduren

  2. Probleme mit Summewenn bei neuer EXCEL Version

    in Microsoft Excel Hilfe
    Probleme mit Summewenn bei neuer EXCEL Version: Hallo zusammen, ich bin ratlos. In meinem alten EXCEL sheet hat die Funktion =SUMME(WENN(JAHR($E$7:$E$54)=2019;$G$7:$G$54)) super funktioniert. Mit der aktuellen EXCEL Version jetzt aber nicht...
  3. Office 365 / Word 365 / Win 10 / Probleme

    in Microsoft Word Hilfe
    Office 365 / Word 365 / Win 10 / Probleme: Also wenn ich mein 1.200 Seiten Dokument öffne, im Gegensatz zu Win 7 / Office 2010 / Word, geht das Öffnen langsamer Es dauert in der Frühe bis zu 10 Sekunden dass es öffnet und am Nachmittag an...
  4. Probleme mit Anführungszeichen

    in Microsoft Word Hilfe
    Probleme mit Anführungszeichen: Hallo Leute, ich habe unter Word unter Windows 10 folgendes Problem: Ich habe mehrere Dokumente in der Einstellung mit geraden Anführungszeichen geschrieben. Nun möchte ich sie nachträglich in...
  5. Probleme mit Autoupdate

    in Microsoft Word Hilfe
    Probleme mit Autoupdate: Liebe alle, nach Umstieg von Office 2011 für Mac auf Office 2016 für Mac kam täglich der Autoupdater, auch nachdem ich alle Programme auf den neuesten Stand gebracht habe. Nervig. Deshalb habe ich...
  6. Probleme mit WENN(ODER - Verknüpfung

    in Microsoft Excel Hilfe
    Probleme mit WENN(ODER - Verknüpfung: Hallo, in den Spalten A und B sollen Ziffern stehen, wobei entweder A oder B ausgefüllt ist. In C soll in Anhängigkeit des Wertes in A oder B eine Auswertung gefahren werden: Wenn A < 5...
  7. Office 2021 ProPlus. Literaturverzeichnis nach IEEE 2006 macht Probleme

    in Microsoft Word Hilfe
    Office 2021 ProPlus. Literaturverzeichnis nach IEEE 2006 macht Probleme: Gott, mich ärgert das wieder alles. Office 2021 ProPlus installiert. Ein Literaturverzeichnis nach IEEE 2006 erstellt. Zwei Quellen hinzugefügt. Mein Problem ist: Umbruch der [1] und [2]...
  8. Probleme mit Makros und Grafiken nach Umstieg von Word 2011 auf Office 365 (Mac)

    in Microsoft Word Hilfe
    Probleme mit Makros und Grafiken nach Umstieg von Word 2011 auf Office 365 (Mac): Liebes Forum, ich bin kann selbst kaum VBA, hab aber mal einige Makros aufgenommen und dann abgeändert, bin also alles andere als ein Profi. 2015 hat jemand im FOrum (office-loesung.de), dessen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden