Tabellenblätter vergleichen +

Forumthread: Tabellenblätter vergleichen +

11.08.2005 17:31:17

Oli

https://www.herber.de/bbs/user/25554.xls
HAllo,
ich möchte das Excel das Tabellenblatt FG mit dem Tabellenblatt AR vergleicht. sollte ein WErt in beiden DAteien sein, so soll nichts passieren, wenn der wert aber nur in einer von beiden steht soll in Tabellenblatt 3 dieser Wert eingefügt werden. Beispiel:
AR FG Tabelle 3
Wert= 1234/04 nicht Vorhanden 1234/04
Und das für jeweils das Gesamtetabellenblatt.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter vergleichen +

12.08.2005 09:14:49

Beni
AW: Tabellenblätter vergleichen +

12.08.2005 15:25:49

Oli
AW: Tabellenblätter vergleichen +

12.08.2005 16:02:49

Beni

AW: Tabellenblätter vergleichen +

12.08.2005 09:14:49

Beni

Hallo Oli,
dieser Code sollte das Ergebnis bringen.
Gruss Beni


Sub Oli()
Dim Wert As Variant
Dim lz As Long
With Sheets("FG")
For i = 1 To .Cells(65536, 2).End(xlUp).Row
Wert = .Cells(i, 2)
Set c = Sheets("AR").Columns(2).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in FB vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 1).End(xlUp).Row
Wert = .Cells(i, 1)
Set c = Sheets("Fg").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp1 vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 3).End(xlUp).Row
Wert = .Cells(i, 3)
Set c = Sheets("FG").Columns(3).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp3 vorhanden"
End With
End If
Next i
End With
End Sub

AW: Tabellenblätter vergleichen +

12.08.2005 15:25:49

Oli

Hi, leider klappt es nicht so wie gewollt. WEnn man nach dem Makro in Tabelle 3 guckt wird angezeigt das 05249/04 nur in FG(FB)-tabelle vorhanden wäre, das ist aber falsch. Die Zahl ist in beiden Tabellen und soll deshalb in tabelle 3 gar nicht vorkommen! Nur die, die lediglich in einer von beiden Tabellen vorkommen sollen in das Tabellenblatt 3.

AW: Tabellenblätter vergleichen +

12.08.2005 16:02:49

Beni

Hallo Oli,
jetzt sollte es funktionieren.
Gruss Beni


Sub Oli()
Dim Wert As Variant
Dim lz As Long
With Sheets("FG")
For i = 1 To .Cells(65536, 2).End(xlUp).Row
Wert = .Cells(i, 2)
Set c = Sheets("AR").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in FB vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 1).End(xlUp).Row
Wert = .Cells(i, 1)
Set c = Sheets("Fg").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp1 vorhanden"
End With
End If
Next i
End With
With Sheets("AR")
For i = 1 To .Cells(65536, 3).End(xlUp).Row
Wert = .Cells(i, 3)
Set c = Sheets("FG").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
With Sheets("Tabelle2")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Wert: .Cells(lz, 2) = "nur in AR Sp3 vorhanden"
End With
End If
Next i
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellenblätter vergleichen +

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread