Hallo zusammen,

ich bin total am verzweifeln...ich habe eigentlich nur Kleinigkeiten an meinem Code angepasst und jetzt läuft er gar nicht mehr. Beim Ausführen kommt sofort Anwendungs- oder objektorientierter Fehler. Kann mir jemand helfen, was ich falsch gemacht habe?

Vielen DANK!

Sub PayPal()

Dim LngLastRow As Long
Dim LastRow As Long
Dim Monat As String
Dim m As String
Dim Jahr
Dim Vormonat As Date
Dim TblPP As Worksheet
Dim TblAR As Worksheet

Vormonat = DateSerial(Year(Now()), Month(Now()) - 1, 1)
m = Format(Vormonat, "MM")
Monat = Format(Vormonat, "MMMM")
Jahr = Year(Date)

Workbooks.Open Filename:="C:\Users\" & Monat & "\PayPal_" & m & "." & Jahr & ".xlsx"

ActiveSheet.Name = m & "." & Jahr
Set TblPP = ActiveWorkbook.Worksheets(1)

Workbooks.Open Filename:="C:\Users\" & Monat & "\Ausgangsrechnungen-Formel_" & m & "-" & Jahr & ".xlsx"
Set TblARPP = ActiveWorkbook.Worksheets(3)

TblPP.Activate
TblPP.Range("B:C").Delete
TblPP.Range("H:H").Delete

TblPP.Range("H:H").Insert
TblPP.Cells(1, 8) = "Re-Nr."
TblPP.Range("H:H").Insert
TblPP.Range("H:H").Insert
TblPP.Cells(1, 9) = "Konto"
TblPP.Cells(1, 8) = "St"

LngLastRow = TblPP.Cells(Rows.Count, 1).End(xlUp).Row
LastRow = TblARPP.Cells(Rows.Count, 1).End(xlUp).Row

Dim j
Dim k

For j = 2 To LngLastRow
    If TblPP.Cells(j, 9) = "" And TblPP.Cells(j, 10) = "" Then
    For k = 2 To LastRow
        If TblARPP.Cells(k, 12) = TblPP.Cells(j, 26) Then
            TblPP.Cells(j, 10) = TblARPP.Cells(k, 2)
            k = LastRow
        
        End If
        
    Next k
    End If
       If TblPP.Cells(j, 2) = "" Then
        TblPP.Cells(j, 9) = "1360"
        End If
Next j

TblPP.Range("a1:q1").AutoFilter Field:=9, Criteria1:=""
TblPP.Range("a1:q1").AutoFilter Field:=10, Criteria1:=""
TblPP.Range("a1:q1").AutoFilter Field:=7, Criteria1:="<>0"

End Sub