inspee

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
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 303502

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

Ausgedruckt am: 06.06.2025 um 17:06 Uhr

114757
114757 03.05.2016 aktualisiert um 09:44:37 Uhr
Goto Top
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
MrCount
MrCount 03.05.2016 um 09:49:21 Uhr
Goto Top
Hast du das nicht hier schon mal gefragt und als "gelöst" markiert? face-wink

Aufsplitten eines Seriendruckfeldes (IBAN in 4er Blöcken)
InSpee
InSpee 03.05.2016 um 10:14:23 Uhr
Goto Top
:D jaaa, da gings los. vba bringt mich allerdings noch um den Verstand...
InSpee
InSpee 03.05.2016 um 10:34:00 Uhr
Goto Top
vielen Dank. face-smile 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
114757
114757 03.05.2016 um 10:37:44 Uhr
Goto Top
An welcher Stelle muss ich das einfügen?
Willst du uns veräppeln ??
InSpee
InSpee 03.05.2016 um 10:41:02 Uhr
Goto Top
nein, ich dreh hier nur gleich durch, weil ichs nicht hinkriege!
114757
Lösung 114757 03.05.2016 aktualisiert um 12:40:10 Uhr
Goto Top
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
InSpee
InSpee 03.05.2016 um 11:00:10 Uhr
Goto Top
vielen Dank. sorry, dass ich mich da so anstelle...