effeff schrieb am 15.July.2010, 10:13:12 in der Kategorie pc.sw.office
Sub AutoOpen()
ActiveDocument.Tables(1).Cell(FindeZeile, 1).Select
End Sub
Function FindeZeile() As Integer
Dim cl As Cell
Dim i As Integer
For Each cl In ActiveDocument.Tables(1).Columns(1).Cells
If Len(cl.Range.Text) < 3 Then
i = cl.Row.Index
FindeZeile = i
Exit Function
End If
Next
FindeZeile = ActiveDocument.Tables(1).Rows.Count
End Function