Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige