actionbrowser.com
Zu diesem Zahlenwert wird 9 addiert. Die Summe ergibt die Zahl, die den jeweiligen Buchstaben ersetzen soll [D = 13 (Position 4+9); E = 14 (Position 5+9)]. Anmerkung Grundsätzlich sind analog hierzu alle Buchstaben – sofern vorhanden - für die Ermittlung der IBAN durch die Zahl, die ihre Position im lateinischen Alphabet repräsentiert zzgl. + 9 zu ersetzen. Die Länderkennung wird um zwei Nullen ergänzt Zur Berechnung werden zuerst die ersten vier Stellen (Länderkennzeichen+ Prüfziffer) ans Ende gestellt. Da die Prüfziffer noch nicht bekannt ist, wird stattdessen "00" angenommen. Die Ermittlung der IBAN Prüfziffer erfolgt, indem die vier Stellen der Länderkennung ergänzt um die beiden Nullen ans Ende der Prüfsumme verschoben werden Mit der in Deutschland immer aus 24 Stellen bestehenden Zahl wird anschließend Modulo 97 genommen, d. IBAN in Excel ermitteln - Neue Funktion - Excel-Inside Solutions. h. es wird der Rest ermittelt, der sich bei der Teilung einer 24stelligen Zahl durch 97 ergibt. Dieses Ergebnis wird von der nach ISO Standard festgelegten Zahl 98 subtrahiert.
Seitenanfang
Code: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' IBAN zwecks besserer Lesbarkeit in 4er-Blöcken darstellen, ' die jeweils durch ein Leerzeichen getrennt werden ' ' Der Inhalt einer Zelle wird als IBAN interpretiert, ' wenn folgende Bedingungen erfüllt sind ' 1. Stelle 1 und 2 muss Großbuchstaben enthalten ' 2. Stelle 3 und 4 muss numerisch sein (Prüfziffer) ' 3. Stelle 5 bis 12 muss numerisch sein (BLZ) ' 4. Stelle 13 bis 34 muss numerisch sein (Kto-Nr. ) ' 5. Die Prüfziffer aus Stelle 3-4 muss idetisch mit der Prüfziffer sein, ' die sich aus Berechnung der Prüfziffer ergibt. ' Feb. 2018 / WS-53 Dim IBAN As String Dim x As Integer ' Hier kann eine Eingrenzung auf eine Spalte, sowie Zeile ab, sinnvoll sein ' 1. Prüfung If Not Mid(Cells(, ), 1, 1) >= "A" And _ Mid(Cells(, ), 1, 1) <= "Z" And _ Mid(Cells(, ), 2, 1) >= "A" And _ Mid(Cells(, ), 2, 1) <= "Z" Then Exit Sub End If ' 2. IBAN Rechner Volksbank Rhein-Erft-Köln eG. - 4. Prüfung - Die IF OR-Abfrage habe ich nicht hinbekommen If IsNumeric(Mid(Cells(, ), 3, 2)) And _ IsNumeric(Mid(Cells(, ), 5, 8)) And _ IsNumeric(Mid(Cells(, ), 13, 22)) Then Else ' 5.