Zeilen löschen unter Vorgabe bestimmter Inhalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub y_x_löschen() For i = 1 To Cells(65536, 1).End(xlUp).Row Set c = Columns(i).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then z = c.Row Rows(z).Delete Shift:=xlUp End If Set c = Columns(i).Find(What:="y", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then z = c.Row Rows(z).Delete Shift:=xlUp End If Next i End Sub

Hey Benni!
Dank dir erst mal ganz herzlich!
Hab das mal drüberlaufen lassen...
Scheint irgendwie zu funktionieren! :)
Musste leider aber festellen, dass er (beim ersten Durchlauf) nur die ersten
2 entsprechenden Zeilen gelöscht hat, obwohl es mehr zu löschen gibt.
Führt man es dann nochmal aus, löscht er wieder nur 2 usw..
Und dann tritt noch ein großeres Problem auf: Sind nach x-mal starten des Makros alle
"gewollten" Zeilen weg, dann löscht er scheinbar wahllos irgendwelche 2 Zeilen :(
Leider kenn ich mich wie gesagt nicht mit VBA aus, als dass ich selber auf Fehlersuche gehen könnte... Wäre schön, wenn du nochmal gucken könntest, wo der Fehler liegen könnte ;)
Wie gesagt: Im ersten Durchlauf löscht er die richtigen Zeilen, allerdings nur 2.
Sind weitere Zeilen vorhanden, dann löscht er die nächsten 2, wenn man es nochmal ausführt. Sind alle richtigen Zeilen weg. löscht er scheinbar wahllos jeweils 2 weitere Zeilen...
Wünsche einen schönen Abend!
Grüße
Mio

Sub y_x_löschen() Dim i As Long, c As Range For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 Set c = Columns(i).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Rows(c.Row).Delete Next For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 Set c = Columns(i).Find(What:="y", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Rows(c.Row).Delete Next End Sub

Sub y_x_löschen() Dim x As String, c As Range, z As Range, i As Long x = Cells(Rows.Count, 1).End(xlUp).Row Set c = Range("A1" & ":" & "E" & x) For i = 1 To x If Cells(i, 1) = "x" Or Cells(i, 1) = "y" Then Rows(i).Delete i = i - 1 End If Next i End Sub Gruss! Tassos

Beliebteste Forumthreads (12 Monate)

Zeilen löschen unter Vorgabe bestimmter Inhalten

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen löschen unter Vorgabe bestimmter Inhalten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread