Fehler beim Zugriff auf eine Tabellenzeile oder -spalte

Wenn Sie versuchen, auf eine einzelne Zeile oder Spalte in einer gezeichneten Tabelle zuzugreifen, kann ein Laufzeitfehler auftreten, wenn die Tabelle nicht einheitlich ist. Beispielsweise führt die folgende Anweisung zu einem Fehler, wenn die erste Tabelle im aktiven Dokument nicht dieselbe Anzahl von Zeilen in jeder Spalte hat.

Sub RemoveTableBorders() 
 ActiveDocument.Tables(1).Rows(1).Borders.Enable = False 
End Sub

Sie können diesen Fehler vermeiden, indem Sie zuerst die Zellen in einer Spalte oder Zeile mithilfe der SelectColumn-Methode oder der SelectRow-Methode auswählen. Nachdem die Auswahl vorgenommen wurde, verwenden Sie die Cells-Eigenschaft mit dem Selection-Objekt . Im folgenden Beispiel wird die erste Zeile in der ersten Dokumenttabelle markiert. Die Cells-Eigenschaft wird für den Zugriff auf die markierten Zellen (alle Zellen in der ersten Zeile) verwendet, sodass Rahmen entfernt werden können.

Sub RemoveTableBorders() 
 ActiveDocument.Tables(1).Cell(1, 1).Select 
 With Selection 
 .SelectRow 
 .Cells.Borders.Enable = False 
 End With 
End Sub

Im folgenden Beispiel wird die erste Spalte in der ersten Dokumenttabelle markiert. Über die For Each...Next-Schleife wird jeder Zelle in der Markierung (allen Zellen in der ersten Spalte) Text hinzugefügt.

Sub AddTextToTableCells() 
 Dim intCell As Integer 
 Dim oCell As Cell 
 
 ActiveDocument.Tables(1).Cell(1, 1).Select 
 Selection.SelectColumn 
 intCell = 1 
 
 For Each oCell In Selection.Cells 
 oCell.Range.Text = "Cell " & intCell 
 intCell = intCell + 1 
 Next oCell 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.