title image


Smiley Re: Letzte beschriebene Zeile einer Tabelle per VB
Hallo,



versuchs mit dem folgenden Makro, es wird allerdings nicht geprüft, ob eine der Zellen Text enthält.

Sub CheckA()

Dim oCell As Cell, sInfo As String

'

For Each oCell In Selection.Tables(1).Columns(1).Cells

If oCell.Range.Text = Chr(13) & Chr(7) Then

x = oCell.RowIndex

For z = 1 To Selection.Tables(1).Rows(x).Cells.Count

Selection.Tables(1).Cell(x, z).Select

If Left(Selection.Text, 2) = Chr(13) & Chr(7) Then

sInfo = "Zeile " & oCell.RowIndex & " ist leer."

End If

Next z

End If

Next oCell

'

MsgBox sInfo

Selection.Collapse Direction:=wdCollapseStart

End Sub

      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: