Thema Datum  Von Nutzer Rating
Antwort
Rot Anwendungs- oder objektorientierter Fehler
20.03.2022 12:59:31 tahnee
NotSolved
20.03.2022 16:35:16 Gast93485
NotSolved
20.03.2022 17:49:41 ralf_b
NotSolved
20.03.2022 19:42:58 Gast7777
NotSolved
20.03.2022 20:41:09 Gast93485
NotSolved

Ansicht des Beitrags:
Von:
tahnee
Datum:
20.03.2022 12:59:31
Views:
224
Rating: Antwort:
  Ja
Thema:
Anwendungs- oder objektorientierter Fehler

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


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 Anwendungs- oder objektorientierter Fehler
20.03.2022 12:59:31 tahnee
NotSolved
20.03.2022 16:35:16 Gast93485
NotSolved
20.03.2022 17:49:41 ralf_b
NotSolved
20.03.2022 19:42:58 Gast7777
NotSolved
20.03.2022 20:41:09 Gast93485
NotSolved