Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba, Zeilen löschen = langsam

vba, Zeilen löschen = langsam
05.06.2020 15:56:24
Fred
Hallo Excel Profis,
ich möchte gerne jede Zeile löschen, in der in Spalte 51 kein Wert steht. 
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For t = lz To 2 Step -1
If Cells(t, 51).Value = "" Then
Rows(t).Delete Shift:=xlUp
End If
Next t

Es klappt,- allerdings dauert es unglaublich lange (bei gesamt 2000 DS, wobei 1700 gelöscht werden solle)
Gibt es eine clevere vba-Lösung?
Gruss
Fred

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba, Zeilen löschen = langsam
05.06.2020 16:00:35
Hajo_Zi
Hallo Fred,
lösche alle mit einmal.
Option Explicit
Sub DoppelteWerte_löschen()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim RaZelle As Range
Dim IntRow As Long
Dim Start As Long
IntRow = IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For Start = IntRow To 1 Step -1
If Not IsEmpty(Cells(Start, 1)) Then
If Application.CountIf(Range("A1:A" & Start), Cells(Start, 1)) > 1 Then
If RaZelle Is Nothing Then
Set RaZelle = Cells(Start, 1)
Else
Set RaZelle = Union(RaZelle, Cells(Start, 1))
End If
End If
End If
Next
If Not RaZelle Is Nothing Then RaZelle.ClearContents
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Anzeige
AW: vba, Zeilen löschen = langsam
05.06.2020 16:12:13
UweD
Hallo
so?

With ActiveSheet
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
.Columns(51).AutoFilter Field:=1, Criteria1:="="
Intersect(.Columns(51), .UsedRange).Offset(1, 0).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete 'gefilterte Zeilen löschen
.AutoFilterMode = False ' Autofilter ausschalten
End With

AW: vba, Zeilen löschen = langsam
05.06.2020 16:20:33
Fred
Hallo UweD,
mit deinem Code geht das ratzfatz,- mein ursprünglicher "hing sich anscheinend immer wieder auf".
Das Makro von Hajo erzielte leider nicht das Ergebnis (löschte nur den Inhalt von Zellen,- bzw "dopplern")
Danke UweD
und schönes Wochenende
Gruss
Fred
Anzeige
Dazu braucht man eigentlich kein Makro
05.06.2020 16:12:21
Matthias
Hallo
Komplette Spalte markieren
F5 drücken
Inhalte
Leerzellen anwählen
Ok
Jetzt mit der rechten Maustaste Zellen löschen wählen
Ganze Zeile anwählen.
Oder als Makro: 
Columns("AY:AY").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Gruß Matthias
AW: vba, Zeilen löschen = langsam
05.06.2020 16:22:34
Daniel
Hi
Zeilen einzeln löschen ist langsam.
Für Excel ist es der gleiche Aufwand, eine Zeile zu löschen oder 1000, sofern die Zeilen einen lückenlosen Block bilden.
Wenn die Zellen in Spalte 51 leer sind, so: 
Columns(51).SpecialCells(xlcelltypeblanks).EntireRow.delete
Noch schneller gehts, wenn du vorher nach Spalte 51 sortierst.
Sollten die Zellen keine echten Leerzellen sein oder sortieren unerwünscht, dann bietet sich noch das Duplikate Entfernen an:
With ActiveSheet.usedrange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=If(RC51="""",0,Row())"
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Columns, xlno
.ClearContents
Ende With
Ende With
Gruß Daniel
Anzeige
AW: vba, Zeilen löschen = langsam
05.06.2020 16:25:38
Fred
Hallo Daniel,
dein und Matthias 
Columns(51).SpecialCells(xlcelltypeblanks).EntireRow.delete
tut es prächtig.
Danke!
AW: vba, Zeilen löschen = langsam
05.06.2020 16:50:39
Werner
Hallo Fred,
da sollte aber noch eine Fehlerbehandlung rein. Wenn keine Leerzelen in Spalte 51 vorhanden sind, dann läuft das Makro in einen Fehler.
Gruß Werner
AW: vba, Zeilen löschen = langsam
05.06.2020 21:15:52
GerdL
Moin!
Richtig! 

With Columns(51)
If WorksheetFunction.CountBlank(.Cells) > 0 Then
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
End With

Gruß Gerd

326 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15