|
Liebe Community,
ich versuche in einer Word Tabelle aus einer Userform (Abweichungstabelle) den Inhalt verschiedener Textboxen im selbingen Word Dokument
einzufügen. Prinzipiell funktioniert das auch. Aber die Userform wird öfters genutzt und die Zeilen sollen nicht überschrieben werden sondern wenn eine Zeile bereits beschrieben ist in der Tabelle, dann einfach in die nächste freie Zeile den Inhalt der Textboxen rein schreiben.
Ich hab euch mal den Code den ich versucht habe hier rein gestellt.
Leider funktioniert das nicht so wie ich will. Das Macro läuft alle For Fälle ab aber nichts passiert.
Wo ist hier mein Denkfehler?? Kann mir da jemand helfen?
Vielen Dank schon mal!!
Private Sub CommandButton3_Click()
Dim Abweichungstabelle As Table
Set Abweichungstabelle = ActiveDocument.Bookmarks("Abweichungstabelle").Range.Tables(1)
For i = 1 To 20 'die Tabelle hat 20 Zeilen
If Abweichungstabelle.Cell(i + 1, 2).Range.Text = "" Then 'Wenn die Zeile leer ist dann den Text aus Userform.TextBox2 rein schreiben
Abweichungstabelle.Cell(i + 1, 2).Range.Text = Abweichungsbericht.TextBox2.Value
If Abweichungsbericht.CheckBox2 = True Then 'weitere If Abfrage für checkboxen in der Userform
Abweichungstabelle.Cell(i + 1, 3).Range.Text = "Major"
Else: Abweichungstabelle.Cell(i + 1, 3).Range.Text = "Minor"
End If
Exit Sub
End If
Next i 'Wenn die Zeile nicht frei ist, dann in die nächste Zeile springen.
End Sub
|