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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spaltenvergleich

13.09.2007 12:28:13

Peter
AW: Spaltenvergleich

13.09.2007 13:16:18

Aileen
AW: Spaltenvergleich

13.09.2007 14:38:00

Peter

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Spaltenvergleich

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread