Suchen - Vergleichen/Pruefen - Loeschen

Moin, moin!
Irgendwie komme ich in einer Stelle nicht weiter, die aber doch recht einfach sein soll
Zunaechst die Bsp.-Datei
https://www.herber.de/bbs/user/75186.xlsx
Ich moechte nun, dass die Spalte D nach einem Eintrag durchsucht wird und bei einem Treffer, mit den Eintraegen in Spalte C verglichen wird. Ergibt sich hierbei eine Ubereinstimmung, soll die ganze Zeile mit dem Treffer in C geloescht werden...
Mein Problem ist zum einen, dass in Spalte C vor den Ziffern immer noch "CHQ#" steht, wodurch ich mit dem Suchargument nicht zurecht komme.
Ebenfalls weiss ich nicht, wie ich diese Schleife erstelle, dass alle Eintraege in Spalte D auf Existenz in Spalte C geprueft werden...
Hoffe ich hab mich einigermassen verstaendlich ausgedrueckt.
Bin fuer jede Hilfe dankbar!
Hendrik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub SuchenLöschen() Dim strSuche1 As String, strSuche2 As String Dim rngZelle1 As Range, rngZelle2 As Range strSuche1 = InputBox("Suchbegriff eingeben") For Each rngZelle1 In Range("D:D") If rngZelle1 = strSuche1 Then For Each rngZelle2 In Range("C17:C20") strSuche2 = Right(rngZelle2, 6) If strSuche2 = rngZelle1 Then rngZelle2.EntireRow.Delete End If Next End If Next End Sub

Sub SuchenLöschen() Dim strSuche1 As String, strSuche2 As String Dim rngZelle1 As Range, rngZelle2 As Range Dim rng As Range, c As Range Set rng = Range("D1:D100") For Each c In rng If c > 0 Then Exit Sub End If Next c 'jetzt weiss ich nicht, wie ich den inhalt von c an strSuche1 uebergeben kann... For Each rngZelle1 In Range("D1:D100") If rngZelle1 = strSuche1 Then For Each rngZelle2 In Range("C1:C100") strSuche2 = Right(rngZelle2, 6) If strSuche2 = rngZelle1 Then rngZelle2.EntireRow.Delete End If Next End If Next End Sub

Sub SuchenLöschen() Dim strSuche1 As String, strSuche2 As String Dim rngZelle1 As Range, rngZelle2 As Range Dim rng As Range, c As Range Set rng = Range("D1:D100") For Each c In rng If c > "" Then strSuche1 = c.Value End If Next c 'denke der Fehler liegt bei der Uebergabe der Werte an die Variable... For Each rngZelle1 In Range("D1:D100") If rngZelle1 = strSuche1 Then For Each rngZelle2 In Range("C1:C100") strSuche2 = Right(rngZelle2, 6) If strSuche2 = rngZelle1 Then rngZelle2.EntireRow.Delete End If Next End If Next End Sub

Sub SuchenLöschen() Dim arrSuche(100) As Variant Dim strSuche2 As String Dim rngZelle1 As Range, rngZelle2 As Range Dim intZiel As Integer For Each rngZelle1 In Range("D1:D100") If Not rngZelle1 = "" Then intZiel = intZiel + 1 arrSuche(intZiel) = rngZelle1 End If Next For intZiel = 1 To UBound(arrSuche) For Each rngZelle2 In Range("C17:C100") strSuche2 = Right(rngZelle2, 6) If strSuche2 = arrSuche(intZiel) Then rngZelle2.EntireRow.Delete End If Next Next End Sub

Moin, moin!
Der Code ist schon sehr gut, nur habe ich dir/dem Forum wahrscheinlich eine etwas unglueckliche Beispieldatei als Referenz hier zur Verfuegung gestellt...
Wenn du dir diese mal anschauen koenntest?
https://www.herber.de/bbs/user/75204.xlsm
Hab den Code eingebunden, allerdings habe ich bei diesem Sheet das Problem, dass auch "falsche" Zeilen geloescht werden... Ich kann mir aber irgendwie nicht erklaeren wieso. Eigentlich sollten doch nur "nichtleere" Zellinhalte aus Spalte D an die Variable uebergeben werden und bei Uebereinstimmung mit der Spalte C dann geloescht werden.
Nun werden aber auch voellig unbeteiligte Zeilen geloescht... Ich kann deinen Code auch eigentlich sehr gut nachvollziehen, vll bis auf die Variable "arrSuche", aber finde nicht den Fehler.
Vll nochmal zur Erlaeterung der BspDatei, da ich den Fehler hier vermute...
Die Bereiche ueber "Bank Bal" sind variabel und die Daten werden per Makro importiert, darauf aufbauend werden diese CHQ# errechnet bzw. sollen geloescht werden.
Die Eintraege in Spalten B und C sind weiter unten (hier ab Zeile 39) sind konstant, verschieben sich aber logischerweise auch dynamisch je nach Anzahl der importieren Buchungen oberhalb von "Bank Bal"...
Mein groesstes persoenliches Defizit liegt einfach in dem Umgang mit dynamischen Bezuegen oder wie ich das nennen soll...
Waere super, wenn du - oder auch gerne ein anderer Experte hier - sich das nochmal anschauen koennte
Besten Dank und Gruesse vom anderen Ende der Welt :) !
Hendrik

Sub delete_Cheque() Dim arrSuche As Variant Dim strSuche2 As String Dim rngZelle1 As Range, rngZelle2 As Range Dim intZiel As Integer intZiel = WorksheetFunction.Count(Range("D:D")) ReDim arrSuche(intZiel) intZiel = 0 For Each rngZelle1 In Range("D1:D50") If Not rngZelle1 = "" Then intZiel = intZiel + 1 arrSuche(intZiel) = rngZelle1 End If Next For intZiel = 1 To UBound(arrSuche) For Each rngZelle2 In Range("C5:C60") strSuche2 = Right(rngZelle2, 6) If strSuche2 = arrSuche(intZiel) Then rngZelle2.EntireRow.Delete End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

Suchen - Vergleichen/Pruefen - Loeschen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen - Vergleichen/Pruefen - Loeschen

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread