title image


Smiley Re: Nur Zahlen zählen, keine Formel, kein Text
hi









Function blinder(bereich As Range) As Double

For Each zelle In bereich

    If IsNumeric(zelle) And Not (zelle.HasFormula) Then

        summe = summe + zelle.Value

    End If

Next

blinder = summe

End Function











das in ein Modul!!

alt+f11

einfügen modul

und den code reinkopieren



 BCDE4    5    65   7    8 5  9   510    11ghfgf   12    13    14    



 BCDE4    5    65   7    8 =B6  9   =blinder(B4:C14)10    11ghfgf   12    13    14    


Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: