title image


Smiley Re: Zählen von gefüllten Zellen
Hi!



Kopier das in ein Modul:



Public Function Anzahl3(Zellen As Range)

Dim Rn As Range

Dim Lg As Long

Const Mx = 2147483647

For Each Rn In Zellen

If Lg >= Mx Then MsgBox "Zu viele Zellen!", vbCritical

If Not Rn.Text = "" Then Lg = Lg + 1

Next Rn



Anzahl3 = Lg

End Function





statt

in der Ausgabezelle steht dann =Anzahl3(A1:A100)



Grüße



LXus

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: