Formatvorlage-Zelle-IBAN

[wolf_lupo]

Hi, ich möchte eine Formatvorlage erstellen, damit ein IBAN-Code besser lesbar ist. Bekomme ich leider alleine nicht hin.
Beispiel Zellinhalt: DE12345678901234567890
Angezeigt werden soll: DE12 3456 7890 1234 5678 90

Danke für die Unterstützung im voraus.

[karolus]

Hallo

Das geht nicht per Formatierung, aber es geht über ⇒Suchen und ersetzen
suche nach

Code: Alles auswählen

.{4}

ersetzen durch

Code: Alles auswählen

& 

[x] regulärer Ausdruck

[wolf_lupo]

Hi karolus,
danke für Deine Mühe - leider verstehe ich nicht, was Du mir sagen willst

[karolus]

Hi karolus,
danke für Deine Mühe - leider verstehe ich nicht, was Du mir sagen willst

⇒ Bearbeiten ⇒ Suchen und ersetzen ⇒

20260213_22h32m06s_grim.png (38.94 KiB) 235 mal betrachtet

⇒ alle ersetzen

[RPP63]

Moin!
Das Ersetzen regulärer Ausdrücke funktioniert bei mir nicht:


Mal mittels Formel (für aktuelle Calc-Versionen):

Code: Alles auswählen

=VERBINDEN(" ";;TEIL(B1;FOLGE(;6;;4);4))

(denn es sind 6 Vierer-Blöcke, bei denen der letzte automatisch abgeschnitten wird)

Vielleicht noch zusätzlich mit Prüfung, ob der Text einer deutschen IBAN entspricht:

Code: Alles auswählen

=WENN(REGAUS(B1;"DE[0-9]{20}")=B1;VERBINDEN(" ";;TEIL(B1;FOLGE(;6;;4);4));"keine deutsche IBAN")

Gruß Ralf

[RPP63]

Noch ergänzend:
Die Makro-Sprache von Calc kann ich nicht.
In Excel-VBA würde ich die direkte Umwandlung so durchführen.
(vielleicht kann das ja jemand für Calc übersetzen?)

Code: Alles auswählen

Sub IBAN_Space()
Dim IBAN$(1 To 6), i&
With ActiveCell
  If Len(.Value) = 22 And .Value Like "[A-Z][A-Z]" & String(20, "#") Then
    For i = 1 To 6
      IBAN(i) = Mid(.Value, i * 4 - 3, 4)
    Next
    .Value = Join(IBAN, " ")
    .EntireColumn.AutoFit
  End If
End With
End Sub

[wolf_lupo]

Hi, die Vorschläge treffen nicht mein Problem. Ich möchte keine weitere Zelle generieren, sondern eine Textzelle so formatieren, damit ich unmittelbar nach der Eingabe effizient eine Korrektur vornehmen kann. Meine AI hat mir auch einen plausiblen Vorschlag gemacht, der auch in der LO-Hilfe so beschrieben ist. Leider funktioniert der bei mir nicht; bzw. ich habe den Weg nicht richtig verstanden:

[Mondblatt24]

der auch in der LO-Hilfe so beschrieben ist.

Hast du einen Link zu der Stelle?

[RPP63]

Passiert schon mal, wenn die KI halluziniert …
Will heißen:
In Excel-VBA gibt es
ActiveCell = Format(ActiveCell, "@@@@ @@@@ @@@@ @@@@ @@@@ @@")
Dies funktioniert aber nicht in der GUI,
weder in Excel noch in Calc

[karolus]

Hallo

@Ralf:

Code: Alles auswählen

=WENN(REGAUS(A1;"^DE\d{20}$")=A1;REGAUS(A1;"(.{4})";"$1 ";"g");"nix")
=REGAUS(A1;"((DE\d{2})|(\d{4}))";"$1 ";"g")