Hallo Forum,
ich habe im Exel eine Formel die mir anhande der Zellen
=B6 - enthält den Länderkürzel (DE) / in ACC ist das [CountryCode]
=B13 - enthält die BLZ /in ACC ist das [BLZ]
=B14 - enthält die Konto Nr. / in ACC ist das [KontoNr]
den IBAN für die Bank errechnet!
=B6&TEXT(98-REST(REST(LINKS(REST(B13&LINKS(TEXT(B14;"0000000000"));97)&TEIL(TEXT(B14;"0000000000");2;8);9);97)&RECHTS(B14;LÄNGE(REST(B13&LINKS(TEXT(B14;"0000000000"));97)))&SUMME((CODE(TEIL(B6;{1.2};1))-{55.55})*{100.1})&"00";97);"00")&B13&TEXT(B14;"0000000000")
Wie bekomme ich das in mein ungebundenes Feld?
Sicherlich gibt es da auch einen etwas besserem Weg dieses zu lösen!?
=[CountryCode]&TEXT(98-REST(REST(LINKS(REST([BLZ]&LINKS(TEXT([KontoNr];"0000000000"));97)&TEIL(TEXT([KontoNr];"0000000000");2;8);9);97)&RECHTS([KontoNr];LÄNGE(REST([BLZ]&LINKS(TEXT([KontoNr];"0000000000"));97)))&SUMME((CODE(TEIL([CountryCode];{1.2};1))-{55.55})*{100.1})&"00";97);"00")&[BLZ]&TEXT([KontoNr];"0000000000")
ergibt einen Fehler: Der von angegebene Ausdruck enthält eine Funktion, für die eine falsche Anzahl von Argumenten angegeben ist!
Naja, ich habe wirklich nicht erwartet dass das funktioniert, aber ein versuch war es wert :(
Grüsse J.D
Danke,
hat sich erledigt...
hab was gefunden :D
Public Function func_IBAN(f_blz As String, f_konto As String) As String
On Error GoTo func_IBAN_err
Dim pruefstring As String
Dim f_konto_lang As String
f_konto_lang = Format(f_konto, "0000000000")
'für Deutschland DE00 - A=10, B=11 etc.
pruefstring = f_blz & f_konto_lang & "131400"
pruefnummer = CDec(pruefstring)
pruef_modulo1 = CDec(Int((pruefnummer / 97)))
pruef_modulo2 = 98 - CInt(pruefnummer - pruef_modulo1 * 97)
pruef_modulo2_string = Format(Str(pruef_modulo2), "00")
func_IBAN = "DE" & pruef_modulo2_string & f_blz & f_konto_lang
func_IBAN_exit:
Exit Function
func_IBAN_err:
MsgBox Err.Description
Resume func_IBAN_exit
End Function
Grüsse J.D