title image


Smiley Re: VBA Mehrere Spalten auf gleiche Strings vergleichen
Hi,



Beispiel für die Spalten 1 bis 4, sollte leicht anzupassen sein.



Option Explicit

Sub alle_vier()

Dim c As Range, s As Integer, f As Range, z As Long

For Each c In Columns(1).Cells

If Not IsEmpty(c) Then

z = 1

For s = 2 To 4

Set f = Columns(s).Find(c)

If Not f Is Nothing Then z = z + 1

Next

If z = 4 Then MsgBox c

End If

z = 0

Next

End Sub



mfg xla

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: