Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Duplikate ersetzen

Forumthread: VBA Duplikate ersetzen

VBA Duplikate ersetzen
08.08.2019 12:51:54
Benji
Grüße liebe VBA-Könner,
kann mir von Jemand bitte sagen, wie ich per VBA in einer Spalte (C) nach doppelten Einträgen suchen kann und anschließend ab Spalte B die untere (neuere Zeile) in die obere (alte Zeile) kopieren/ersetzen kann.
Werte in Spalte A sollen unverändert bleiben.
Für die Könner ist das vermutlich ein relativ simpler Code. Und ich such mir hier schon langsam nen Wolf und allein bekomm ich´s leider nicht hin.
Besten Dank schon mal,
Benji
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Duplikate ersetzen
09.08.2019 10:28:58
fcs
Hallo Benji,
eine Möglichkeit wäre folgende: 
Sub Finde_Doppelte_und_hole_Werte()
Dim wks As Worksheet
Dim rngFind As Range, varFind As Variant
Dim Zeile As Long, Zeile_L As Long, varZeile As Variant
Dim SpaMark As Long
Set wks = ActiveSheet
SpaMark = 4 'Spalte D - spalte in der doppelte markiert werden - ggf. anpassen
With wks
'letzte Zeile mit Inhalt in Spalte C
Zeile_L = .Cells(.Rows.Count, 3).End(xlUp).Row
'Zeilen Spalte C ab Zeile 2 abarbeiten
For Zeile = 2 To Zeile_L - 1
'als doppelt markierte Zeile überspringen
If .Cells(Zeile, SpaMark).Value  "doppelt" Then
'Wert in Spalte C merken
varFind = .Cells(Zeile, 3).Value
'Suchbereich in Spalte C ab Zeile unterhalb bis Listenende setzen
Set rngFind = .Range(.Cells(Zeile + 1, 3), .Cells(Zeile_L, 3))
'Zeile mit Wert im Suchbereich suchen
varZeile = Application.Match(varFind, rngFind, 0)
If IsNumeric(varZeile) Then
'Wert aus gefundener Zeile in Spalte B eintragen
.Cells(Zeile, 2) = .Cells(Zeile + varZeile, 2).Value
'Zeile mit doppeltem Wert  markieren
.Cells(Zeile + varZeile, SpaMark).Value = "doppelt"
End If
End If
Next
End With
End Sub
LG
Franz
Anzeige
Besten Dank!
09.08.2019 10:50:33
Benji
Hallo Franz,
genau das was ich gesucht habt.
Dank Dir recht herzlich =)
LG Benji
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige