Word: Makro zum Tabellenzeilen löschen

Computer: Software & Programmierung Office Software
1

Liebe Leute
Microsoft Office Word 2010
Ich suche ein Makro, das in einer Tabelle sämtliche Zeilen, deren Zelle in der 6. Spalte leer ist, löscht.
Vorschläge?
lg
Kalsan

2

Microsoft Office Word 2010
Ich suche ein Makro, das in einer Tabelle sämtliche Zeilen,
deren Zelle in der 6. Spalte leer ist, löscht.
Vorschläge?

Halllo Kalsan,

in ein Standardmodul, z.B. Modul1

Option Explicit

Sub Loesch()
Dim Zei As Long
With ActiveDocument.Tables(1)
For Zei = .Rows.Count To 1 Step -1
 If Len(Replace(Replace(.Cell(Zei, 6).Range.Text, Chr(13), ""), Chr(7), "")) = 0 Then
 .Rows(Zei).Delete
 End If
Next Zei
End With
End Sub

Gruß
Reinhard

3

Tönt gut! Werde ich sofort weiterleiten.
Danke!