Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatische Leerschrift bei IBAN

Forumthread: Automatische Leerschrift bei IBAN

Automatische Leerschrift bei IBAN
23.10.2015 11:15:54
Andreas
Hallo
ich habe das Problem, dass ich in eine Tabelle IBAN Nummer eintragen muss
Diese Sollen aber mit Leerschritt eingetragen werden
XXXX XXXX XXXX XXXX XXXX XX
Ist es möglich in Excel in den betreffenden Zellen einen VBA-Code einzutragen, der das automatisch macht, dann müsste ich immer nur die IBAN kopieren aus einer anderen Liste und würde mir dadurch viel Arbeit ersparen.
Gruß

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Leerschrift bei IBAN
23.10.2015 11:30:58
CK
Hi,
die Spalte wo das Eingetragen wird muss aber schon zuvor als Text formatiert sein da Excel nur 15 Stellen an Zahlen abbilden kann.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'Spalte A
If Len(Target) = 22 Then
Application.EnableEvents = False
Target.Value = "'" & Format(Target, "0000 0000 0000 0000 0000 00")
End If
End If
Application.EnableEvents = True
End Sub

Code im Tabellenblatt, Spalte oder Bereich ggf. anpassen
lg

Anzeige
AW: Automatische Leerschrift bei IBAN
23.10.2015 11:41:17
Andreas
ok Danke.
Wie ist es wenn, aber nur ein Bereich (A5-A30) so formatiert werden soll?

AW: Automatische Leerschrift bei IBAN
23.10.2015 11:44:09
CK
Hi,
Soll das Makro den ges.Bereich formatieren oder nach der Eingabe die Leeschritte setzen?
Im jetzigen Code wird direkt nach der Eingabe "formatiert"
lg

AW: Automatische Leerschrift bei IBAN
23.10.2015 11:45:57
Andreas
ok Danke.
Aber irgendwie macht er mir nichts, obwohl ich den Code in das richtige tabellenblatt kopiert habe und obwohl ich die Formatierung auf Text geändert habe.
Wie ist es wenn, aber nur ein Bereich (A5-A30) so formatiert werden soll?

Anzeige
AW: Automatische Leerschrift bei IBAN
23.10.2015 11:47:25
Andreas
Nein, es soll nur der Bereich von (A5-A30) nach dem beschreiben mit der IBAN so verändert werden, dass an den entsprechenden Stellen Leerschritt eingefügt werden.

AW: Automatische Leerschrift bei IBAN
23.10.2015 11:50:40
CK
Hi,
klar mein Fehler!
Das steht ja am Anfang das Land...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A5:A30")
If Not Intersect(rng, Target) Is Nothing Then
If Len(Target(1, 1)) = 22 Then
Application.EnableEvents = False
Target(1, 1).Value = Left(Target, 2) & Format(Right(Target, 20), "00 0000 0000 0000  _
0000 00")
End If
End If
Application.EnableEvents = True
End Sub

Anzeige
AW: Automatische Leerschrift bei IBAN
23.10.2015 11:53:52
Andreas
Super Danke:)

wenn super,dann zu...owT
23.10.2015 13:06:59
zu
;
Anzeige
Anzeige

Infobox / Tutorial

Automatische Leerschrift bei IBAN in Excel


Schritt-für-Schritt-Anleitung

Um eine IBAN in Excel automatisch mit Leerschritten zu formatieren, kannst Du den folgenden VBA-Code verwenden. Dieser sorgt dafür, dass beim Eingeben einer IBAN in die Zellen A5 bis A30 die Leerschritte automatisch eingefügt werden.

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

  2. Doppelklicke auf das Tabellenblatt, in dem Du die IBAN eintragen möchtest.

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

    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim rng As Range
       Set rng = Range("A5:A30")
       If Not Intersect(rng, Target) Is Nothing Then
           If Len(Target(1, 1)) = 22 Then
               Application.EnableEvents = False
               Target(1, 1).Value = Left(Target, 2) & Format(Right(Target, 20), "00 0000 0000 0000 0000 00")
           End If
       End If
       Application.EnableEvents = True
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Stelle sicher, dass die Zellen A5 bis A30 als Text formatiert sind. Klicke dazu mit der rechten Maustaste auf die Zellen, wähle "Zellen formatieren" und dann "Text".

Jetzt kannst Du IBAN-Nummern in die Zellen A5 bis A30 eingeben, und Excel wird sie automatisch im gewünschten Format mit Leerschritten anzeigen.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht, obwohl ich ihn korrekt eingefügt habe.

    • Lösung: Vergewissere Dich, dass die Zellen A5 bis A30 als Text formatiert sind, bevor Du die IBAN eingibst. Excel kann nur 15 Stellen an Zahlen abbilden, was zu Problemen führen kann.
  • Problem: Ich möchte die Formatierung in einem anderen Bereich.

    • Lösung: Ändere im VBA-Code die Zeile Set rng = Range("A5:A30") auf den gewünschten Zellbereich.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du eine Formel verwenden, um die IBAN zu formatieren:

  1. Gehe zu einer neuen Spalte (z.B. B5).
  2. Verwende die folgende Formel, um die IBAN zu formatieren:

    =TEXT(A5, "00 0000 0000 0000 0000 00")

Diese Methode erfordert jedoch, dass Du die IBAN in eine andere Zelle eingibst, und funktioniert nicht automatisch beim Eingeben.


Praktische Beispiele

Angenommen, Du gibst die IBAN DE89370400440532013000 in Zelle A5 ein. Nach der Eingabe formatiert Excel diese automatisch zu DE89 3704 0044 0532 0130 00.


Tipps für Profis

  • Event-Handling: Stelle sicher, dass das Event-Handling mit Application.EnableEvents = False und Application.EnableEvents = True korrekt gesetzt ist, um Endlosschleifen zu vermeiden.
  • Optimierung: Du kannst den Code erweitern, um auch andere Formate (z.B. für andere Länder) zu unterstützen, indem Du die Formatierungslogik anpasst.

FAQ: Häufige Fragen

1. Wie viele Ziffern hat eine IBAN?
Eine IBAN hat in der Regel 22 Ziffern für Deutschland. Dies kann aber in anderen Ländern variieren.

2. Kann ich die IBAN auch ohne VBA formatieren?
Ja, Du kannst eine Kombination aus Excel-Formeln verwenden, aber das erfordert eine zusätzliche Spalte und ist nicht so automatisiert wie mit VBA.

3. Was passiert, wenn ich mehr als 22 Ziffern eingebe?
Der Code überprüft die Länge und formatiert nur IBANs mit genau 22 Ziffern. Bei anderen Längen erfolgt keine Formatierung.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige