"Irgendwo" in Zeile Text, dann Zeile löschen

Sub nvloeschen() Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1 If Cells(i, 5) = "x" Then Rows(i).Delete Next i Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Aufruf() Call nvloeschen(1, "HierDenSuchText") Call nvloeschen(2, "HierDenSuchText") Call nvloeschen(3, "HierDenSuchText") End Sub Sub nvloeschen(spalte As Long, suchtext As String) Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, spalte).End(xlUp).Row To 1 Step -1 If Cells(i, spalte).Value Like "*" & suchtext & "*" Then Rows(i).Delete Next i Application.ScreenUpdating = True End Sub

Sub Aufruf() Application.ScreenUpdating = False Call nvloeschen(1, "HierDenSuchText") Call nvloeschen(2, "HierDenSuchText") Call nvloeschen(3, "HierDenSuchText") Application.ScreenUpdating = True End Sub Sub nvloeschen(inSpalte As Long, SuchText As String) Dim i As Long Dim r As Range For i = 1 To Cells(Rows.Count, inSpalte).End(xlUp).Row If Cells(i, inSpalte).Value Like "*" & SuchText & "*" Then If r Is Nothing Then Set r = Cells(i, inSpalte) Else Set r = Union(r, Cells(i, inSpalte)) End If End If Next i If Not r Is Nothing Then r.EntireRow.Delete shift:=xlUp End Sub

Sub nun geändert. @arthur: danke, das mit der schleife funktioniert perfekt. nun stellen sich mir nur noch zwei _ fragen. 1.) wenn ich wie unten in meinem code als suchkriterium TEXT verwende, löscht mir das makro _ alle zeilen, auch die, in denen nur zahlen stehen. ich möchte aber eine zeile nur lediglich dann löschen, wenn sich in selbiger an irgendeiner stelle ein buchstabe befindet. wie lässt sich dies realisieren Sub loeschen_wenn_text() Dim i As Long Application.ScreenUpdating = False For j = 1 To 24 For i = Cells(Rows.Count, j).End(xlUp).Row To 1 Step -1 If Cells(i, j) = Text Then Rows(i).Delete Exit For Next i Next j Application.ScreenUpdating = True End Sub Wie stelle ich sicher, dass die 1. Zeile fixiert bleibt und mir bei ausführen des makros nicht die kopfzeilen mit den überschriften gelöscht werden? Ich bleibe selber auch am ball, würde mich aber über hilfe freuen. tausend dank. Christoph

Hi
geht am einfachsten und sehr schnell so:
1. Schreibe in eine Hilfsspalte am Tabellenende eine Formel, welche alle Zeilen die gelöscht werden sollen mit 0 und die anderen mit der aktuellen Zeilennummer kennzeichnet
das wäre in deinem Fall:


=Wenn(ZählenWenn(A2:X2;"Zeichenfolge")>0;0;Zeile())

2. Schreibe in die erste Zeile dieser Hilfsspalte ebenfalls die 0 (Überschrift)
3. Wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an mit der Hilfsspalte als Kriterium und der Option "keine Überschrift".
alle Zeilen mit 0 sind dann ja Duplikate und werden gelöscht, ausser der ersten.
das geht von Hand einfach und schnell auch bei grössten Datenmengen und als Code ebenso:

With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(CountIf(RC1:RC24,""Zeichenfolge"")>0,0,Row())"
.cells(1, 1).Value = 0
.EntireRow.Removeduplicates .Column, xlno
.ClearContents
End With
End With

das hat beim Testen des Codes zusätzlich den Vorteil, dass alle Zeilen zuerst markiert werden bevor du sie löscht. Damit kannt du überprüfen, ob deine Markierungsformel richtig ist und ggf abändern, bevor du deine Daten final löschst.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

"Irgendwo" in Zeile Text, dann Zeile löschen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"Irgendwo" in Zeile Text, dann Zeile löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread