Prüfen Range auf leer



Excel-Version: 2000

Betrifft: Prüfen Range auf leer
von: Roland Köstring
Geschrieben am: 10.05.2002 - 12:07:09

Sehr geehrte Excel-Experten,
gibt es einen einfachen Weg per VBA,
einen Range auf "leer", d.h. dass alle Zellen
im Range leer sind, abzufragen?
Danke vorab!
Roland

  

Re: Prüfen Range auf leer
von: Rolf, Lgh.
Geschrieben am: 10.05.2002 - 14:49:43

Hallo Roland,
schau Dir das mal an: https://www.herber.de/mailing/175002h.htm.

Function CountLeer(rng As Range)
  Dim rngAct As Range
  Dim iCount As Integer
  For Each rngAct In rng.Cells
    If Not IsEmpty(rngAct) Then
      iCount = iCount + 1
    End If
  Next rngAct
  CountLeer = iCount
End Function

Gruss Rolf


  

Re: Prüfen Range auf leer
von: Roland Köstring
Geschrieben am: 10.05.2002 - 14:58:13

Hallo Rolf,
danke, das hilft!
Roland