Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA Word IBAN zerschneiden

Mitglied: InSpee

InSpee (Level 1) - Jetzt verbinden

03.05.2016 um 09:37 Uhr, 771 Aufrufe, 8 Kommentare, 1 Danke

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
Mitglied: 114757
03.05.2016, aktualisiert um 09:44 Uhr
Die Mid() Funktion ist dein Freund ...
Damit extrahierst du die Teile von deinem String und kombinierst sie wieder mit zusätzlichen Leerzeichen.

01.
strIBAN = Mid(X,1,4) & " " & MID(X,5,4) & " " & .....................usw.
Gruß jodel32
Bitte warten ..
Mitglied: MrCount
03.05.2016 um 09:49 Uhr
Hast du das nicht hier schon mal gefragt und als "gelöst" markiert?

https://www.administrator.de/forum/aufsplitten-seriendruckfeldes-iban-4e ...
Bitte warten ..
Mitglied: InSpee
03.05.2016 um 10:14 Uhr
:D jaaa, da gings los. vba bringt mich allerdings noch um den Verstand...
Bitte warten ..
Mitglied: InSpee
03.05.2016 um 10:34 Uhr
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
Bitte warten ..
Mitglied: 114757
03.05.2016 um 10:37 Uhr
An welcher Stelle muss ich das einfügen?
Willst du uns veräppeln ??
Bitte warten ..
Mitglied: InSpee
03.05.2016 um 10:41 Uhr
nein, ich dreh hier nur gleich durch, weil ichs nicht hinkriege!
Bitte warten ..
Mitglied: 114757
LÖSUNG 03.05.2016, aktualisiert um 12:40 Uhr
Immer diese Copy & Paster ...
01.
Sub Test()
02.
    x = ActiveDocument.MailMerge.DataSource.DataFields("RE_Objekt_IBAN").Value
03.
    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)
04.
    MsgBox strIBAN
05.
End Sub
Bitte warten ..
Mitglied: InSpee
03.05.2016 um 11:00 Uhr
vielen Dank. sorry, dass ich mich da so anstelle...
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Excel-VBA nach Word-VBA übersetzen (V. 2010)

gelöst Frage von spinnifexVB for Applications2 Kommentare

Hallo Admins, wie kann ich folgendes XL-Makro nach Word übersetzen, wobei die Zelladresse "A1" als Textmarke "Anzahl" angesprochen werden ...

VB for Applications

VBA in Word 2010 bzw 2013(16)

gelöst Frage von ahstaxVB for Applications11 Kommentare

Hallo, wir haben hier folgendes Word-Makro: Es wird bei der Abarbeitung eines Dokuments durch eine Bürosoftware ausgeführt (überprüft!). Anschließend ...

VB for Applications

VBA - Bereich von Excel nach Word kopieren

gelöst Frage von schwazza89VB for Applications6 Kommentare

Hallo zusammen, ich suche eine Möglichkeit einen Bereich aus Excel in eine Tabelle in Word zu kopieren. Meinen ersten ...

Microsoft Office

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

gelöst Frage von InSpeeMicrosoft Office2 Kommentare

Hallo, wir nutzen ein ERP Programm über das Serienbriefe geschrieben werden. Der Serienbrief wird erstellt, die Seriendruckquelle ist eine ...

Neue Wissensbeiträge
Administrator.de Feedback
Entwicklertagebuch: Die nächste Version
Information von admtech vor 6 StundenAdministrator.de Feedback2 Kommentare

Hallo Administrator User, vielleicht haben es einige User schon mitbekommen: Wir arbeiten aktuell an einer komplett neuen Version von ...

Windows Server

Active Directory ESE Version Store Changes in Server 2019

Information von Dani vor 4 TagenWindows Server

Moin, Last month at Microsoft Ignite, many exciting new features rolling out in Server 2019 were talked about. But ...

Exchange Server

Microsoft Extending End of Support for Exchange Server 2010

Information von Dani vor 4 TagenExchange Server4 Kommentare

Moin, After investigating and analyzing the deployment state of an extensive number of Exchange customers we have decided to ...

Schulung & Training

Humble Book Bundle: Network and Security Certification 2.0

Tipp von NetzwerkDude vor 4 TagenSchulung & Training

Abend, bei HumbleBundle gibts mal wider ein schönes Paket e-books: sind verschiedene Zertifizierungen wie MCSA, CCNA, CompTIA etc., für ...

Heiß diskutierte Inhalte
Visual Studio
Prüfen, ob Programm schon disposed wurde
Frage von MarcoBornVisual Studio17 Kommentare

Hallo Forum, ich habe in VB.NET ein Programm geschrieben, welches Word startet und dort Daten ausliest. Obwohl ich die ...

DNS
DNS Probleme nach Umstellung auf IPv6
Frage von thunderbird304DNS16 Kommentare

Hi Leute! Folgende Problematik: Umstieg von Glasfaser auf Telekom Buisiness DSL. Durch die Umstellung ist die FritzBox nun Gateway. ...

Speicherkarten
Multi USB Stick erstellen
Frage von Ghost108Speicherkarten15 Kommentare

Guten Morgen zusammen, ich würde gerne einen Multi USB Stick erstellen (bootmöglichkeit mehrer ISOs), welcher sowohl Legacy als auch ...

Server-Hardware
HP ML350 Gen10 Server startet Windows 2016 nicht mehr nach Firmwareupdates
gelöst Frage von goschoServer-Hardware14 Kommentare

Hallo Leute, gestern Abend habe ich bei einigen HP Servern über HP SUM Firmwareupdates durchgeführt. Ein ML350 Gen10 mit ...