Thema Datum  Von Nutzer Rating
Antwort
Rot Nächste freie Zeile in Tabelle mit Inhalt füllen
14.06.2022 12:04:16 Ulrike
NotSolved
14.06.2022 13:57:23 Gast50259
NotSolved

Ansicht des Beitrags:
Von:
Ulrike
Datum:
14.06.2022 12:04:16
Views:
35
Rating: Antwort:
  Ja
Thema:
Nächste freie Zeile in Tabelle mit Inhalt füllen

 

 

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Nächste freie Zeile in Tabelle mit Inhalt füllen
14.06.2022 12:04:16 Ulrike
NotSolved
14.06.2022 13:57:23 Gast50259
NotSolved