im Serienbrief tabellenzeile ausblenden wenn Zeile leer ist

[das.weglassen]

Hallo,

habe über eine Exceltabelle einzelne Daten an
meinen Serienbrief übergeben. Bei einigen ist aber
nicht jede Zeile gefüllt und ich würde im
Serienbreif dann gerne diese Zeile ausblenden. Wie
mach ich das am besten?

[Robert M. Franz (RMF)]

Hallo d.w

habe über eine Exceltabelle einzelne Daten an meinen Serienbrief
übergeben. Bei einigen ist aber nicht jede Zeile gefüllt und ich würde
im Serienbreif dann gerne diese Zeile ausblenden. Wie mach ich das am
besten?

solche Leerzeilen müssten eigentlich per default-Einstellung unterdrückt
werden (wenn es wirklich Absätze sind). Um Dir genau sagen zu können, wo
Du die Einstellung vornimmst, brachen wir die Angabe der verwendeten
Wordversion ...

Du kannst auch per IF-Felder die Absatzmarken nur dann setzen, wenn das
Feld vorher nicht leer war (bei einem Adressblock wird das dann
allerdings schnell einigermassen unübersichtlich, der resultierende
Felder-Block).

Gruss
Robert

[das.weglassen]

Post by Robert M. Franz (RMF)
Hallo d.w

habe über eine Exceltabelle einzelne Daten an meinen Serienbrief
übergeben. Bei einigen ist aber nicht jede Zeile gefüllt und ich würde
im Serienbreif dann gerne diese Zeile ausblenden. Wie mach ich das am
besten?

solche Leerzeilen müssten eigentlich per default-Einstellung unterdrückt
werden (wenn es wirklich Absätze sind). Um Dir genau sagen zu können, wo
Du die Einstellung vornimmst, brachen wir die Angabe der verwendeten
Wordversion ...
Du kannst auch per IF-Felder die Absatzmarken nur dann setzen, wenn das
Feld vorher nicht leer war (bei einem Adressblock wird das dann
allerdings schnell einigermassen unübersichtlich, der resultierende
Felder-Block).
Gruss
Robert

Ich habe Office 2003.
Die Daten werden in eine Tabelle im Serienbrief
eingetragen und ich möchte dann die leeren Zeilen
ausblenden der Tabelle.

[Robert M. Franz (RMF)]

Post by das.weglassen
Ich habe Office 2003.
Die Daten werden in eine Tabelle im Serienbrief eingetragen und ich
möchte dann die leeren Zeilen ausblenden der Tabelle.

ach so, daher die Tabelle.

Nein, bei Tabellen funktioniert das so nicht.

Du müsstest Dich per VBA nach dem Ausführen des Serienbriefs durch die
Tabelle(n) hangeln und gänzlich leere Zeilen löschen.

Ich hab das mal versucht, und was hier funktioniert ist folgendes Makro:

Sub TableDeleteEmptyRows()
' Makro by Robert M. Franz (and a lot of helpful Usenet posts)

Dim myTable As Table
Dim myRow As Row
Dim myCell As Cell
Dim myRange As Range
Dim IsEmpty As Boolean

For Each myTable In ActiveDocument.Tables
For Each myRow In myTable.Rows
IsEmpty = True
For Each myCell In myRow.Cells
Set myRange = myCell.Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
If myRange.Text <> "" Then IsEmpty = False
Next myCell
If IsEmpty Then myRow.Delete
Next myRow
Next myTable

End Sub

Gruss
Robert