title image


Smiley Re: Letzte beschriebene Zeile einer Tabelle per VBA :Nachtrag
Im Beispiel werden jetzt nicht leere, leere und teilweise leere Zeilen erkannt. Hat die Tabelle keine Überschrift,

ist x = oCell.RowIndex



      Hubert

Private Sub CommandButton3_Click()

'Tabelle auf Leer-Zeilen/Zellen prüfen

If ActiveDocument.Tables.Count = 0 Then Exit Sub

'

Dim oCell As Cell

Dim oRow As Row

Dim MyRange As Range

Dim Flag As Boolean

Flag = False

Dim i: i = 0

'

Me.TextBox7.Text = Empty

'

For Each oRow In Selection.Tables(1).Rows

For Each oCell In oRow.Cells

Set MyRange = oCell.Range

MyRange.End = MyRange.End - 1

If Len(MyRange.Text) = 0 Then

Dim x: x = oCell.RowIndex - 1

Dim y: y = oCell.ColumnIndex

i = i + 1

sInfo = sInfo & "Zeile " & oCell.RowIndex & " : Zelle " _

& oCell.ColumnIndex & " ist leer." & vbNewLine

End If

Next oCell

Next oRow

'

If i = 0 Then

Me.TextBox7.Text = "Keine leere(n) Tabellenzeile(n) gefunden."

Exit Sub

ElseIf i = ActiveDocument.Tables(1).Rows(x).Cells.Count Then

Flag = True

End If

'

If Flag = True Then

Me.TextBox7.Text = "Die Zellen der Zeile " _

& x & " sind leer."

End If

'

If Flag = False Then

If i > 1 Then

Me.TextBox7.Text = "Diese Zellen sind leer:" _

& vbNewLine & vbNewLine & sInfo

ElseIf i = 1 Then

Me.TextBox7.Text = "Die Zellen der Zeile " _

& x & " sind teilweise leer."

End If

End If

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: