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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige