Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bestimmung der ersten und letzten Zelle eines Filters

Gruppe

Bereich

Problem

Eine benutzerdefinierte Funktion soll die erste und letzte sichtbare Zeile einer gefilterten Tabelle ermitteln. Der zweite Parameter steht für erste oder letzte Zeile.

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

StandardModule: basMain

Function FirstLast(rng As Range, bln As Boolean) As Integer
   Dim iCounter As Integer
   If bln Then
      For iCounter = rng.Row + 1 To rng.Row + _
         rng.Rows.Count - 1
         If Rows(iCounter).Hidden = False Then Exit For
      Next iCounter
   Else
      For iCounter = rng.Row + rng.Rows.Count - 1 _
         To rng.Row + 1 Step -1
         If Rows(iCounter).Hidden = False Then Exit For
      Next iCounter
   End If
   FirstLast = iCounter
End Function