Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige