inspee
Goto Top

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

Content-Key: 303502

Url: https://administrator.de/contentid/303502

Ausgedruckt am: 29.03.2024 um 07:03 Uhr

Mitglied: 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
Mitglied: 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)
Mitglied: 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...
Mitglied: 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
Mitglied: 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 ??
Mitglied: InSpee
InSpee 03.05.2016 um 10:41:02 Uhr
Goto Top
nein, ich dreh hier nur gleich durch, weil ichs nicht hinkriege!
Mitglied: 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
Mitglied: InSpee
InSpee 03.05.2016 um 11:00:10 Uhr
Goto Top
vielen Dank. sorry, dass ich mich da so anstelle...