[VBA Word] Wie kann ich in Tabellen schreiben

[Dario Linsky]

So... ich hoffe, ich hab das jetzt richtig verstanden.
Du hast in dem Dokument mehrere Tabellen. In der zweiten Tabelle ist ein Textfeld. Wenn jetzt jemand die Tab-Taste drückt, soll der Cursor in ein anderes Feld (rechts von "Name") springen. Richtig?

Dazu musst Du über das Tables-Objekt die Auswahl setzen. Das Feld, in welches der Cursor soll, ist in der ersten Zeile und der vierten Spalte der zweiten Tabelle.
Ich hab Deinen Code mal etwas aufgemischt, und jetzt sieht das Ding so aus:

Private Sub txtAnrede_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 9 Then '9 = Tab
    With Tables(2) 'zweite Tabelle
        .Cell(1, 4).Select 'Zeile 1, Spalte 4
    End With
End If
End Sub

Private Sub txtAnrede_KeyPress(ByVal KeyAscii As Integer)
Select Case KeyAscii
    Case 70 Or 102:
        KeyAscii = 0
        txtAnrede.Text = "Frau"
    Case 72 Or 104:
        KeyAscii = 0
        txtAnrede.Text = "Herr"
    Case Else:
        KeyAscii = 0
End Select
End Sub

 

[Zorck]

Genau so meinte ich es.
Mit cell hatt ich auch schon rumprobiert.
Hab nur nicht das TablesObjekt genommen.

Auf jeden Fall nochmal Danke!