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
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
Comment
Share
Share on Facebook
Share on X (Twitter)
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-ID: 303502
Url: https://administrator.de/forum/vba-word-iban-zerschneiden-303502.html
Printed on: May 13, 2025 at 16:05 o'clock
8 Comments
Latest comment
Die Mid() Funktion ist dein Freund ...
Damit extrahierst du die Teile von deinem String und kombinierst sie wieder mit zusätzlichen Leerzeichen.
Gruß jodel32
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. 
Hast du das nicht hier schon mal gefragt und als "gelöst" markiert? 
Aufsplitten eines Seriendruckfeldes (IBAN in 4er Blöcken)
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? 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
1
vielen Dank. sorry, dass ich mich da so anstelle...