Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte untereinander vergleichen

Spalte untereinander vergleichen
19.02.2004 15:15:33
sandra
Hallo zusammen,
wie kann ich am besten ohne vb eine ganze Spalte vergleichen, ob in zwei Zellen der gleiche Wert steht und dann anschließend die
erste Zelle normal und die folgenden, in denen die Wiederholungen stehen, rot markiere. In einem zweiten Schritt sollten die beiden
Zeilen dann gelöscht werden.
Am besten wäre es wenn man diese Funktionalittät hinter zwei Buttons legen könnte.
Vielen Danke im voraus,
sandra

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte untereinander vergleichen
19.02.2004 15:19:19
Bert
Ohne VBA aber mit Button? Das ist ein Widerspruch!
Bert
AW: Spalte untereinander vergleichen
19.02.2004 15:26:59
sandra
Dann mit Button und VBA ;-)
AW: Spalte untereinander vergleichen
19.02.2004 15:49:38
K.Rola
Hallo,
''Die zu vergleichende Spalte ist in diesem Beispiel Spalte A
Option Explicit

Sub Doppelte_rot()
Dim x As Long, lz As Long
lz = 65536: If [A65536] = "" Then lz = [A65536].End(xlUp).Row
For x = lz To 1 Step -1
If Application.CountIf(Range(Cells(1, 1), Cells(x, 1)), Cells(x, 1)) > 1 Then
Cells(x, 1).Interior.ColorIndex = 3
End If
Next
End Sub



Sub Doppelte_löschen()
Dim x As Long, lz As Long
lz = 65536: If [A65536] = "" Then lz = [A65536].End(xlUp).Row
For x = lz To 1 Step -1
If Cells(x, 1).Interior.ColorIndex = 3 Then
Cells(x, 1).Delete
End If
Next
End Sub

Gruß K.Rola
Anzeige
Danke ;-)
20.02.2004 08:15:05
sandra
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige