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

Vergleichen zweier Tabellen

Vergleichen zweier Tabellen
03.09.2003 09:36:44
Heiko Hofmann
Hallo,

ich habe zwei Tabellen, die miteinander verglichen werden sollen.
Die erste Tabelle ist eine Mustertabelle/Vorlage, in die bestimmte Werte der zweiten Tabelle, welche sich monatlich ändert, aufgenommen werden sollen.

Bsp.:

Tabelle 1 (Statisch)

SC ABT JAHR
50 200 1999
50 200 2000
60 210 1999
70 100 2001

Tabelle 2 (Variabel)
SC ABT JAHR WERT ANZAHL1 ANZAHL2
50 200 1999 100,00 10 33
50 200 2000 400,55 43 205
60 210 1999 532,00 1 2

Ich möchte also die Werte dreier Spalten zwischen zwei Tabellen miteinander abgleichen und dann drei Werte der zweiten Tabelle in die erste übernehmen. Dabei kann es sein, daß bestimmte Kombinationen in der zweiten Tabelle gar nicht vorkommen, wie in dem Beispiel die Kombination 70,100,2001. Dann darf es aber keinen Fehler geben.
Ideal wäre es, wenn die zweite Datei per Dialog wählbar wäre, also eine Dialogbox sich öffnet, in der man die "Input"-Datei auswählen kann. Danke.

Gruß
Heiko Hofmann

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleichen zweier Tabellen
03.09.2003 13:43:40
ChrisL
Hi Heiko

https://www.herber.de/bbs/user/850.xls
Option Explicit


Sub Vergleich()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iiZeile As Long
Application.ScreenUpdating = False
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For iZeile = 2 To WS1.Range("A65536").End(xlUp).Row
For iiZeile = 2 To WS2.Range("A65536").End(xlUp).Row
If WS1.Cells(iZeile, 1) = WS2.Cells(iiZeile, 1) And _
WS1.Cells(iZeile, 2) = WS2.Cells(iiZeile, 2) And _
WS1.Cells(iZeile, 3) = WS2.Cells(iiZeile, 3) Then
WS1.Cells(iZeile, 4) = WS2.Cells(iiZeile, 4)
WS1.Cells(iZeile, 5) = WS2.Cells(iiZeile, 5)
WS1.Cells(iZeile, 6) = WS2.Cells(iiZeile, 6)
Exit For
End If
Next iiZeile
Next iZeile
Application.ScreenUpdating = True
End Sub

Gruss
Chris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige