Hallo,
ich habe ein Problem mit Word 2010. Ich habe einen Text aus Zahlen ohne Leerzeichen. Nun möchte ich alle 5 Zeichen ein Leerzeichen einfügen. Wie kann man das am Besten machen? Große Ahnung von VB habe ich nicht. Ich möchte es gerne ohne Messagebox machen.
Es sieht so aus:
123456789987996543212345 usw.
Es soll dann so aussehen
12345 67899 87996 …
Danke für hilfreiche Tipps.
Hallo BB,
ich habe ein Problem mit Word 2010.
normal, wärste doch in Düsseldorf geblieben, äh 2003 
Ich habe einen Text aus
Zahlen ohne Leerzeichen.
Wie soll man sich das vorstellen?
123456789987996543212345 123456789987996543212345 123456789987996543212345
oder
123456789987996543212345
123456789987996543212345
123456789987996543212345
oder annerster?
Beispielemappe hochladen mit fileupload, s. FAQ:2606 ?
Ich möchte es gerne ohne Messagebox machen.
? Eine MsgBox in den Code käme mir vllt. in den Sinn wenn
da die zeichenfolge nicht in 5er pakete zu packen ist.
Also das „letzte“ Paket hat keine 5 Zeichen.
Gruß
Reinhard
Hallo Reinhard,
ich habe hier die Datei hochgeladen.
http://www.file-upload.net/download-4272966/Beispiel…
Es geht nicht ganz auf. Die Anzahl der Zeichen lässt sich nicht durch 5 teilen. Jedenfalls soll da nun nach jeder 5. Zahl ein Leerzeichen eingefügt werden. Wenn es eine Excel-Lösung gibt, könnte ich damit auch leben. Ich kann die Zahlen ja in eine Zelle kopieren.
Gruß
Björn
Es geht nicht ganz auf. Die Anzahl der Zeichen lässt sich
nicht durch 5 teilen. Jedenfalls soll da nun nach jeder 5.
Zahl ein Leerzeichen eingefügt werden. Wenn es eine
Excel-Lösung gibt, könnte ich damit auch leben. Ich kann die
Zahlen ja in eine Zelle kopieren.
Hallo Björn,
okay, probieren wir erstmal in Word.
Alt+F11, im Editor klickst du links auf das Projekt deiner Doc,
erkennbar am Dateinamen.
Einfügen—Modul
In das Modul kopierst du nachfolgenden Code.
Starten des Codes.
Entweder indem du mit dem Cursor in den Code klickst damit dort
die Einfügemarke ist und F5 drückst.
Oder wenn du den Editor zu machst in Word mit Alt+F8 und das makro Leerzeichen ausführen lassen.
Stelle sicherheitshalber VOR Codestart sicher daß in Word die
Einfügemarke ganz oben links steht und nichts markiert ist.
Gruß
Reinhard
Option Explicit
Sub Leerzeichen()
Dim rngInhalt As Range, strInhalt As String, N As Long
Application.ScreenUpdating = False
Set rngInhalt = Selection.Range
rngInhalt.WholeStory
For N = 1 To Len(rngInhalt) Step 6
strInhalt = strInhalt & " " & Mid(rngInhalt, N, 5)
Next N
rngInhalt.Delete
Selection.TypeText Text:=Mid(strInhalt, 2)
Application.ScreenUpdating = True
End Sub
Hallo,
es hat funktioniert. Vielen Dank. Ich glaube, an einer Stelle ist ein Fehler im Code. Mir wurde immer die 6. Zahl durch ein Leerzeichen ersetzt und nicht einfach nach rechts verschoben.
For N = 1 To Len(rngInhalt) Step 6
Aus der 6 habe ich eine 5 gemacht und dann funktionerte alles.