VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bestimmung der ersten und letzten Zelle eines Filters

Gruppe

UDF

Bereich

Bereich

Thema

Bestimmung der ersten und letzten Zelle eines Filters

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

    


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