HERBERS Excel-Forum - die Beispiele

Thema: Nach Prüfziffer abprüfen

Home

Gruppe

UDF

Problem

Die Prüfziffer der in Spalte A eingetragenen Nummer soll geprüft werden. Prüfung als Formel und als VBA-Makro.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain

Function Module11(strNo As String) As Boolean
   Dim iCounter As Integer
   Dim iValue As Integer
   iValue = CInt(Left(strNo, 1)) * 2
   For iCounter = 2 To 7
      iValue = iValue + CInt(Mid(strNo, _
         iCounter, 1)) * (7 - iCounter + 2)
   Next iCounter
   iValue = 11 - (iValue Mod 11)
   If iValue = 10 Or iValue = 11 Then iValue = 0
   If iValue = CInt(Right(strNo, 1)) Then Module11 = True
End Function

Sub Eintragen()
   Dim iRow As Integer
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 3) = Module11(Cells(iRow, 1).Text)
      If Cells(iRow, 3) = False Then
         Cells(iRow, 1).Interior.ColorIndex = 3
      Else
         Cells(iRow, 1).Interior.ColorIndex = _
            xlColorIndexNone
      End If
      iRow = iRow + 1
   Loop
End Sub

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