Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Quersumme
Benutzerdefinierte Funktion
 
Diese benutzerdefinierte Funktion ermittelt die Quersumme einer Zahl in einer Zelle
 
 
Tabelle2
 AB
1123
212345621
Formeln der Tabelle
B1 : =quersumme(A1)
B2 : =quersumme(A2)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
Der Code für ein allgemeines Modul
 
Public Function quersumme(Zelle) As Long
Dim intI As Integer
 
If IsNumeric(Zelle) Then
  For intI = 1 To Len(Zelle)
   quersumme = quersumme + Mid(Zelle, intI, 1)
  Next
End If
End Function