Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

doppelte suchen und markieren

doppelte suchen und markieren
14.08.2003 15:21:22
Paul
Hallo,
und wieder mal ein Frage.
In einer großen Tabelle sind mehrere Datensätze doppelt. Ich möchte die gekennzeichnet haben.
Es soll in der Spalte N "doppelt" eingetragen werden, wenn die Werte in Spalten K E G M (alle zusammen) noch einmal vorkommen.
Für Euch sicherlich kein Problem.
Danke
Paul

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

Betreff
Datum
Anwender
Anzeige
AW: doppelte suchen und markieren
14.08.2003 16:16:15
ChrisL
Hi Paul
Option Explicit

Sub Doppelt()
Dim iZeile As Long, iiZeile As Long
Columns(14).ClearContents
For iZeile = 1 To Range("E65536").End(xlUp).Row
For iiZeile = 1 To Range("E65536").End(xlUp).Row
If Cells(iZeile, 5) = Cells(iiZeile, 5) And _
Cells(iZeile, 7) = Cells(iiZeile, 7) And _
Cells(iZeile, 11) = Cells(iiZeile, 11) And _
Cells(iZeile, 13) = Cells(iiZeile, 13) And _
iZeile <> iiZeile Then
Cells(iZeile, 14) = "doppelt"
Exit For
End If
Next iiZeile
Next iZeile
End Sub

Gruss
Chris

Danke, für die schnelle Hilfe
15.08.2003 07:57:26
paul
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige