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

Vergleich von zwei Dateien

Vergleich von zwei Dateien
07.07.2003 08:30:39
guenther94
Hallo Spezialisten,
ich habe zwei Dateien mit Daten (eine Zeile ist immer ein Datensatz) die in der ersten Spalte jeweils eine Nummer haben. Wie kann ich diese beiden Dateien anhand der Nummer vergleichen und die Spalten aus Datei eins in die Datei zwei kopieren. Ich hoffe es ist verständlich. Bin für jede Hilfe dankbar.
Gruß
Guenther94

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

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von zwei Dateien
07.07.2003 11:29:26
ChrisL
Hi Guenther
So ganz klar ist es mir nicht. Zeilen vergleichen, Spalten kopieren?
Mach mal ein Beispiel... Spalten etc. genau angeben.
Gruss
Chris

AW: Vergleich von zwei Dateien
07.07.2003 12:11:27
Guenther94
Hallo Chris,
danke für deine Antwort. Also ich habe zwei Dateien mit vier Spalten und ca.300 Zeilen. In beiden Dateien ist die Spalte A mit Nummern gefüllt. In beiden Dateien sind dann auch noch die Spalten B.C.und D gefüllt. Jetz würde ich gerne über die Nummern in Spalte A beide Dateien vergleichen und die jeweiligen Einträge der Spalten B,C und D in die Datei eins eintragen.
Gruß
Guenther94

AW: Vergleich von zwei Dateien
07.07.2003 12:48:19
ChrisL
Hi Guenther
Versuchs mal hiermit...
Option Explicit

Sub Vergleich()
Dim WBZiel As Workbook, WBQuelle As Workbook
Dim WSZiel As Worksheet, WSQuelle As Worksheet
Dim iZeile As Long
Application.ScreenUpdating = False
Set WBZiel = Workbooks("Ziel.xls")
Set WBQuelle = Workbooks("Quelle.xls")
Set WSZiel = WBZiel.Worksheets("Tabelle1")
Set WSQuelle = WBQuelle.Worksheets("Tabelle1")
For iZeile = 1 To WSQuelle.Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(WSZiel.Range("A1:A" & WSZiel.Range("A65536").End(xlUp).Row), WSQuelle.Cells(iZeile, 1)) = 0 Then
WSQuelle.Rows(iZeile).Copy WSZiel.Rows(WSZiel.Range("A65536").End(xlUp).Row + 1)
End If
Next iZeile
Application.ScreenUpdating = True
End Sub

Gruss
Chris

Anzeige
AW: Vergleich von zwei Dateien
07.07.2003 16:35:30
guenther94
Hallo Chris,
momentan geht noch gar nichts, aber ich denke das ist der richtige Ansatz. Ich werde versuchen das selbst hinzufummeln. Muss ja schliesslich noch was lernen. Sollte ich noch schwierigkeiten haben werde ich das ganze noch einmal einstellen. Danke für deine Hilfe!
Gruß
Guenther94

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige