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

  • Zellinformationen per Funktion auslesen

    112019 Diese Funktion liest verschiedene Zellinformationen aus und zeigt diese an.Public Function zellinfo(zelle As Range, i As Integer)Select Case iCase 1    zellinfo = zelle.AddressCase 2    zellinfo = zelle.ValueCase 3    zellinfo = zelle.FormulaLocalCase 4    If zelle.HasFormula = True Then        zellinfo = "Formel"    ElseIf IsNumeric(zelle) Then        zellinfo = "Zahl"    Else: zellinfo = "Text"    End IfCase Else    zellinfo = "nicht vergeben"End SelectEnd FunctionDie Funktion rufen Sie wie folgt auf:=zellinfo(zelle;paramter) Folgende...

  • Markierte Zellen summieren

      Mit dieser Prozedur, werden alle markierten Zellen summiert. Dabei wird geprüft, ob die einzelnen Zellen eine Zahl enthalten. Nur dann wird die Zelle in die Summenbildung mit einbezogen.   Geben Sie...

  • 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...

  • VBA-Makro in externer Arbeitsmappe aufrufen

    Sie möchten aus einer anderen (nicht der aktiven) Arbeitsmappe eine VBA-Prozedur aufrufen und ausführen? Das geht ganz einfach, nutzen Sie dafür den folgender Code: Sub MakroAufrufen() Application.Run...

  • UserName ermitteln

    Dieses Makro liest den UserName (Benutzernamen) des eingeloggten Benutzers aus. Dies ist für Dateien/Programme interessant, die nur für bestimmte Benutzer freigegeben werden sollen. Damit lässt sich eine...