Office: (Office 365) Makro Schaltflaechen vervielfaeltigen sich....

Helfe beim Thema Makro Schaltflaechen vervielfaeltigen sich.... in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, ich habe eine Exceldatei, die seit ein paar Wochen sehr langsam zu öffnen und zu bearbeiten ist. Zuvor war sie ca. 8MB gross, was... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mbrokof, 14. Januar 2025.

  1. mbrokof hat Ahnung

    Makro Schaltflaechen vervielfaeltigen sich....


    Hallo Zusammen,

    ich habe eine Exceldatei, die seit ein paar Wochen sehr langsam zu öffnen und zu bearbeiten ist. Zuvor war sie ca. 8MB gross, was sich verdoppelt hat. Ich habe alle Zellen die leer aussahen gelöscht, kein Resultat, bzw. vielleicht 300kb weniger.

    In der Datei sind mehrere Makros älteren Datums (schon Excel 365) und eines dass ich mit Hilfe von hier eingefügt habe und das auch funktioniert. Bei den alten Makros vervielfältigen sich teilweise ständig die Schaltflächen, bei dem von mir eingefügten nicht. Ich habe die Vermutung, dass die Schaltflächen die Datei beeinflussen, aber konnte in Google nichts finden. Kann es sein, bzw. was oder wo könnte ich schauen, wieso die Schaltflächen immer mehr werden? Ich hatte sie zwischenzeitlich alle gelöscht, aber wenn eine Kollegin die Datei befüllt sind sie wieder da und es dauert ewig, die alle einzeln zu löschen. Die Kollegin benutzt ein paar der Makros, bei denen sich die Schaltflächen auch nicht vervielfältigen. Es scheint nur bei den unbenutzten.
    Beste Grüsse
    Matthias
     
    mbrokof, 14. Januar 2025
    #1
  2. BoskoBiati Erfahrener User
    Hi,

    wie lange tummelst Du Dich inzwischen in Foren rum?
    Wohl lange genug um zu wissen, dass ohne Kenntnis der Datei mit Makros nichts nachvollziehbar ist!
     
    BoskoBiati, 14. Januar 2025
    #2
  3. mbrokof hat Ahnung
    Wenn ich wuesste wie anonymisieren, haette ich es gemacht, aber ich weiss nicht, wo irgendwo in der Riesendatei was stehen koennte, was ich nicht einsehen kann und was Daten preisgeben koennte.
     
    mbrokof, 14. Januar 2025
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Makro Schaltflaechen vervielfaeltigen sich....

    Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
    http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
    Die Frage ist nur wer möchte ein 8MB Datei runterladen.Das Forum lässt dies nicht zu.

    Makro Schaltflaechen vervielfaeltigen sich.... GrußformelMakro Schaltflaechen vervielfaeltigen sich.... Homepage
     
    Hajo_Zi, 14. Januar 2025
    #4
  5. d'r Bastler
    d'r Bastler Erfahrener User
    Moin mbrokof,

    8 MB ist vielleicht tatsächlich ein bisschen viel Lektüre, aber Du kannst ja mal versuchen nur den VBA-Code hier hochzuladen. Also im VBE ein Modul/Userform/Arbeitsblatt auswählen, dann per Rechtsklick exportieren.

    Damit wäre auch das Thema Anonymisierung erledigt. Fang mal mit dem Code an, in dem sich die Schaltflächen so karnickel-artig vermehren. Vielleicht ist da schon etwas zu erkennen.

    Schöne Grüße
     
    d'r Bastler, 14. Januar 2025
    #5
  6. mbrokof hat Ahnung
    Hallo @Hajo_Zi @d'r Bastler, vielen Dank fuer die Tipps. Ich arbeite dran.
     
    mbrokof, 16. Januar 2025
    #6
  7. mbrokof hat Ahnung
    Hallo @Hajo_Zi @d'r Bastler, anbei die Datei. Hatte die Makros exportiert, aber konnte sie nicht hochladen, deswegen die Datei.

    Code:
    Sub Import_Data()
    '
    ' Import_Data Macro
    '
    
    '
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
            "ODBC;DSN=ClientAccess_Franz;", Destination:=Range("$A$5")).QueryTable
            .CommandText = Array( _
            "SELECT EZ_XXX_XX.EGJRNO, EZ_XXX_XX.EGVONO, EZ_XXX_XX.EGACDT, EZ_XXX_XX.EGOCDT, EZ_XXX_XX.EGACAM, EZ_XXX_XX.EGDBCR, EZ_XXX_XX.EGVTXT, EZ_XXX_XX.EGAIT1, EZ_XXX_XX.EGVDSC, EZ_XXX_XX.EGCUCD, EZ_XXX_XX.EGC" _
            , _
            "UAM, EZ_XXX_XX.EGAT04, EZ_XXX_XX.EGVTCD, EZ_XXX_XX.EGVTP1, EZ_XXX_XX.EGCVT1, EZ_XXX_XX.EGBSCD, EZ_XXX_XX.EGFTCO, EZ_XXX_XX.EGVATR, EZ_XXX_XX.EGVRNE, EZ_XXX_XX.EGCHID" & Chr(13) & "" & Chr(10) & "FROM S6513DDC.FRANZ.EZ_XXX_XX EZ_" _
            , "XXX_XX")
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .ListObject.DisplayName = "Table_Query_from_ClientAccess_Franz"
            .Refresh BackgroundQuery:=False
        End With
    End Sub
    Sub Clear_Data()
    '
    ' Clear_Data Macro
    '
    
    '
        Range("Table_Query_from_ClientAccess_Franz[[#Headers],[EGJRNO]]").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.ListObject.QueryTable.Delete
        Selection.ClearContents
    End Sub
    Das waere der sich vermehrende Code. Der wird allerdings eigentlich nicht genutzt.
    Der andere, der genutzt wird fuehrt anscheinend dazu, dass sich die Schaltflaechen vermehren.

    Beste Gruesse
    Matthias
     
    mbrokof, 17. Januar 2025
    #7
  8. BoskoBiati Erfahrener User

    Makro Schaltflaechen vervielfaeltigen sich....

    Hi,

    Du bist Spitze!Makro Schaltflaechen vervielfaeltigen sich.... :rolleyes:Makro Schaltflaechen vervielfaeltigen sich.... :rolleyes:

    Zeigst uns den Code, der sich vermehrt, aber nicht den der möglicherweise ursächlich für das Problem!
     
    BoskoBiati, 17. Januar 2025
    #8
  9. d'r Bastler
    d'r Bastler Erfahrener User
    Moin,
    da muss ich Bosko zustimmen: Das Snippet #7 hat nichts mit Vermehrung/Einfügen von Controls zu tun ...
    Grüße
     
    d'r Bastler, 17. Januar 2025
    #9
  10. mbrokof hat Ahnung
    Ja kann ich nachvollziehen @d'r Bastler, hoffe habe nichts vergessen zu aendern:

    Code:
    Sub Clear_Data_Table()
    '
    ' Clear_Data_Table Macro
    '
    
    '
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Range("A10:M10").Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Rows("9:9").Select
        Selection.Insert Shift:=xlDown
    End Sub
    Sub Extract_XXSales()
    '
    ' Extract_XXSales Macro
    '
    
    '
        Sheets("Local sales Code XX (XX)").Select
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Sheets("V300").Select
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=22, Criteria1:= _
            "DEXXXXXXXXX"
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=44, Criteria1:="11"
        ActiveWindow.ScrollColumn = 13
        ActiveWindow.ScrollColumn = 10
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Columns("D:R").Select
        Selection.Copy
        Sheets("Local sales Code XX (XX)").Select
        Range("Table21[RG-Nr.]").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 6
        ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 14
        Columns("AB:AC").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Local sales Code XX (XX)").Select
        Range("G10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        Application.CutCopyMode = False
        ActiveSheet.ShowAllData
        Sheets("Local sales Code XX (XX)").Select
        Rows("10:10").Select
        Selection.Delete Shift:=xlUp
    End Sub
    Sub Extract_XX()
    '
    ' Extract_XX Macro
    '
    
    '
        Sheets("EC sales  Code XX (XX)").Select
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Sheets("V300").Select
        ActiveWindow.SmallScroll ToRight:=2
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=22, Criteria1:= _
            "DEXXXXXXXXX"
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 5
        ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 14
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=44, Criteria1:="50"
        ActiveWindow.ScrollColumn = 13
        ActiveWindow.ScrollColumn = 10
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Columns("D:R").Select
        Selection.Copy
        Sheets("EC sales  Code XX (XX)").Select
        Range("Table26[RG-Nr.]").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 5
        ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 14
        Columns("AB:AB").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("EC sales  Code XX (XX)").Select
        Range("G10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        Application.CutCopyMode = False
        ActiveSheet.ShowAllData
        Sheets("EC sales  Code XX (XX)").Select
        Rows("10:10").Select
        Selection.Delete Shift:=xlUp
    End Sub
    Sub Extract_5X()
    '
    ' Extract_5X Macro
    '
    
    '
        Sheets("Triangle sales Code XX (XX)").Select
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Sheets("V300").Select
        ActiveWindow.SmallScroll ToRight:=6
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=22, Criteria1:= _
            "DEXXXXXXXXX"
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=44, Criteria1:="51"
        ActiveWindow.ScrollColumn = 13
        ActiveWindow.ScrollColumn = 10
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Columns("D:R").Select
        Selection.Copy
        Sheets("Triangle sales Code XX (XX)").Select
        ActiveWindow.SmallScroll Down:=-3
        Range("Table27[RG-Nr.]").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 6
        ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 14
        Columns("AB:AB").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Triangle sales Code XX (XX)").Select
        Range("G10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        Application.CutCopyMode = False
        ActiveSheet.ShowAllData
        Sheets("Triangle sales Code XX (XX)").Select
        Rows("10:10").Select
        Selection.Delete Shift:=xlUp
    End Sub
    Sub Extract_8X()
    '
    ' Extract_8X Macro
    '
    
    '
        Sheets("Export sales Code XX (XX)").Select
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Sheets("V300").Select
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=22, Criteria1:= _
            "DEXXXXXXXXX"
        ActiveSheet.Range("$A$1:$AS$3663").AutoFilter Field:=44, Criteria1:="81"
        ActiveWindow.ScrollColumn = 13
        ActiveWindow.ScrollColumn = 10
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Columns("D:R").Select
        Selection.Copy
        Sheets("Export sales Code XX (XX)").Select
        Range("Table23[RG-Nr. ]").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        ActiveWindow.SmallScroll ToRight:=7
        Columns("AB:AB").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Export sales Code XX (XX)").Select
        Range("G10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("V300").Select
        Application.CutCopyMode = False
        ActiveSheet.ShowAllData
        Sheets("Export sales Code XX (XX)").Select
        Rows("10:10").Select
        Selection.Delete Shift:=xlUp
    End Sub
    
    und das

    Code:
    Sub ExtractXX_Purchases()
    '
    ' ExtractXX_Purchases Macro
    '
    
    '
        Rows("11:11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
        Sheets("E300").Select
        ActiveSheet.Range("$A$1:$AP$670").AutoFilter Field:=4, Criteria1:= _
            "DEXXXXXXXXX"
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 3
        ActiveSheet.Range("$A$1:$AP$670").AutoFilter Field:=41, Criteria1:="10"
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Columns("B:B").Select
        Selection.Copy
        Sheets("Local Purchase VAT code XX (XX)").Select
        Range("Table2[Supplier name]").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("E300").Select
        Columns("F:F").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Local Purchase VAT code XX (XX)").Select
        Range("B10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("E300").Select
        Columns("L:L").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Local Purchase VAT code XX (XX)").Select
        Range("A10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("E300").Select
        ActiveWindow.LargeScroll ToRight:=1
        ActiveWindow.ScrollColumn = 27
        ActiveWindow.ScrollColumn = 18
        ActiveWindow.ScrollColumn = 12
        ActiveWindow.ScrollColumn = 6
        ActiveWindow.ScrollColumn = 4
        Columns("R:AB").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Local Purchase VAT code XX (XX)").Select
        Range("D10").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("E300").Select
        Application.CutCopyMode = False
        ActiveSheet.ShowAllData
        Sheets("Local Purchase VAT code XX (XX)").Select
        Rows("10:10").Select
        Selection.Delete Shift:=xlUp
    End Sub
     
    mbrokof, 24. Januar 2025
    #10
  11. OilMax hat Ahnung
    Hallo,

    ich vermute mal, dass bei der Selektionsorgie (Spaghetticode) einfach die Buttons mit kopiert werden. Der Makrorecorder zeichnet einfach nur auf, was die wie gemacht hast. Der so erzeugte Code muss man passend in brauchbaren Code umgeschrieben werden.
    Es werden ganze Spaltenbereiche selektiert und kopiert.

    Gruß Uwe
     
  12. mbrokof hat Ahnung
    Hallo Uwe,
    ja ok, d.h. bei den ausgewählten Spalten. Würde Sinn ergeben. Wenn ich Spalten herauslese und die Buttons woanders hinkopiere, vielleicht wird es dann besser. Werde ich probieren.

    Danke.
    Beste Gruesse
    Matthias
     
    mbrokof, 29. Januar 2025
    #12
Thema:

Makro Schaltflaechen vervielfaeltigen sich....

Die Seite wird geladen...
  1. Makro Schaltflaechen vervielfaeltigen sich.... - Similar Threads - Makro Schaltflaechen vervielfaeltigen

  2. Leerzeilen entfernen

    in Microsoft Word Hilfe
    Leerzeilen entfernen: Hallo in die Runde, ich habe das Problem bzw. den Wunsch in einem DOC die Leerzeilen zu entfernen und das per Makro. Allerdings gelingt es nicht Hintergrund das DOC wird aus einer Dot-Datei...
  3. Seit Win 11 Zugriffsprobleme bei Excel über Makros

    in Microsoft Excel Hilfe
    Seit Win 11 Zugriffsprobleme bei Excel über Makros: Guten Tag! Ich habe vor einer Woche mein Windows 10 auf Windows 11 geupgraded, und seitdem habe ich extreme Schwierigkeiten mit meinem Excel. Mit Windows 10 funktionierte alles so, wie es sollte,...
  4. VBA-Makro zur Zellenformatierung Syntax probleme

    in Microsoft Excel Hilfe
    VBA-Makro zur Zellenformatierung Syntax probleme: Hallo zusammen, ich möchte per Makro Zellen formatieren. Tausender-Trennzeichen 3 Nachkommastellen Positive Zahlen Schwarz Negative Zahlen Rot Nullwert mit - Hinter der Zahl soll noch eine...
  5. Rechnungsvorlage mit Kundenstamm ohne Makro

    in Microsoft Excel Hilfe
    Rechnungsvorlage mit Kundenstamm ohne Makro: Hallo zusammen, habe folgendes Problem. Habe eine Liste mit Kunden. In dieser Liste sind Waren dem jeweiligen Kunden Artikel mit Preis und Packschema hinterlegt. Ich habe eine Rechnungsvorlage...
  6. Word-Dateien über Excel in eine ausgewählte Word-Datei übertragen per Makro

    in Microsoft Excel Hilfe
    Word-Dateien über Excel in eine ausgewählte Word-Datei übertragen per Makro: Hallo Zusammen, ich hoffe es kann mir jemand weiterhelfen in dem Forum. Ich habe ein Makro in der Excel-Datei (Reiter: Datenbank) im Anhang, wo ich mir von allen Word-Dateien den Pfad und den...
  7. Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

    in Microsoft Excel Hilfe
    Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!: Hallo Leute, Ich habe mal wieder ein Problem, ich hoffe ihr könnt mir hier helfen! :) Habe hier schon ein Makro soweit, aber es macht halt noch nicht genau das was es soll, woran ich natürlich...
  8. Symbol per Makro einfügen

    in Microsoft Excel Hilfe
    Symbol per Makro einfügen: Hallo zusammen, ich habe aktuell folgendes in meiner Excel mittels bedingter Formatierung implementiert: Bei verschiedenen Zahlen, die in die Zellen A1-A5 eingetragen werden, werden diese durch...
  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