wema8110

Daten von einem textbox in einer Word Tabelle übertragen

Hallo,
ich versuche eine Tabelle in Word mit Daten aus einem Textbox zu füllen. Problemstellung: die Daten von einem Textbox sollen in einer Zelle der Tabelle übertragen werden. Für die nächste Zelle möchte ich den gleichen Textbox verwenden und mit einem anderen Inhalt füllen, und so bis ich die Tabelle mit verschiedenen Inhalten gefüllt habe. Ich würde mich über jede Hilfe freuen. Office 2003 / Meine Code sieht so aus:

Private Sub CommandButton1_Click()
Dim Tabelle As Table
Dim ende As Integer
Dim x As Integer
Dim y As Integer
Dim i As Integer
'i = 3
Set Tabelle = ActiveDocument.Tables(4)
With Tabelle

For x = 3 To Tabelle.Rows.Count
For y = 1 To Tabelle.Columns.Count
Tabelle.Rows(x).Range.text = "" & x - 2 & "."

Next
Next

For i = 3 To Tabelle.Rows.Count
Tabelle.Cell(i, 2).Range.text = TextBox1.Value
TextBox1.Value = ""
If i > Tabelle.Rows.Count - 1 Then
Tabelle.Rows(i).Select
Selection.InsertRows
End If

'i = i + 1
Next

danke!
Wema
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 143705

Url: https://administrator.de/forum/daten-von-einem-textbox-in-einer-word-tabelle-uebertragen-143705.html

Ausgedruckt am: 05.06.2025 um 12:06 Uhr