ich habe die u.g. Function mit dem Ziel entwickelt, zu ermitteln wieviele Zahlen in einem Bereich aufeinander folgen. Leider ist die verwendete Variante mit For...Next sehr langsam instbesondere wenn nach Durchlauf eines Makros die Calculation xlAutomatic wieder eingeschaltet wird.
Hat jemand eine Idee, wie diese Function beschleunigt werden kann?
Viele Grüße
Matthias
Public Function MaxAnzahl_in_Folge(Bereich As Range)
Dim a As Integer, anzahl As Integer, inhalt As Integer
anzahl = Bereich.Rows.Count
MaxAnzahl_in_Folge = 0
For a = 1 To anzahl
If Bereich(a) <> "" Then
inhalt = inhalt + 1
Else: inhalt = 0
End If
If inhalt > MaxAnzahl_in_Folge Then
MaxAnzahl_in_Folge = inhalt
End If
Next a
End Function