ExelFormel in Access Bericht!??? (IBAN von Bank errechnen)...

[J.D]

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!

Code [Auswählen] Erweitern

=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!?

Code [Auswählen] Erweitern

=[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

[J.D]

Danke,

hat sich erledigt...
hab was gefunden

Code [Auswählen] Erweitern

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