Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeichen vor Zahl bei Seriendruck

Leerzeichen vor Zahl bei Seriendruck
10.03.2016 13:50:25
Antonia
Hallo,
ich grüble schon den ganzen Vormittag über ein Excel - Word Problem. Ich möchte Etiketten ausdrucken und habe die Daten von einer Excel Tabelle ins Word importiert. Nun hat auch alles gut geklappt bis auf folgendes: ich habe auf dem Etikett einen Preis angedruckt. Habe also "Preis: 10,00€" auf dem Etikett stehen. Zunächst hat es mir zu viele Nachkommastellen gezogen - das Problem habe ich durch die Formel: {MERGEFIELD "Preis VK"\# #.##0,00} erfolgreich gelöst. Nun hat es mir aber immer drei Leerzeichen vor den Preis gesetzt, was optisch nicht gerade schön ist. "Preis: 10,00€". Meine Frage ist nun, wie ich diese Leerzeichen vor der Zahl wegbekomme. Ich habe schon versucht ein "f" mit einzubauen ({MERGEFIELD "Preis VK"\f" " # #.##0,00}), was aber leider nicht funktioniert hat - da war dann das Leerzeichen weg, aber dafür die Nachkommastellen wieder da. Wisst ihr hier vielleicht einen Trick, wie ich beides in das Mergefield einbauen kann?
LG Antonia

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen vor Zahl bei Seriendruck
10.03.2016 14:45:17
JensP
Hallo Antonia,
versuch es doch einfach mal mit "Suchen und Ersetzen":
In Excel per Makro hiermit:
Sub suchen_ersetzen()
' suchen_ersetzen Makro
' sucht nach drei aufeinanderfolgenden Leerzeichen und ersetzt mit nichts
' gesamten Zellinhalt vergleichen mit LookAt:=xlWhole,
' Groß- und Kleinschreibung beachten mit MatchCase:=True,
Cells.Replace What:="   ", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
In Word per Makro hiermit:
Sub suchen_ersetzen_word_01()
' suchen_ersetzen_word_01 Makro
' sucht nach drei aufeinanderfolgenden Leerzeichen und ersetzt mit nichts
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
'Wonach soll gesucht werden?
.Text = "   "
'Mit was ersetzen?
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Gruesse
Jens

Anzeige
AW: Leerzeichen vor Zahl bei Seriendruck
10.03.2016 14:56:34
Antonia
ES HAT FUNKTIONIERT!!! Oh man, so einfach und ich hab den ganzen Vormittag irgendwelche Formeln ausprobiert. VIELEN VIELEN DANK, Jens!!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Leerzeichen vor Zahl bei Seriendruck in Word und Excel


Schritt-für-Schritt-Anleitung

Wenn Du Leerzeichen vor Zahlen in einem Seriendruckdokument in Word entfernen möchtest, folge diesen Schritten:

  1. Daten in Excel vorbereiten: Stelle sicher, dass Deine Excel-Tabelle keine überflüssigen Leerzeichen enthält. Verwende dazu die Funktion =GLÄTTEN(A1) um Leerzeichen vor und nach Text zu entfernen.

  2. Seriendruck in Word starten:

    • Öffne Dein Word-Dokument.
    • Wähle "Sendungen" und klicke auf "Seriendruck starten".
  3. Excel-Datenquelle verbinden:

    • Wähle "Empfänger auswählen" und lade Deine Excel-Datei.
  4. Mergefield einfügen:

    • Füge das benötigte Mergefield ein, z.B. {MERGEFIELD "Preis VK"\# #.##0,00}.
  5. Suchen und Ersetzen:

    • Um überflüssige Leerzeichen zu entfernen, gehe zu "Start" -> "Ersetzen" (oder drücke Strg + H).
    • Gebe in das Feld "Suchen nach" drei Leerzeichen ein und lasse das Feld "Ersetzen durch" leer.

Häufige Fehler und Lösungen

  • Problem: Nach dem Seriendruck erscheinen immer noch Leerzeichen vor den Zahlen.

    • Lösung: Verwende das oben beschriebene Suchen-und-Ersetzen-Verfahren in Word.
  • Problem: Zu viele Nachkommastellen im Seriendruck.

    • Lösung: Stelle sicher, dass Du die Formatierung im Mergefield korrekt gesetzt hast, z.B. {MERGEFIELD "Preis VK"\# #.##0,00}.

Alternative Methoden

Wenn das Suchen und Ersetzen nicht funktioniert oder Du eine automatisierte Lösung suchst, kannst Du auch ein Makro verwenden:

  1. Excel-Makro zum Entfernen von überflüssigen Leerzeichen:

    Sub suchen_ersetzen()
       Cells.Replace What:="   ", Replacement:="", LookAt:=xlPart
    End Sub
  2. Word-Makro zum Entfernen von Leerzeichen:

    Sub suchen_ersetzen_word_01()
       Selection.Find.ClearFormatting
       Selection.Find.Replacement.ClearFormatting
       With Selection.Find
           .Text = "   "
           .Replacement.Text = ""
           .Forward = True
           .Wrap = wdFindContinue
           .MatchCase = True
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

Praktische Beispiele

  • Beispiel: Du hast einen Preis in Excel als 10,00 €. Nach der Anwendung des Makros oder der manuellen Ersetzung sollte es einfach 10,00 € sein.

  • Seriendruck: Bei der Verwendung von {MERGEFIELD "Preis VK"\# #.##0,00} in Word wird der Preis korrekt ohne überflüssige Leerzeichen angezeigt.


Tipps für Profis

  • Achte darauf, dass in Excel keine Zellen mit unsichtbaren Leerzeichen vorhanden sind. Verwende die Funktion =LÄNGE(A1) um die Anzahl der Zeichen in einer Zelle zu überprüfen.

  • Nutze die Formatierung des Mergefields, um sowohl überflüssige Leerzeichen als auch Nachkommastellen effektiv zu steuern.

  • Speichere regelmäßig, um Datenverluste zu vermeiden, besonders vor umfangreichen Suchen und Ersetzen.


FAQ: Häufige Fragen

1. Wie kann ich Leerzeichen vor Prozentzeichen in Excel entfernen?
Verwende die Funktion =WECHSELN(A1;" "; ""), um alle Leerzeichen zu entfernen.

2. Was mache ich, wenn der Seriendruck in Word nicht die gewünschte Formatierung anzeigt?
Überprüfe die Formatierung des Mergefields und stelle sicher, dass keine Leerzeichen in der Datenquelle sind. Verwende die GLÄTTEN-Funktion in Excel.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige