Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vergleich zweier dateien und übereinstimmgsanzeige

vergleich zweier dateien und übereinstimmgsanzeige
21.05.2004 13:46:51
soendi
hallo miteinander!
ich sollte 2 dateien miteinander vergleichen (artikelnummer-spalte). falls die artikelnummer in datei 1 auch in datei 2 vorkommt, sollte ich irgend eine markierung haben (feld-formatierung, hilfsspalten-eintrag, etc.)
ich hoffe, jemand kann mir bei meinem problem helfen!
https://www.herber.de/bbs/user/6580.xls (jedes blatt stellt eine eigene DATEI dar!)
gruss
soendi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vergleich zweier dateien und übereinstimmgsanzeige
Martin
Hallo Soendi,
angenommen die Vergleichsdaten stehen in Mappe2, Tabelle3, Zellen A1:A7. Erstelle eine Hilfsspalte in Datei1 und kopiere folgende Formel rein:
=WENN(ISTNV(SVERWEIS(A3;[Mappe2]Tabelle3!$A$1:$A$7;1;0));"";"X")
X falls gefunden, ansonsten leer.
Gruß
Martin Beck
AW: vergleich zweier dateien und übereinstimmgsanzeige
21.05.2004 15:43:57
soendi
hallo martin!
danke für die rasche hilfe, werde dies gleich mal probieren
gruss
soendi
AW: vergleich zweier dateien und übereinstimmgsanzeige
Kay
Hallo soendi,
vieleicht auch so:
Option Explicit

Sub vergleichen_farbe()
Dim arr(0, 0) As String
Dim r As Integer
Dim r1 As Integer
For r = 3 To Worksheets("2. Datei").Range("A65536").End(xlUp).Row
arr(0, 0) = Worksheets("2. Datei").Cells(r, 1)
For r1 = 3 To Worksheets("2. Datei").Range("A65536").End(xlUp).Row
If arr(0, 0) = Worksheets("1. Datei").Cells(r1, 1) Then
Worksheets("1. Datei").Cells(r, 1).Interior.ColorIndex = 27
End If
Next r1
Next r
End Sub

Gruß
Kay
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige