VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Quersumme berechnen

Home Zurück Vor
Download der Beispiel-Arbeitsmappe

Gruppe

UDF

Bereich

Numerisch

Thema

Quersumme berechnen

Problem

Wie kann ich in Excel die Quersumme einer Zahl berechnen?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




StandardModule: basMain

Function CheckSum(lValue As Long)
    Dim iCounter As Integer, iSum As Integer
    lValue = Fix(lValue)
    For iCounter = 1 To Len(CStr(lValue))
        iSum = CInt(iSum) + CInt(Mid(lValue, iCounter, 1))
    Next iCounter
    CheckSum = iSum
End Function

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

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)
Spezialfilter Alphanumerische Kriterien
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen
vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic
Alphanumerische Werte aus 1 Spalte auslesen
Alphanumerische Nummern in TXT Datei speichern
Marko bei numerischer Zelländerung
UDF- Beschreibung
Automatische alphanumerische Numerierung
Berechnungsdauer einer UDF messen
Hintergrudfarbe ändern??? Finde keine Lösung :-(
Probleme mit IsNumeric, Code per UDF
Numerisches Format
UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten
nach Worksheet_Change werden UDF nicht ausgewertet
Zahlenliste wird alphanumerisch sortiert
Excel anhalten bei UDF
UDF
Numerischer Wert aus Textfeld
UDF, Rückgabewert Text anstelle Zahl
Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF
Numerisch?
textBox1 prüfen ob numerische eingabe
Extrahierung von alphanumerischen Zeichen aus Ansc
Alphanumerischer Wert - Buchstaben ausschneiden
alphanumerisch sortieren mit VBA
Numerische bibliothek
Daten numerisch auslesen und ordnen!
Werte einer UDF werden nicht aktualisiert
Numerischen Wert in String erkennen
UF: Numerische Dateneingabe überlistet
Makro, ab der ersten Numerischen Zahl ausschneiden
Daten Alphanumerisch sortieren
Spaltenbezeichnung von numerisch auf alphanumm.
nur numerisch werte in textbox
Aufruf von UDF mit Array
Werte alphanumerisch sortieren - ohne VBA sondern
Erstes Numerisches Zeichen in Zeichenkette
TextBox numerisch
UDF: Semikolon vs Komma
numerische Eingabe
alphanumerische zahlen umwandeln
Numerische Zellinhalt in ein Datum umwandeln
Datensatzprüfung numerisch/alphanumerisch in Makro
alphanumerische Werte: benutzerdefiniertes Format
UDF, erkennen in welcher Zelle die UDF steht