Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vorkommen von Zahlenreihen in Spalten

Gruppe

Bereich

Problem

Wie kann ich festellen, in wieviel Spalten bestimmte Zahlenreihen erscheinen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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