Texte löschen, wenn Bedingung erfüllt

Hallo,

ich würde mich freuen, wenn jemandem von euch eine Lösung einfällt.
Die Bsp. Datei ist jetzt ausschließlich auf das beschränkt, was für mein Anliegen meiner Meinung nach relevant ist. Die Originaldatei hat 300 Spalten, 383 Zeilen und enthält unmenge an weiteren Texten, die aber nicht für mein Problem relevant sind.

https://www.herber.de/bbs/user/166922.xlsx

Mein Ziel ist es, alle Texte in meinem Blatt zu löschen, die mit movie: beginnen. Gut soweit mit Suchen und Ersetzen. Jedoch mit einer Einschränkung, steht 2 Zellen unter dem Text, der mit movie: beginnt ein Text, der mit dem Text aus Zeile 44 beginnt, soll er nicht gelöscht werden.

ZUrück zu meiner Bsp Datei

der Text movie: 123 in Zelle A48 soll gelöscht werden, weil der Inhalt von A50 nicht mit Text1 beginnt
der Text movie: def in Zelle A52 soll gelöscht werden, weil der Inhalt von A54 nicht mit Text1 beginnt
der Text movie: 456 in Zelle B52 soll nicht gelöscht werden, weil der Inhalt von B54 mit Text2 beginnt
der Text movie: abc in Zelle C56 soll gelöscht werden, weil der Inhalt von C58 nicht mit Text3 beginnt
der Text movie: 789 in Zelle D49 soll nicht gelöscht werden, weil der Inhalt von D51 mit Text4 beginnt
der Text movie: ghij in Zelle E48 soll gelöscht werden, weil der Inhalt von E50 nicht mit Text5 beginnt (Das dieser mit movie: beginnt spielt keine Rolle)
der Text movie: klmn in Zelle E50 soll dann wiederum gelöscht werden, weil der Inhalt von E52 mit Text5 beginnt

Texte die nicht mit movie: beginnen, sollen generell nicht gelöscht werden.
In den Zeilen 1 bis 43 kommen keine Texte, die mit movie: beginnen vor.

Hat da jemand eine Lösung?

Danke
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub selektivesLöschen() Dim F, Z Dim Startadresse As String Dim bLöschBlocker As Boolean With Worksheets("Tabelle1") Set F = .Cells.Find(What:="movie: ", lookAt:=xlPart) If F Is Nothing Then Exit Sub Startadresse = Z.Address Do bLöschBlocker = False For Each Z In .Range("A4:D44") bLöschBlocker = CBool(InStr(1, F.Offset(2, 0).Value, Z.Value, vbTextCompare)) If bLöschBlocker Then Exit For Next If Not bLöschBlocker Then Z.clearcontent Set F = .Cells.FindNext(F) Loop While F.Address > Startadresse End With End Sub

Sub selektivesLöschen() Dim F As Range Dim Startadresse As String With Worksheets("Tabelle1") Set F = .Cells.Find(What:="movie: ", lookAt:=xlPart) If F Is Nothing Then Exit Sub Startadresse = Z.Address Do If Not Gefunden(F.Offset(2,0).Value, .Range("A4:D44")) Then Z.clearcontent Set F = .Cells.FindNext(F) Loop While F.Address > Startadresse End With End Sub Private Function Gefunden(Wert As String, Bereich As Range) As Boolean Dim Z As Range For Each Z In Bereich If InStr(1, Wert, Z.Value, vbTextCompare) Then Gefunden = True Exit Function End If Next End Function

Hi
nur so als Tipp:
da du uns nicht bezahlst, sind wir Helfer häufig etwas faul, und wenn wir uns sicher sind, dass ein Code funktioniert, dann schreiben wir den Code gerne mal direkt ins Forum, ohne ihn vorher in Excel zu testen, oder wir machen das häufig bei Verbesserungen, die uns erst einfallen, nachdem wir den Code ins Forum eingefügt haben.
Das birgt natürlich immer das Risiko von Tipp- und Rechtschreibfehlern, die dann nicht erkannt werden, außerdem fehlt die Hilfe der Intellisense.
In diesem Fall müsstest du dann so freundlich sein, diese Fehler zu korrigieren.
Du erkennst sowas immer daran, wenn VBA-Schlüsselwörter wie Befehle und Eigenschaften nur aus Kleinbuchstaben bestehen. VBA-Schlüsselwörter haben in der Regel mehrere Großbuchstaben, dh einen am Anfang und einen mitten im Wort. Hier ist zum Beispiel der Befehl "clearcontent" klein geschrieben und das heißt, dass er nicht geprüft wurde, weil der VBA-Editor diese Großschreibung automatisch einfügt, wenn der das Wort erkennt.
Wenn also ein Fehler auftritt und du findest in der Zeile, die den Fehler verursacht ein kleingeschriebenes Wort, dann solltest du als erstes dieses Wort korrigieren.
Hierzu tippst du die ersten paar Buchstaben ein und drückst dann STRG+LEER. Das aktiviert die Intellisense, welche dir die an dieser Stelle möglichen Schlüsselbegriffe in einer Klappliste anzeigt, die schon eigegebenen Buchstaben sind als Vorsteinstellung ausgewählt. Passt nur ein Begriff aus der Liste, so wird dieser gleich vervollständigt.

das zu Yals Lösung (und als allgemeiner Tip, wenn du programmieren lernen willst)

meine eigene Frage wäre:
welcher Begriff aus aus Zeile 44 bestimmt über das Löschverbot: nur der, der in der selben Spalte steht, oder ist es egal, irgendein Begriff aus Zeile 44?
also wenn in B54 jetzt nicht "Text2" stehen würde sondern "Text1" (welcher in A44 zu finden ist), sollte dann B52 gelöscht werden oder nicht?

Gruß Daniel

Sub selektivesLöschen() Dim F As Range Dim Adresse As String With Worksheets("Update") Set F = .Cells.Find(What:="movie: ", lookAt:=xlPart) If F Is Nothing Then Exit Sub Do If F.Column >= 1 And F.Column = 5 Then If InStr(1, F.Offset(0, 2).Value, .Cells(44, F.Column), vbTextCompare) = 0 Then F.ClearContents Else If Adresse = "" Then Adresse = F.Address End If Set F = .Cells.FindNext(F) Loop While Adresse > F.Address End With End Sub

Sub selektivesLöschen() Dim F As Range Dim Adresse As String With Worksheets("Update") Set F = .Cells.Find(What:="movie: ", lookAt:=xlPart) If F Is Nothing Then Exit Sub Do If F.Column >= 1 And F.Column = 330 Then If InStr(1, F.Offset(2, 0).Value, .Cells(44, F.Column), vbTextCompare) = 0 Then F.ClearContents Else If Adresse = "" Then Adresse = F.Address End If End If Set F = .Cells.FindNext(F) Loop While Adresse > F.Address End With End Sub

If InStr(1, F.Offset(2, 0).Value, .Cells(44, F.Column), vbTextCompare) = 1 Then F.ClearContents 'die TrefferZelle "F" wird geleert und somit nicht von FindNext nochmal gefunden. Es könnte eine Endlosschleife entstehen Else If Adresse = "" Then Adresse = F.Address 'beim ersten Treffer, der nicht zu löschen ist, wird vermerkt "da waren wir schon mal." End If

Sub selektivesLöschen() Dim F As Range Dim Startadresse As String With Worksheets("Update") Set F = .Cells.Find(What:="movie: ", lookAt:=xlPart) If F Is Nothing Then Exit Sub Startadresse = F.Address Do If Not Gefunden(F.Offset(2, 0).Value, .Range("A44:E44")) Then F.ClearContents Set F = .Cells.FindNext(F) Loop While F.Address > Startadresse End With End Sub Private Function Gefunden(Wert As String, Bereich As Range) As Boolean Dim Z As Range For Each Z In Bereich If F > "" And InStr(1, Wert, Z.Value, vbTextCompare) Then Gefunden = True Exit Function End If Next End Function

Beliebteste Forumthreads (12 Monate)

Texte löschen, wenn Bedingung erfüllt

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Texte löschen, wenn Bedingung erfüllt

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread