Hallo,
ich hab ein Problem mit meiner Tabelle in Word.
Ich würde gerne via VBA ein Zeile hinter die letzte einfügen, bzw wenn die letzte Zeile der Tabelle beschrieben ist, soll eine neue eingefügt werden.
Wie geht das? Hab schon einiges ausprobiert, weiß aber nicht wo ich den Code hinschreiben muss. Hier muss er irgendwo dazwischen.
For i = 2 To 15
Set wdTable_3 = wdDoc.Tables(3)
wdTable_3.Select
If Opt1.Value = False Then
wdTable_3.Rows(i).Cells(1).Range.Text = ComboBox1.Value
wdTable_3.Rows(i).Cells(2).Range.Text = txtEP1.Value
wdTable_3.Rows(i).Cells(3).Range.Text = txtSP1.Value
i = i + 1
End If
Set wdTable_3 = wdDoc.Tables(3)
wdTable_3.Select
If Opt2.Value = False Then
wdTable_3.Rows(i).Cells(1).Range.Text = ComboBox2.Value
wdTable_3.Rows(i).Cells(2).Range.Text = txtEP2.Value
wdTable_3.Rows(i).Cells(3).Range.Text = txtSP2.Value
i = i + 1
'i = i + 1
End If
Set wdTable_3 = wdDoc.Tables(3)
wdTable_3.Select
If ComboBox3.Value = „“ Then
If Opt3.Value = False Then
wdTable_3.Rows(i).Cells(1).Range.Text = ComboBox3.Value
wdTable_3.Rows(i).Cells(2).Range.Text = txtEP3.Value
wdTable_3.Rows(i).Cells(3).Range.Text = txtSP3.Value
i = i + 1
End If
next i
Danke im voraus!