Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

IBAN in Excel ermitteln - Neue Funktion

Am 01.02.2014 tritt SEPA für alle Euro-Mitgliedsstaaten endgültig in Krafft. Zu diesem Zeitpunkt müssen alle bargeldlosen Zahlungen im EURO-Raum im SEPA-Format durchgeführt werden. SEPA steht für Single European Payment Area, auf deutsch für Einheitlicher Euro-Zahlungsverkehrsraum.

Author: Know-World

Author: Know-World: This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.

Um eine SEPA Überweisung durchführen zu können, wird anstatt der Kontonummer eine sogenannte IBAN und für die herkömmliche Bankleitzahl der BIC/Swift Code benötigt.

Die Abkürzung IBAN steht dabei für International Bank Account Number. Das Format einer IBAN wird durch die ISO-Norm ISO 13616-1:2007 Teil 1 festgelegt. BIC bedeutet Business Identifier Code. Jedes Kreditinstitut besitzt einen eigenen einmaligen BIC-Code zur eindeutigen Identifizierung. Auf der Webseite SWIFT.com kann der Swift/BIC Code aller europäischen Kreditinstitute gesucht werden.

Da der IBAN-Code einen eindeutigen Aufbau gem. ISO-Norm besitzt, lässt sich dieser auch automatisch aus Kontonummer und Bankleitzahl ermitteln.

Die folgende Grafik zeigt den Aufbau einer deutschen IBAN.

Eine deutsche IBAN ist also immer 22 Stellen lang und setzt sich aus einem 2-stelligen Ländercode, einer 2-stelligen Prüfziffer, der 8-stellingen Bankleitzahl und einer 10-stelligen Kontonummer zusammen.

Mit Hilfe der folgenden VBA-Funktion können für beliebige Kontonummern und Bankleitzahlen die IBAN Nummern generiert werden.

Function IBAN(KNR, BLZ)
'** Berechnung der IBAN aus Konto-Nr., Bankleitzahl und Länderkürzel

'** Dimensionierung der Variablen
Dim LC As String 'Ländercode alphanumerisch
Dim LC1, LC2 As Long
Dim LCnum As Long 'Ländercode numerisch
Dim BBAN, BBAN2 As String
Dim Laenge As Long
Dim PSumme As String

'** Funktion als veränderlich kennzeichnen
Application.Volatile

'** Festlegen des Ländercodes
LC = "DE"

'** 1. Ermittlung der Länderkennung
LC1 = Asc(Left(LC, 1)) - 64 + 9
LC2 = Asc(Right(LC, 1)) - 64 + 9
LCnum = LC1 & LC2 & "00"

'** 2. Ermittlung der BBAN
BBAN = BLZ & Format(KNR, "0000000000")
BBAN2 = BLZ & Format(KNR, "0000000000") & LCnum

'** 3. Ermittlung Prüfsumme nach Modulo 97
'** Anzahl Stelle der IBAN
Laenge = Len(BBAN2) - 9 - 7 - 1

'** Teil 1 bis 4
p1 = Left(BBAN2, 9) Mod 97
p2 = (p1 & Mid(BBAN2, 10, 7)) Mod 97
p3 = (p2 & Mid(BBAN2, 17, Laenge)) Mod 97
p4 = (p3 & Right(BBAN2, 1)) Mod 97
PSumme = Format(98 - p4, "00") 'Prüfsumme

'** 4. Rückgabe des Ergebnisses an die Funktion
IBAN = LC & PSumme & BBAN

End Function

Tragen Sie zu Ermittlung einer gültigen deutschen IBAN folgendes in eine Excel-Zelle ein: =IBAN(12345678; 76050101) ein. Damit wird diese gültige IBAN erzeugt: DE61760501010012345678.

Da es sich um eine benutzerdefinierte Excel-Funktion handelt, können Sie diese wie gewohnt verwenden. Sie können beispielsweise für eine Liste mit Kontonummer und Bankleitzahlen ganz einfach sämtliche IBAN erzeugen, indem Sie in die Funktion =IBAN(KontoNr;BLZ) in die erste Zeile der Liste eintragen und mit dem Autoausfüllkästchen nach unten ziehen.

Damit können Sie mit wenig Aufwand für alle Ihre Bankverbindungen die entsprechende IBAN direkt in Excel ermitteln.

   

Relevante Artikel

  • Ermittlung der Office-Version und Version des Betriebssystems

    108001 Mit diesem Makro kann geprüft werden, welche Office-Version bzw. welches Betriebssystem installiert ist! Im Programmablauf kann verzweigt werden und der Code entsprechend der installierten...

  • Broschüre VBA-Programmierung

    108002 Hier können Sie eine sehr schöne und lehrreiche Broschüre über VBA-Grundlagen downloaden. Diese Broschüre liegt auf dem Server der Fern Uni Hagen. Es lohnt sich auf jeden Fall, dieses Script...

  • Tastenkombinationen deaktivieren und aktivieren

    108039 In Excel sind einige Tastenkombination mit Funktionen hinterlegt. Mit der Tastenkombination [Alt] + [F11] können Sie die VBA-Entwicklungsumgebung starten. Möchten Sie diese Standardfunktion deaktivieren...

  • Funktion zur gleichzeitigen Addition und Multiplikation

    112017 Diese Funktion addiert die beiden angegebenen Wert und multipliziert sie in diesem Fall mit 2! In der Tabelle ist einfach folgendes einzugeben:=summemult(a1;a3)Public Function summemult(Wert1, Wert2)    summemult = (CDbl(Wert1) + CDbl(Wert2)) * 2End FunctionDieser Code ist...

  • Zahlen in Text umwandeln

    Mit Hilfe des nachfolgend vorgestellten VBA-Codes, können Zahlen (Ziffern) in Wörter (Zahlwörter) umgewandelt werden. So wird beispielsweise die Zahl 91.256.378 in das Zahlwort...