Danke erst einmal...

Ich habe eine Schleife herum gebastelt, aber wie springe ich nun immer eine Zeile nach unten?

Noch dazu kommt in der Zeile Name = "PDF-Datei_ausgefüllt.pdf" + i ein Fehler "Typ unverträglich"

'Befüllen von Formularen
Sub PDF_Formular()
 
'Die Variablen Datei, Pfad und Name werden als String deklariert
Dim Datei As String, Pfad As String
Dim Name As String
Dim i As Integer 'Für Name hochzählen
Name = "PDF-Datei_ausgefüllt.pdf" + i

'PDF öffnen und füllen
Set AcroApp = CreateObject("AcroExch.App")
Set AvDoc = CreateObject("AcroExch.AVDoc")
 
'PDF öffnen
Datei = "C:\Users\bdornhecker\Documents\Formular\" 'Pfad zur Datei muss angepasst werden
Pfad = "C:\Users\bdornhecker\Documents\Ausgefüllte Formulare\" 'neuer Pfad, unter der die ausgefüllte Datei gespeichert wird
Name = "PDF-Datei_ausgefüllt.pdf" 'Neuer Name der PDF-Datei
 
If AvDoc.Open(Datei, Name) Then
 AcroApp.Show
 Set PDDoc = AvDoc.GetPDDoc()
 Set jso = PDDoc.GetJSObject
 
'Die Werte "HsNr", "OT" usw. müssen durch die entsprechenden Feldnamen ersetzt werden
 'Hinter ".Value = " folgt der zu übergebende Wert, zB "= ActiveSheet.Range("A1").Value" etc.
 jso.getField("Name Debtor").Value = ActiveSheet.Range("A2").Value
 jso.getField("Street and Number").Value = ActiveSheet.Range("B2").Value
 jso.getField("City").Value = ActiveSheet.Range("C2").Value
 jso.getField("Land").Value = ActiveSheet.Range("D2").Value
 jso.getField("Name Creditor").Value = ActiveSheet.Range("E2").Value
  jso.getField("Adress Creditor").Value = ActiveSheet.Range("F2").Value
   jso.getField("Type of activityreason for payment 1").Value = ActiveSheet.Range("G2").Value
    jso.getField("Type of activityreason for payment 2").Value = ActiveSheet.Range("H2").Value
     jso.getField("date of payment").Value = ActiveSheet.Range("I2").Value
      jso.getField("period of activity").Value = ActiveSheet.Range("J2").Value
       jso.getField("Euro").Value = ActiveSheet.Range("K2").Value
        jso.getField("Cent").Value = ActiveSheet.Range("L2").Value
         jso.getField("Euro_2").Value = ActiveSheet.Range("M2").Value
          jso.getField("Cent_2").Value = ActiveSheet.Range("N2").Value
           jso.getField("Euro_3").Value = ActiveSheet.Range("O2").Value
            jso.getField("Cent_3").Value = ActiveSheet.Range("P2").Value
             jso.getField("tax office").Value = ActiveSheet.Range("Q2").Value
              jso.getField("tax number").Value = ActiveSheet.Range("R2").Value
 
 'Save changes to the PDF document
 PDDoc.Save PDSaveFull, Pfad & Name
 'Das stand vorher hier: PDDoc.Save PDSaveLinearized, Pfad & Name
 
'Alles schließen und leeren
 PDDoc.Close
 AvDoc.Close (True)
 AcroApp.Hide
 AcroApp.Exit
 Set AcroApp = Nothing
 Set AvDoc = Nothing
 Set PDDoc = Nothing
 Set jso = Nothing
Else
 MsgBox "Dokument nicht gefunden!"
 Set AcroApp = Nothing
 Set AvDoc = Nothing
 Set PDDoc = Nothing
 Set jso = Nothing
End If
i = i + 1

End Sub