Office: (Office 2016) Löschen von Zeilen und anschließendes Kopieren dauert lange

Helfe beim Thema Löschen von Zeilen und anschließendes Kopieren dauert lange in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, kann mir einer helfen den abgebildeten Code zu optimieren? Wenn der Code durchläuft dauert es gefühlt 20 Sekunden bis er fertig ist. Und das... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Maddy55, 28. November 2020.

  1. Löschen von Zeilen und anschließendes Kopieren dauert lange


    Hallo, kann mir einer helfen den abgebildeten Code zu optimieren?

    Wenn der Code durchläuft dauert es gefühlt 20 Sekunden bis er fertig ist.
    Und das bei höchstens 20 Zeilen.

    Was macht der Code:
    Zunächst ermittelt er die letzte beschriebene Zeile in Spalte C im Sheet(3) und löscht alle Zeilen rückwärts bis Zeile 101.

    Nun springt er in die Sub Routine kopieren:
    Dann ermittelt er die letzte Zeile in Sheet(1) Spalte B
    Nun kopiert er den Inhalt in Spalte A ab Zeile 3 von Sheet(1) nach Sheet(3) in Spalte C ab Zeile 101
    Das gleiche mit den Inhalten von Spalte D, E und F auf Sheet(1)

    Code:
    Wäre Super wenn mir jemand bei der Routine weiterhelfen könnte, das der Code seine Arbeit schneller verrichtet.
    Gruß
    Maddy

    :)
     
  2. Benutze doch den Autofilter und arbeite mit Wertzuweisungen anstatt .Copy, sofern Dich lediglich die Werte und nicht noch Formate interessieren.

    Keep it simple
     
  3. Was mit Sicherheit einen Geschwindigkeitsgewinn bringt:
    1) Screenupdating ausschalten
    2) Autofilter statt zeilenweisem Löschen

    Was macht
    Code:
    was nicht auch
    Code:
    macht?
     
    MisterBurns, 30. November 2020
    #3
  4. Löschen von Zeilen und anschließendes Kopieren dauert lange

    Hallo,

    man könnte auch darüber nachdenken, die Daten in ein Array zu lesen, das man zeilenweise abarbeitet. Zwei weitere Arrays nehmen dann die zu kopierenden und die zu behaltenden Daten auf, die dann entsprechend in die Tabellen eingefügt werden.

    EDIT: Eine Beispieldatei mit ein paar Dummy-Datensätzen wäre hilfreich.
     
    Der Steuerfuzzi, 30. November 2020
    #4
  5. Uih, danke für die Antworten.

    Aber jetzt weiß ich gar nichts mehr.

    Mit Autofilter arbeiten??? Aber in den Zeilen oberhalb von Zeile 101 stehen ja auch Werte. Die sollen ja nicht angefasst werden.

    Screenupdating habe ich schon abgeschaltet.

    leider bin ich VBA Anfänger und manches kapiere ich einfach noch nicht
     
  6. Mach doch mal eine Beispieldatei mit ein paar (nicht zu wenigen) Dummy-Daten.
     
    Der Steuerfuzzi, 30. November 2020
    #6
  7. Kommt gleich
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
  8. Löschen von Zeilen und anschließendes Kopieren dauert lange

    Beim Löschen habe ich noch eine andere Idee (funktioniert aber nur, wenn in der Spalte H Werte stehen und keine Formeln):
    Code:
    Ergänzung: Das dürfte aber bei vielen nicht zusammenhängenden zu löschenden Zeilen relativ langsam sein (wie beim Autofilter aber auch). Daher würde ich das ganze lieber in ein Array packen.
     
    Der Steuerfuzzi, 30. November 2020
    #8
  9. Hallo Maddy55

    z.b. Zeilen löschen!


    PHP:
             Sub Zeilen_Löschen()
    Application.DisplayAlerts False
    With Worksheets
    ("Tabelle3")
    .
    Range("C102:C" & .Range(.Cells(Rows.Count3), .Cells(Rows.Count3)).End(xlUp).Row).AutoFilter Field:=1Criteria1:="<>" ""
    .AutoFilter.Range.Offset(10).SpecialCells(xlCellTypeVisible).Rows.Delete
    .Range("C102").AutoFilter
    End With
    Application
    .DisplayAlerts True
    End Sub
     
    m_i_c_h_a_e_l, 30. November 2020
    #9
  10. Jetzt verstehe ich gar nichts mehr.
    Habe nun eine Testmappe gebastelt, Sheet(1) und (3) genau so gefüllt wie im Original, und nun läuft der Code nicht mehr
    ???????????????
     
  11. Ergänzung: Das dürfte aber bei vielen nicht zusammenhängenden zu löschenden Zeilen relativ langsam sein (wie beim Autofilter aber auch). Daher würde ich das ganze lieber in ein Array packen.

    Leider stehen in Spalte H Formeln
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
  12. Die zu löschenden Zeilen werden anhand der Spalte H ausgewählt. Da steht aber nichts drin. Ist der Aufbau wirklich identisch zum Original?

    In Deiner Beispieldatei nicht ;-)
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    Der Steuerfuzzi, 30. November 2020
    #12
  13. Löschen von Zeilen und anschließendes Kopieren dauert lange

    nein in der beispieldatei habe ich das nicht drin.
    Moment ändere ich mal ab.....
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
  14. So jetzt mit Formeln
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
  15.  
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
Thema:

Löschen von Zeilen und anschließendes Kopieren dauert lange

Die Seite wird geladen...
  1. Löschen von Zeilen und anschließendes Kopieren dauert lange - Similar Threads - Löschen Zeilen anschließendes

  2. Zeilen mit dem selben Namen löschen

    in Microsoft Excel Hilfe
    Zeilen mit dem selben Namen löschen: Hallo, bei einer Übung hatte ich in einer langen Excel-Datei alle Zellen löschen müssen, die erneut den selben Namen haben Ich habe mit Suchen die Zeilen gefunden und per Hand gelöscht. Gibt es...
  3. Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

    in Microsoft Excel Hilfe
    Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen: Hallo, ich erstelle mir aus verschiedenen Textdateien eine Adressliste (mehrere hundert Einträge, Ende variiert). Am Ende der Liste erscheint immer etwas "Kauderwelsch"...
  4. Makro - Kombination aus Zeile löschen oder Text ersetzen

    in Microsoft Excel Hilfe
    Makro - Kombination aus Zeile löschen oder Text ersetzen: Hallo miteinander, ich würde gerne folgendes Problem per Makro (nicht mit klassischen Formeln) lösen (wichtig, das Makro muss beim Öffnen starten): - wenn in Spalte A nichts steht -> gesamte...
  5. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...
  6. Excel - Zeile ausschneiden & löschen

    in Microsoft Excel Hilfe
    Excel - Zeile ausschneiden & löschen: Hallo, ich möchte gerne, dass eine Zeile gelöscht wird, wenn ich sie ausschneide. Ich habe in einem Tabellenblatt die "Bestellungen" und im zweiten die "Auslieferung". Sobald die Ware...
  7. Bezugsfehler nach Zeilen löschen

    in Microsoft Excel Hilfe
    Bezugsfehler nach Zeilen löschen: Moin, ich kopiere Daten aus einer Textbase Datei in eine Excel Maske. Dadurch habe ich in Spalte X jeweils beliebige Nummern untereinander stehen. Diese wollte ich gerne hintereinander und mit...
  8. VBA ListBox Zeilen entsprechend in Tabelle löschen

    in Microsoft Excel Hilfe
    VBA ListBox Zeilen entsprechend in Tabelle löschen: Hallo zusammen, ich habe ein Problem mit dem Löschen von Inhalten aus meiner Tabelle anhand der Auswahl in der ListBox. Ich lese die Daten der ListBox aus einem Tabellenblatt ein. Multiselect ist...
  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