Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leere Zeilen löschen mit VBA

Leere Zeilen löschen mit VBA
05.10.2015 13:35:19
Kenji
Hallo zusammen,
ich habe ein Excel Dokument, in dem pro Zeile verschiedene Werte eingetragen werden. Diese Werte werden per Makro an eine .docm Word Vorlage gesendet und in Formfields dargestellt. Soweit klappt das alles.
Wenn allerdings nun in manchen Zellen in der Excel Datei kein Wert drin steht bleibt das dazugehörige Formfield in Word leer. Dabei entstehen unschöne leere Zeilen, die ich gerne automatisch (per Makro) entfernen lassen möchte.
Wenn ich im Excel Makro die entsprechenden Formfields per .delete Befehl löschen lasse sind zwar die Formfielder im Word Dokument weg, allerdings bleiben die unschönen leeren Zeilen. Wie bekomme ich diese weg?
Grüße
Kenji

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeilen löschen mit VBA
05.10.2015 16:17:16
fcs
Halo Kenji,
probiere es mal mit folgendem Konstrukt, das du dann bezüglich der Formfield Namen/Indexnummer an dein Worddokument anpassen musst.
Gruß
Franz
Sub prcTestFormfield_loeschen()
Dim wdDoc As Object          'Word.Document
Dim wdApp As Object          'Word.Application
Set wdApp = Word.Application
Set wdDoc = wdApp.ActiveDocument
Call prcFormfield_mit_Absatz_loeschen(wdFormfield:=wdDoc.FormFields("Text10"))
End Sub
Sub prcFormfield_mit_Absatz_loeschen(wdFormfield As Object)
'löscht in einem Worddokument ein Formularfeld wenn es leer ist _
inklusive des kompletten Absatzes
Dim wdRange As Object        'Word.Range
If wdFormfield.Result = "" Then
Set wdRange = wdFormfield.Range
wdRange.Expand Unit:=4 '4 = wdParagraph
wdRange.Delete
End If
End Sub

Anzeige
AW: Leere Zeilen löschen mit VBA
05.10.2015 17:23:34
Kenji
Perfekt funktioniert so wie ich das haben möchte. Danke dir vielmals.

72 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige