Gruppe
UDF
Problem
Wie kann ich festellen, in wieviel Spalten bestimmte Zahlenreihen erscheinen?
StandardModule: basMain
Function HowMuch(rng As Range, ParamArray Data()) As Integer
Dim vTest As Variant
Dim iCol As Integer, iCounter As Integer
Dim iCount As Integer
Dim bln As Boolean
For iCol = 1 To rng.Columns.Count
For iCounter = 0 To UBound(Data)
vTest = Application.Match(Data(iCounter), _
rng.Columns(iCol), 0)
If IsError(vTest) Then
bln = True
Exit For
End If
Next iCounter
If bln = False Then
iCount = iCount + 1
Else
bln = False
End If
Next iCol
HowMuch = iCount
End Function