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
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 VariantDim l As Integer, m As Integer, n As Integera = 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 NextNextIf n > 0 Then MsgBox Join(c, ",")End IfEnd Sub Gruß Sepp Anzeige