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

2 Tabellen vergleichen unterschiede kopieren

2 Tabellen vergleichen unterschiede kopieren
11.02.2004 15:12:23
Jörg
Hallo!
Ich möchte folgendes Problem per Makro lösen.
Ich habe in einer Excel Datei drei Tabellenblätter (Tabelle1, Tabelle2 und Tabelle3). Ich möchte nun Spalte B von Tabelle1 mit Spalte A von Tabelle2 vergleichen lassen. Alle Einträge, die in Tabelle2 nicht vorhanden sind, sollen dann in Tabelle3 kopiert werden. Hat da jemand von euch eine Idee? Ich habe schon im Archiv geschaut und etwas ähnliches gefunden. Leider habe ich von Excel und Makros nicht wirklich viel Ahnung. Daher verstehe ich das dort gegebene Beispiel nicht. Wäre echt klasse, wenn mir jemand von euch helfen könnte.
Gruß
Jörg

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Tabellen vergleichen unterschiede kopieren
11.02.2004 19:11:05
Beni
Hallo Jörg,
mit diesem Code sollte es funktionieren.
Gruss Beni

Sub fehlende_Daten_verschieben()
Dim nz, ls
Sheets(1).Select
For i = 1 To Cells(65536, 2).End(xlUp).Row
Wert = Cells(i, 2)
ls = Cells(i, 255).End(xlToLeft).Column
With Sheets(2).Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
With Sheets(3)
r = .Cells(65536, 2).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Destination:=.Cells(r, 1)
End With
End If
End With
Next i
End Sub

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige