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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 303502
Url: https://administrator.de/contentid/303502
Ausgedruckt am: 29.03.2024 um 07:03 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.
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)
An welcher Stelle muss ich das einfügen?
Willst du uns veräppeln ??
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