Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beschleunigen Löschen

Forumthread: Beschleunigen Löschen

Beschleunigen Löschen
30.03.2021 15:02:16
Basti
Hallo Zusammen,
ich habe hier eine Funktion, die sehr lange bei der Ausführung dauert.
Kann man sie auch beschleunigen?
Tabelle1.Select
Tabelle1.Range(Tabelle1.Cells(i, 2), Tabelle1.Cells(i, 11)).Delete (2)
i = i - 1
End If
Viele Grüße
Basti

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
da fehlt die Hälfte vom Code owT
30.03.2021 15:06:22
ralf_b

AW: da fehlt die Hälfte vom Code owT
30.03.2021 15:43:01
Basti
Hallo Ralf,
sorry - unten die andere Hälfte.
Für Vorschläge bin ich dankbar.
Viele Grüße
' Löschen in Tabelle1
ActiveSheet.Unprotect (password)
For j = 2 To 9999
If Len(Sheets("Tabelle2").Cells(j, 2)) < 2 Then emptyrow = j: Exit For
Next
For i = 2 To length
'Filtern+Löschen die ausgewählt wurden
If Application.WorksheetFunction.IfError(Application.VLookup(Tabelle1.Cells(i, 2), Sheets("Tabelle3").Range("A2:C997"), 3, 0), "AB") = Edit.Range("E10") Then
'Zellen Löschen
Tabelle1.Select
Tabelle1.Range(Tabelle1.Cells(i, 2), Tabelle1.Cells(i, 11)).Delete (2)
i = i - 1
End If
Next

Anzeige
AW: da fehlt die Hälfte vom Code owT
30.03.2021 16:06:15
Daniel
Hi
1. denke dir eine Formel aus, die alle Zeilen die gelöscht werden sollen mit 0 markiert und die die stehen bleiben sollen mit der aktuellen Zeilennummer.
2. schreibe diese Formel in die erste freie Spalte am Tabellenende
3. schreibe in die Überschriftenzeile dieser Hilfsspalte ebenfalls die 0
4. wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an, mit der Hilfsspalte als Kriteriumsspalte und der Option "keine Überschrift
5. Hilfsspalte wieder löschen.
das ist zum löschen von Zeilen mit bedingung das einfachste und zugleich schnellste, was du so finden kannst.
kann man bei Bedarf auch als Makro so ausführen lassen.
Codes dazu sollte es eigentlich genügend im Archiv geben, mit den Suchbegriffen "Excel" "Zeilen löschen" "Bedingung" "Duplikate entfernen" solltest du sie finden.
die meisten kannst du dann 1:1 übernehmen und musst lediglich die Formel zur kennzeichnung an deine Bediungung anpassen.
Gruß Daniel

Anzeige
AW: da fehlt die Hälfte vom Code owT
30.03.2021 16:21:40
ralf_b
ich weis ja nicht wozu "j" gut ist und woher "Length" kommt, aber ich habe mal eine Lösung versucht. Ungetestet. Alternativ hat Daniel ja was geschrieben. 
  ' Löschen in Tabelle1
ActiveSheet.Unprotect (Password)
For j = 2 To 9999
If Len(Sheets("Tabelle2").Cells(j, 2))
gruß
rb

Anzeige
AW: da fehlt die Hälfte vom Code owT
01.04.2021 12:47:12
Basti
Hallo Ralf,
funktioniert super! sry für die späte Rückmeldung.
Funktioniert wie gewünscht : )
Vielen Dank und frohe Ostern
Basti
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige