Thema Datum  Von Nutzer Rating
Antwort
Rot Dubletten löschen mit Übertragung des Kommentars
19.12.2021 14:35:28 ChrisFeyer
NotSolved
19.12.2021 20:25:37 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
ChrisFeyer
Datum:
19.12.2021 14:35:28
Views:
108
Rating: Antwort:
  Ja
Thema:
Dubletten löschen mit Übertragung des Kommentars

Hallo zusammen,

ich habe folgende Herausforderung, aber komme leider nicht weiter. In meiner Datei habe ich alte Datensätze, die mit neuen abgeglichen werden sollen. In diesem Fall wäre ab Spalte C6 die Sendungsnummer doppelt und ab Spalte A6 mit Kommentaren versehen.

Meine Herausforderung ist:

  • kopieren und einfügen des Kommentars in den neuen doppelten Datensatz aus der Spalte Bemerkungen
  • löschen des "alten" doppelten Datensatzes (komplette Zeile löschen)

Habt ihr eine Idee? Ich hatte gedacht ich lasse nach Sendungsnummer sortieren, Bemerkung kopieren und den obersten Datensatz löschen. Nur leider fehlt es mir hier noch an der Umsetzungsfähigkeit.

Bemerkungen Abteilungen Sendungsnr. Info 1 Info 2 Info 3 Info 4
soll gelöscht werden   123456 Alt Alt Alt Alt
soll stehen bleiben   123456 Neu Neu Neu Neu

Diesen Code benutze ich aktuell um die Dubletten zu löschen, hier wird aber immer nur der neu eingefügte Eintrag gelöscht.

Sub Doppelte_löschen_RP()
'
 Dim iRow As Integer, iRowL As Integer
 
   iRowL = Cells(Cells.Rows.Count, 3).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      If WorksheetFunction.CountIf(Columns(3), Cells(iRow, 3)) > 1 Then
         Rows(iRow).Delete
         
      End If
      
   Next iRow
   
End Sub

Vielleicht habrt ihr eine Idee, wie man das Ganze lösen kann :)

Vorab schon einmal vielen lieben Dank.

Viele Grüße

ChrisFeyer


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 Dubletten löschen mit Übertragung des Kommentars
19.12.2021 14:35:28 ChrisFeyer
NotSolved
19.12.2021 20:25:37 Gast7777
NotSolved