Hilfe bei word!

Computer: Software & Programmierung Office Software
1

hi leute

habe folgenden vba code geschrieben,

Set myTable = oWrd.ActiveDocument.Tables(1)
For i = 7 To 9

If myTable.Cell(i, 1) = strtitel Then
oWrd.Selection.MoveRight Unit:=wdCell
oWrd.Selection.MoveRight Unit:=wdCell
oWrd.Selection.MoveRight Unit:=wdCell
oWrd.Selection.MoveRight Unit:=wdCell
oWrd.Selection.Paste
End If
Next i

kann mir jmd. sagen wieso er mir nicht in die if schleife springt??? Geht immer direkt zu end if!!!

Was ist den der rückgabewert einer zelle in einer wordtabelle ein string???

thx

2

Hallo Roberto,

kann mir jmd. sagen wieso er mir nicht in die if schleife
springt??? Geht immer direkt zu end if!!!

weil die Bedingung nicht erfüllt ist. Warum kannst nur du herausfinden, oder lade mal eine Beispieldatei hoch mit FAQ:2606

Was ist den der rückgabewert einer zelle in einer wordtabelle
ein string???

Weiß ich nicht, Cell() ist ertsmal ein Object:

Sub tt()
Dim myTable
Set myTable = ActiveDocument.Tables(1)
MsgBox TypeName(myTable.Cell(1, 1))
MsgBox IsObject(myTable.Cell(1, 1))
End Sub

Gruß
Reinhard