Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro gibt verglichene Werte mehrfach aus

Makro gibt verglichene Werte mehrfach aus
14.12.2005 15:47:44
Sebi
Hi,
hier ist ein Auszug aus einem Makro von dem ich mir erhofft habe, das es 2 Spalten mit einander vergleicht und mir die Werte, die nur in einer Spalte von den beiden Spalten (Spalte1) enthalten sind in einer neuen Spalte ausgibt.
Nur irgendwie stehen in der neuen Spalte die Werte, die nur in Spalte 1 sind und die Werte, die beide Spalten gemeinsam haben in 5- oder 6- facher Ausführung da.
Hier erstmal der Auszug:
dim sp1 as range
dim sp2 as range
dim spx as range
dim zelle1 as range
dim zelle2 as range
ziel_zeile1 = spx.Row
For Each zelle1 In sp1.Cells
If zelle1.Value = "" Then Exit For
For Each zelle2 In sp2.Cells
If zelle2.Value = "" Then Exit For
If zelle1.Value zelle2.Value Then
spx.Parent.Cells(ziel_zeile1, spx.Column).Value = zelle1.Value
ziel_zeile1 = ziel_zeile1 + 1
End If
Next
Next
Wo liegt mein Fehler, oder ist das überhaupt so nicht möglich?
Dankeschön
Sebi

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

Betreff
Datum
Anwender
Anzeige
AW: Makro gibt verglichene Werte mehrfach aus
ransi
hallo sebi
versuch mal so:


Option Explicit
Public Sub test()
    Dim zelle As Range
    Dim sp2 As Range
    Dim letztesp1 As Range
Set letztesp1 = Range("A65536").End(xlUp)
Set sp2 = Columns("B:B")
For Each zelle In Range(Cells(1, 1), letztesp1)
    If WorksheetFunction.CountIf(sp2, zelle) = 0 Then Range("C65536").End(xlUp).Offset(1, 0) = zelle
Next
End Sub


vergleicht jeden wert aus spalte A mit spalte B.
wenn nicht vorhanden schreibt in spalte C untereinander.
ransi
Anzeige
AW: Makro gibt verglichene Werte mehrfach aus
14.12.2005 16:34:24
UweB
Hallo Sebi,
probier es mal so
dim sp1 as range
dim sp2 as range
dim spx as range
dim zelle1 as range
dim zelle2 as range
dim found as boolean
ziel_zeile1 = spx.Row
found=false
' Vergleich Spalte 1 mit Spalte 2
For Each zelle1 In sp1.Cells
If zelle1.Value = "" Then Exit For
For Each zelle2 In sp2.Cells
If zelle2.Value = "" Then Exit For
If zelle1.Value = zelle2.Value then found = true
next
if not found
spx.Parent.Cells(ziel_zeile1, spx.Column).Value = zelle1.Value
ziel_zeile1 = ziel_zeile1 + 1
found = false
End If
Next
' Dann noch mal umgekehrt
Gruss Uwe
Anzeige
AW: Makro gibt verglichene Werte mehrfach aus
15.12.2005 16:26:44
Sebi
Dankeschön,
war hilfreich!
Sebi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige