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

Tabellen mit doppelten Einträgen

Tabellen mit doppelten Einträgen
Hannes
Guten Tag!
ich würde bitte eure hilfe benötigen:
Problemstellung:
In Mappe1 befindet sich eine Tabelle1 mit den laufenden Werten
In Mappe2 gibt es ebenfalls eine Tabelle2
Ziel:
Es sollten nur die Werte aus Tabelle2, die nicht auch in Tabelle1 vorkommen, an Tabelle1 angehängt werden. d.h. kommt die Artikelnummer 123 in Tabelle2 Spalte1 auch in Tabelle1 Spalte1 vor, soll die gesamte Zeile1 aus Tabelle2 nicht angehängt werden. ist die Nummer aus Spalte1 nicht auch in Tabelle1 Spalte1 enthalten, dann soll die Zeile1 aus Tabelle2 an Tabelle1 angehängt werden.

Vielleicht weiss da jemand rat?
Vielen Dank
mfg
Hannes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellen mit doppelten Einträgen
22.04.2004 19:48:02
Beni
Hallo Hannes,
Gruss Beni

Sub Tabellen_mit_doppelten_Einträgen()
Windows("Mappe2.xls").Activate
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Workbooks("Mappe1").Worksheets("Tabelle1")
Set WS2 = Workbooks("Mappe2").Worksheets("Tabelle2")
For r = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(r, 1)
With WS1.Columns(1)
z = .Cells(65536, 1).End(xlUp).Row + 1
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
s = Cells(r, 255).End(xlToLeft).Column
Range(Cells(r, 1), Cells(r, s)).Copy Destination:=WS1.Cells(z, 1)
End If
End With
Next r
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige