Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Einträge löschen mit 2 Bedingungen
19.09.2021 10:05:36 ChrisFeyer
NotSolved
19.09.2021 11:52:56 Gast2202
NotSolved
22.09.2021 23:57:53 Nobody
NotSolved
23.09.2021 10:12:35 Werner
NotSolved

Ansicht des Beitrags:
Von:
ChrisFeyer
Datum:
19.09.2021 10:05:36
Views:
167
Rating: Antwort:
  Ja
Thema:
Doppelte Einträge löschen mit 2 Bedingungen

Hallo zusammen,

ich benötige einmal Eure Hilfe. Folgendes Makro, soll in einer Datei einen Abgleich von bereits erledigten Einträgen durchführen und diese anschlißend löschen.

Vorgehensweise des Makros, kontrollieren, ob in Zelle 16 der Barcode z.B. 00340100081028299276 doppelt in der Liste enthalten ist, wenn ja muss geprüft werden, ob in Zelle 18 ein J enthalten ist. Sollte anstatt einem J ein N in Zelle 18 stehen, soll der Datensatz nicht gelöscht werden. Sollten beide Bedingungen zutreffen, soll die Spalte mit dem Datensatz komplett gelöscht werden.

Das Makro tut eigentlich auch das, was es sollte, aber nur bei einer kleinen Datenmenge. In der Liste sind zum Teil über 1.000 Einträge enthalten. Hier fäng das Makro dann an wahllos, Einträge zu löschen.

' Erledigte_löschen Makro
'
 Dim iRow As Variant, iRowL As Variant
   iRowL = Cells(Cells.Rows.Count, 7).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      If WorksheetFunction.CountIf(Columns(16), Cells(iRow, 16)) > 1 _
      And Cells(iRow, 18).Value <> "J" Then Rows(iRow).Delete
      
   Next iRow
 
End Sub

Vielleicht habt Ihr eine Idee, was das Problem ist, ich bin leider mit meinem Latein am Ende.

Vielen Dank im Vorraus für Eure Unterstützung.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Einträge löschen mit 2 Bedingungen
19.09.2021 10:05:36 ChrisFeyer
NotSolved
19.09.2021 11:52:56 Gast2202
NotSolved
22.09.2021 23:57:53 Nobody
NotSolved
23.09.2021 10:12:35 Werner
NotSolved