title image


Smiley Re: So geht's!
Sub LetzteZeile()

Endzeile = ActiveDocument.Tables(1).Rows.Count

If Selection.Information(wdEndOfRangeRowNumber) Endzeile Then

MsgBox ("Das ist nicht die letzte Zeile")

Else

Exit Sub

End If

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: