Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen vergleichen

Forumthread: Zahlen vergleichen

Zahlen vergleichen
16.10.2007 23:14:00
Sebastian
Hallo Profis,
ich möchte gerne per vba prüfen, ob in zwei aufeinanderfolgenden Zellen die gleiche Zahl vorkommt. Beispiel:
A1: 1, 3, 5, 13, 27, 53, 85, 114, 135
B1: 5, 7, 53, 66, 114
Hier sind also 5, 53 und 114 doppelt
Vielen Dank,
bastl

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen vergleichen
16.10.2007 23:49:20
Josef
Hallo Bastl,
probier mal.
Sub vergleich()
Dim a As Variant, b As Variant, c() As Variant
Dim l As Integer, m As Integer, n As Integer

a = Split(Replace(Range("A1"), " ", ""), ",")
b = Split(Replace(Range("A2"), " ", ""), ",")

For l = 0 To UBound(a)
    For m = 0 To UBound(b)
        If b(m) = a(l) Then
            Redim Preserve c(n)
            c(n) = b(m)
            n = n + 1
        End If
    Next
Next

If n > 0 Then
    MsgBox Join(c, ",")
End If

End Sub

Gruß Sepp

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige