VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorkommen von Zahlenreihen in Spalten

Gruppe

UDF

Bereich

Bereich

Thema

Vorkommen von Zahlenreihen in Spalten

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Bereich