Hallo liebe VBA Freunde, ich bin keine grösse Spezialistin und deshalb brauche ich Ihre Hilfe .

Ich benutze die Userform um meine Tabelle mit Daten zu füllen ,Name Adresse usw.

Private Sub CommandButton3_Click()

Dim WkSh      As Worksheet
Dim oControl  As Control

   If lZeile = 0 Then Exit Sub ' in der ListBox wurde kein Datensatz angeklickt
   Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
   
   WkSh.Cells(lZeile, 2).Value = Me.TextBox1.Value   ' Ausweis/Pass-Nr
   WkSh.Cells(lZeile, 3).Value = Me.TextBox15.Value  ' Testdatum
   WkSh.Cells(lZeile, 4).Value = Me.ComboBox2.Value   ' Anrede
   WkSh.Cells(lZeile, 5).Value = Me.TextBox17.Value  ' 'Vorname
   WkSh.Cells(lZeile, 6).Value = Me.TextBox18.Value  ' Nachname
   WkSh.Cells(lZeile, 7).Value = Me.TextBox4.Value  ' StrasseNr.
   WkSh.Cells(lZeile, 8).Value = Me.TextBox8.Value  ' PLZ
   WkSh.Cells(lZeile, 9).Value = Me.TextBox7.Value   ' Ort

  For Each oControl In Me.Controls
      If InStr(1, oControl.Name, "Text") > 0 Then oControl.Value = ""
   Next oControl
   Set oControl = Nothing

lZeile = 0

End Sub

Problem :

Nun möchte ich dem Programm sagen: ab jetzt bis ich nicht sage Bereich merken, vieleicht mitten zwei Check

Boxen ,und danach jede einzelne Zeile aus dem Bereich ,per Textmarken in die Word Vorlage einfügen , Word Dokument nicht speichern ,und  ausdrücken .

Jeder darauf folgender Blatt wird auch nicht gespeichert ,und überschreibt vorheriges Blatt  .Einzeln manuell ohne Schleife klappt das so :

Private Sub CommandButton8_Click()

Dim appWord     As Object
Dim docTest     As Object

Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///E:\Dokumente\Test15.docx")

appWord.Visible = True

docTest.Activate
docTest.Bookmarks("AusweissNr").Range.Text = Userform1.TextBox1.Text
docTest.Bookmarks("Testdatum").Range.Text = Userform1.TextBox15.Value
docTest.Bookmarks("Vorname").Range.Text = Userform1.TextBox17.Value
docTest.Bookmarks("Nachname").Range.Text = Userform1.TextBox18.Value
docTest.Bookmarks("StrasseNr").Range.Text = Userform1.TextBox4.Value
docTest.Bookmarks("PLZ").Range.Text = Userform1.TextBox8.Value
docTest.Bookmarks("Ort").Range.Text = Userform1.TextBox7.Value

docTest.PrintOut  ' Dokument wird gedrückt

appWord.ActiveDocument.Saved = True ' Flag für Änderungen zurücksetzen
    appWord.NormalTemplate.Saved = True
    appWord.Quit

Set docTest = Nothing
Set appWord = Nothing

End Sub

Kann mir jemand helfen bitte ?