Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

IBAN

Forumthread: IBAN

IBAN
01.05.2014 14:59:33
Friedrich
Hallo zusammen,
ich suche mir gerade eine Wolf nach einer Lösung um aus einer unformatierten IBAN (DE12345678901234567890) eine formatierte IBAN zu erzeugen (DE12 3456 7890 1234 5678 90. Gibt es da ein kleines Makro,das sich gut anpassen lässt? Den ich habe keine Lust jedesmal mit Hilfe der Formel "TEIL" zu arbeiten.
Vielen Dank für Eure Untersützung.
Friedrich

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IBAN
01.05.2014 15:24:09
Friedrich
Hallo Hajo,
Danke für den Link. Leider habe ich darin nicht die Antwort auf meine Frage gefunden. Es handelt sich bei meinem Problem um eine reine Formatierungsthematik. Die Prüfung der IBAN-Nummer an sich ist nicht notwendig.
Trotzdem nochmals Danke für die schnelle Antwort.
Friedrich

Anzeige
AW: IBAN
01.05.2014 15:33:02
Hajo_Zi
Hallo Friedrich,
Du könntest nur Zahlen so formatieren, da Excel aber nur 15 Stellen hat, hast Du da Probleme.
Gruß Hajo

AW: IBAN
01.05.2014 15:57:06
Tino
Hallo,
hier mal ein Code zum testen.
Sub IPAN_Format()
Dim n&, Land$, nZahl, ArDaten
Dim Regex As Object, objMatch As Object

Set Regex = CreateObject("Vbscript.Regexp")

With Regex
  .MultiLine = False
  .Pattern = "\D+|\d+"
  .Global = True
End With

With Tabelle1 'Tabelle anpassen 
    'Datenbereich 
    With .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        ArDaten = .Resize(, 2).Value2
        Redim Preserve ArDaten(1 To Ubound(ArDaten), 1 To 1)
        For n = 1 To Ubound(ArDaten)
            If ArDaten(n, 1) <> "" Then
               Set objMatch = Regex.Execute(Replace(ArDaten(n, 1), " ", ""))
               If objMatch.Count = 2 Then
                Land = objMatch(0)
                nZahl = objMatch(1)
                ArDaten(n, 1) = Land & Format(nZahl, "00 0000 0000 0000 0000 00")
               End If
            End If
        Next n
        
        .Value = ArDaten
    End With
End With

End Sub
Gruß Tino

Anzeige
@ Tino,..
01.05.2014 16:37:55
Matze
Hi,
..ich hab das nicht getestet, aber auf den ersten Blick vermute ich einen Tippfehler in:
Set Regex = CreateObject("Vbscript.Regexp")
Matze
Schönen Restfeiertag

@ Tino,..,alles gut, erledigt läuft ! owT
01.05.2014 16:42:19
Matze
;
Anzeige

Infobox / Tutorial

IBAN in Excel formatieren


Schritt-für-Schritt-Anleitung

Um eine IBAN in Excel zu formatieren, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub IPAN_Format()
        Dim n&, Land$, nZahl, ArDaten
        Dim Regex As Object, objMatch As Object
    
        Set Regex = CreateObject("Vbscript.RegExp")
    
        With Regex
            .MultiLine = False
            .Pattern = "\D+|\d+"
            .Global = True
        End With
    
        With Tabelle1 ' Tabelle anpassen 
            With .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
                ArDaten = .Resize(, 2).Value2
                ReDim Preserve ArDaten(1 To Ubound(ArDaten), 1 To 1)
                For n = 1 To Ubound(ArDaten)
                    If ArDaten(n, 1) <> "" Then
                        Set objMatch = Regex.Execute(Replace(ArDaten(n, 1), " ", ""))
                        If objMatch.Count = 2 Then
                            Land = objMatch(0)
                            nZahl = objMatch(1)
                            ArDaten(n, 1) = Land & Format(nZahl, "00 0000 0000 0000 0000 00")
                        End If
                    End If
                Next n
    
                .Value = ArDaten
            End With
        End With
    
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem du auf Entwicklertools > Makros klickst und das IPAN_Format-Makro auswählst.

Das Makro formatiert die IBAN in das gewünschte Format (z.B. DE12 3456 7890 1234 5678 90).


Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht, da der Regex-Objekt nicht erstellt werden kann.
Lösung: Stelle sicher, dass du die richtige Schreibweise verwendest: Set Regex = CreateObject("Vbscript.RegExp"). Achte auf den genauen Text und die Groß-/Kleinschreibung.

Fehler: Excel zeigt nur 15 Ziffern an.
Lösung: Excel hat eine Begrenzung auf 15 signifikante Ziffern. Stelle sicher, dass du die IBAN als Text formatierst, bevor du das Makro ausführst.


Alternative Methoden

Falls du kein VBA nutzen möchtest, kannst du die IBAN auch manuell formatieren:

  1. Verwende die Formel =LINKS(A1;4) & " " & TEIL(A1;5;4) & " " & TEIL(A1;9;4) & " " & TEIL(A1;13;4) & " " & RECHTS(A1;2) in einer Zelle, um die IBAN zu formatieren.
  2. Ersetze A1 mit der Zelle, die die unformatierte IBAN enthält.

Diese Methode ist zwar weniger elegant, funktioniert jedoch ohne Makros.


Praktische Beispiele

  • Beispiel einer unformatierten IBAN: DE12345678901234567890
  • Formatierte IBAN nach der Anwendung des Makros: DE12 3456 7890 1234 5678 90

Du kannst die IBAN auch nach dem Formatieren in einer neuen Zelle speichern, um die Daten sauber zu halten.


Tipps für Profis

  • Verwende einen IBAN Checker, um die Validität der IBAN zu prüfen, bevor du sie formatierst.
  • Du kannst das Makro erweitern, um automatisch Leerzeichen in die IBAN einzufügen, wenn du sie aus einer Datenbank importierst.
  • Achte darauf, die IBAN-Formatierung immer vor der Verwendung in Berechnungen oder Analysen anzuwenden, um Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die IBAN in Excel prüfen?
Du kannst die IBAN mit einem IBAN Checker oder durch die Verwendung von speziellen Formeln zur Validierung prüfen.

2. Was mache ich, wenn die IBAN mehr als 15 Ziffern hat?
In diesem Fall solltest du sicherstellen, dass die IBAN als Text formatiert ist, um die vollständige Zahl zu erhalten. Andernfalls könnte Excel die zusätzlichen Ziffern abschneiden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige