Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spaltenvergleich

Forumthread: Spaltenvergleich

Spaltenvergleich
13.09.2007 11:32:11
Aileen
Hallo Zusammen,
ich hab ein kleines Problem und hoffe das mit jemand weiter helfen kann. Ich möchte zwei Spaltenvergleichen und der Unterschied soll an die 2. Spalte angefügt werden. Das habe ich auch soweit hinbekommen:

Sub Spaltenvergleich()
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To intLastRow
Wert = Cells(i, 1)
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Set B = Columns(2).Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If B Is Nothing Then Cells(lRow, 2).Value = Wert
Next i
End Sub


Das Problem was ich habe ist jetzt, dass die beiden Spalten in unterschiedlichen Tabellenblättern sind. Kann mir jemand sagen, wie ich das machen kann. Viele Dank schon mal.
Viele Grüße
Aileen

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenvergleich
13.09.2007 12:28:13
Peter
Hallo Aileen,
du setzt einfach Worksheets("Tabellen-Name"). vor die Cells oder Range oder Columns Angaben.
Gruß Peter

AW: Spaltenvergleich
13.09.2007 13:16:18
Aileen
Hallo Peter,
vielen Dank für deine Antwort, aber leider bekomme ich das ganze nicht zum laufen. Ich habe jetzt folgendes, aber ich vermute, dass ich da noch einen dicken Denkfehler habe. Wäre toll wenn du mir noch mal helfen könntest. In Tabelle2 in Spalte B sollen die Werte dann eingetragen werden.

Sub Spaltenvergleich()
intLastRow = Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Row
For i = 1 To intLastRow
Wert = Tabelle2.Cells(i, 1)
Dim lRow As Long
lRow = Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row + 1
Set B = Tabelle2.Columns(2).Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If B Is Nothing Then Tabelle2.Cells(lRow, 2).Value = Wert
Next i
End Sub


Viele Grüße
Aileen

Anzeige
AW: Spaltenvergleich
13.09.2007 14:38:00
Peter
Hallo Aileen,
ohne es getestet zu haben (ich kann deine Daten nur mühsam nachbilden) so:


Option Explicit
Public Sub Spaltenvergleich()
Dim lLastRow  As Integer
Dim lZeile    As Long
Dim lRow      As Long
Dim Wert      As Variant
Dim B         As Range
   With Worksheets("Tabelle1")
      lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
      For lZeile = 1 To lLastRow
         Wert = Worksheets("Tabelle2").Cells(lZeile, 1)
         lRow = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
         Set B = Worksheets("Tabelle2").Columns(2).Find(Wert, _
            LookIn:=xlValues, LookAt:=xlWhole)
         If B Is Nothing Then Worksheets("Tabelle2").Cells(lRow, 2).Value = Wert
      Next lZeile
   End With
End Sub 


Gruß Peter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige