VBA Word IBAN zerschneiden

Hallo,

wie kann ich mit VBA eine IBAN in 4er Schritten zerschneiden, sodass die IBAN so aussieht: DExx xxxx xxxx xxxx xxxx xx. Bislang habe ich es hinbekommen die IBAN (Seriendruckfeld) einzulesen... Nun muss sie noch geteilt werden. Ich verzweifel...

Sub FeldinhaltAuslesen()

Dim X As String

X = ActiveDocument.MailMerge.DataSource.DataFields("RE_Objekt_IBAN").Value

End Sub

Wisst ihr wie es funktioniert? Danke für eure Hilfe. ;)

Gruß
Bianca

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 303502

Url: https://administrator.de/forum/vba-word-iban-zerschneiden-303502.html

Ausgedruckt am: 06.06.2025 um 17:06 Uhr

8 Kommentare

Neuester Kommentar

Die Mid() Funktion ist dein Freund ...
Damit extrahierst du die Teile von deinem String und kombinierst sie wieder mit zusätzlichen Leerzeichen.

strIBAN = Mid(X,1,4) & " " & MID(X,5,4) & " " & .....................usw.

Gruß jodel32

Hast du das nicht hier schon mal gefragt und als "gelöst" markiert?

Aufsplitten eines Seriendruckfeldes (IBAN in 4er Blöcken)

:D jaaa, da gings los. vba bringt mich allerdings noch um den Verstand...

vielen Dank.

An welcher Stelle muss ich das einfügen? so will er nicht...

Sub FeldinhaltAuslesen()

Dim X As String

X = ActiveDocument.MailMerge.DataSource.DataFields("Zahlungsschlüssel_Zahlungsschlüssel").Value
strIBAN = Mid(X,1,4) & " " & MID(X,5,4) & " " &
MsgBox X

End Sub

An welcher Stelle muss ich das einfügen?

Willst du uns veräppeln ??

nein, ich dreh hier nur gleich durch, weil ichs nicht hinkriege!

Immer diese Copy & Paster ...

Sub Test()
    x = ActiveDocument.MailMerge.DataSource.DataFields("RE_Objekt_IBAN").Value  
    strIBAN = Mid(x, 1, 4) & " " & Mid(x, 5, 4) & " " & Mid(x, 9, 4) & " " & Mid(x, 13, 4) & " " & Mid(x, 17, 4) & " " & Mid(x, 21, 2)  
    MsgBox strIBAN
End Sub