title image


Smiley So geht es bis auf die Rechte...
Hi Ahlers,



guter Tipp! Nur mit dem Button klappt das nicht so richtig, da ich die Zeile, die kopiert werden soll, herausfinden muss. Also geht das nur mit Menüeintrag und Sicherheitszertifikat (**würg**).

Aber mit folgendem Statement funktioniert es:



Sub menuTester()

Dim cntRow As Integer

Dim cntCHarPos1 As Integer

Dim cntCount As Integer

Dim strSuchtext1 As String

Dim strCellText As String

Dim strCellTextNew As String



strSuchtext1 = "Milestone"

strCellText = ""



If Not Selection.Information(wdWithInTable) Then

Text = "Der Cursor ist nicht innerhalb einer Tabelle."

MsgBox Text, vbExclamation

Exit Sub

End If

cntRow = Selection.Information(wdEndOfRangeRowNumber) ' Zeilennummer auslesen

strCellText = ActiveDocument.Tables(1).Cell(Row:=cntRow, Column:=1).Range.Text

cntCHarPos1 = InStr(strCellText, strSuchtext1)



If cntCHarPos1 <= 0 Then ’in richtiger Zeile ???

Text = "Bitte Cursor in die letzte " & strSuchtext1 & "-Zeile setzen."

MsgBox Text, vbExclamation

Exit Sub

End If



With Selection

Selection.HomeKey Unit:=wdRow ' Setzen des Cursors in erste Spalte

ActiveDocument.Tables(1).Rows(cntRow).Select

.Copy

.Paste

End With

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: