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

Daten abgleichen und neue Werte markieren?

Daten abgleichen und neue Werte markieren?
09.07.2003 15:11:16
Martin
Hallo,
ich habe zwei Spalten, die die gleiche Art Informationen enthalten (6 stelligen Zahlen). Sagen wir mal der Einfachheit halber in Spalte A und B.
Ist es möglich ein Makro so zu programmieren, dass es in A bis ans Ende der Tabelle (dynamisch) durchläuft und diejenigen Zahlen, die NICHT ebenfalls in B vorkommen farblich markiert?
Gruss,
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Daten abgleichen und neue Werte markieren?
09.07.2003 15:24:28
ivan
HI MARTIN
ist es auch möglich das du die werte aus spalte b nach a kopierst??
und dann von a-z sortierst??
wenn das kein problem ist dann hab ich was für dich!

Sub DoppelteMarkieren()
Dim intRow As Integer
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
If Application.CountIf(Columns("D"), Cells(intRow, 1)) > 1 Then
Cells(intRow, 1).Interior.ColorIndex = 6'gelb
End If
intRow = intRow + 1
Loop
End Sub

gruss
ivan

AW: Daten abgleichen und neue Werte markieren?
09.07.2003 15:32:44
Martin
auch nicht schlecht, Kopieren ist aber nicht. Dennoch interessante Lösung.
Danke
Martin

AW: Daten abgleichen und neue Werte markieren?
09.07.2003 15:19:25
ChrisL
Hi Martin
Option Explicit

Sub Farbe()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B1:B" & Range("B65536").End(xlUp).Row), Cells(i, 1)) = 0 Then Cells(i, 1).Interior.ColorIndex = 3
Next i
End Sub

Gruss
Chris
PS: Mit bedingter Formatierung, Formel ZÄHLENWENN ginge es auch.

Anzeige
Hervorragend. Danke!! (oT)
09.07.2003 15:31:32
Martin
M.

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige