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

Tabellen Vergleichen

Tabellen Vergleichen
16.07.2003 10:04:15
Micha
Hallo wer hilft mir bitte
Ich muß 2 Tabellen vergleichen. Beide Tabellen haben eine Zeilenanzahl > 40000.
Der wert in Tabelle1 Spalte 1 muß mit tabelle 2 Spalte 7 verglichen werden. Bei Übereinstimmung soll dieser Wert in Tabelle 3 gespeichert werden mit dem zusätzlichen Wert aus Tabelle 2 Spalte 4
Gruß Micha

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen Vergleichen
16.07.2003 12:10:24
Klaus-Dieter
Hallo Micha,
sieh mal hier nach, da gibt es ein fertiges Tool für deine Anforderung.
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

AW: Tabellen Vergleichen
16.07.2003 10:16:05
Stephan
Tabelle 3:
Zelle A1 folgende Formel einfügen und runterkopieren:
=wenn(Tabelle1!A1=Tabelle2!G1;Tabelle1!A1&" "&Tabelle2!D1;"keine Übereinstimmung")

AW: Tabellen Vergleichen
16.07.2003 10:22:23
micha
Hallo Stephan,
Danke für die antwort,
brauche jedoch einen VBA Code

AW: Tabellen Vergleichen
16.07.2003 11:05:19
Stephan

Sub test()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wks3 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Set wks3 = Worksheets("Tabelle3")
For i = 1 To 40000
If wks1.Cells(i, 1) = wks2.Cells(i, 7) Then
wks3.Cells(i, 1) = wks1.Cells(i, 1) & " " & wks2.Cells(i, 4)
Else
wks3.Cells(i, 1) = "keine Übereinstimmung"
End If
Next
End Sub

End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige