Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1328to1332
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
Inhaltsverzeichnis

Spaltenvergleich in zwei Tabellen

Spaltenvergleich in zwei Tabellen
27.08.2013 17:15:40
Peter
Hallo,
wer kann helfen? Mein Versuch funktioniert leider nicht.
Ich möchte per VBA den Inhalt der Spalte 2 der Tab. „Neu“ mit dem Inhalt
der Spalte 2 der Tab. „Gesamt“ vergleichen.
Das Ergebnis (gleiche Zellinhalte und ungleiche Zellinhalte sollen) soll
in Spalte 10 der Tab. „Gesamt“ ausgegeben werden.
-siehe Modul „Test1“
Ich habe im Netz die Variante mit der „WorksheetFunction.CountIf“
gefunden. Um diese meinen Vorhaben anzupassen reicht mein
Anfängerwissen nicht aus.
-siehe Modul „Test2“
https://www.herber.de/bbs/user/87055.xls
Danke im voraus
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenvergleich in zwei Tabellen
27.08.2013 17:41:30
Balder
Hallo Peter,
hier der Quelltext:
Sub Vergleich_Test1()
Dim LngZeileNeu As Long
Dim LngZeileGesamt As Long
Dim i As Long
Dim j As Long
LngZeileNeu = Sheets("Neu").Cells(Sheets("Neu").Cells.Rows.Count, 2).End(xlUp).Row
LngZeileGesamt = Sheets("Gesamt").Cells(Sheets("Gesamt").Cells.Rows.Count, 2).End(xlUp).Row
For i = 2 To LngZeileGesamt
For j = 2 To LngZeileNeu
If Sheets("Gesamt").Cells(i, 2) = Sheets("Neu").Cells(j, 2) Then
Sheets("Gesamt").Cells(i, 10) = "vorhanden"
Exit For
Else
Sheets("Gesamt").Cells(i, 10) = "nicht vorhanden"
End If
Next
Next
End Sub
oder hier die Datei: https://www.herber.de/bbs/user/87056.xlsm
Gruß Balder
http://www.youtube.com/BaldersWelt

Anzeige
AW: Spaltenvergleich in zwei Tabellen
27.08.2013 18:58:59
Peter
Hallo Balder,
vielen Dank für die schnelle Hilfe.
Leider ist es noch nicht das, was ich benötige.
Es soll nicht nur der Zellinhalt von
gleichen Zellinhalten mit Bemerkung angezeigt werden
sondern auch der Zellinhalt von den Zellen,
die ungleichen Zellen mit Bemerkung
(ohne Leerzellen).
https://www.herber.de/bbs/user/87058.xls
Peter

AW: Spaltenvergleich in zwei Tabellen
27.08.2013 19:06:12
Balder
Hallo Peter,
im Prinzip willst du doch die Einträge im Blatt "Neu" vorhanden sind, welche es im Blatt "Gesamt" noch nicht gibt filtern!? Wenn ja, was soll denn dann geschehen? ...Die Einträge in Gesamt hinzufügen... Sonst kann ich keinen Zusammenhang finden...
Gruß Balder
http://www.youtube.com/BaldersWelt
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige