ich habe folgenden Code, der bei der Paste Funktion aussteigt:
Sub Entitlement_Filtern()
' Entitlement_Filtern Makro
Dim Zaehler, Entitlement, Leihe, Repo, CashTrades, Buecher As Long, i As Long
Entitlement = Worksheets("Entitlement Report").Cells(Rows.Count, 1).End(xlUp) 'letzte _
Beschreibene Zeile ermitteln
Leihe = 2
Repo = 2
CashTrades = 2
Buecher = 2
For Zaehler = 2 To Entitlement
If Worksheets("Entitlement Report").Cells(Zaehler, 9) = "LENDING" And Worksheets(" _
Entitlement Report").Cells(Zaehler, 11) = "Total" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & Zaehler).Copy
Worksheets("Entitlement Report Leihe").Range("A" & Leihe & ":S" & Leihe). _
xlPasteValuesAndNumberFormats
Worksheets("Entitlement Report Buecher").Range("A" & Buecher & ":S" & Buecher). _
xlPasteValuesAndNumberFormats
Leihe = Leihe + 1
Buecher = Buecher + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 9) = "REPO" And Worksheets(" _
Entitlement Report").Cells(Zaehler, 11) = "Total" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & Zaehler).Copy
Worksheets("Entitlement Report Repo").Range("A" & Repo & ":S" & Repo). _
xlPasteValuesAndNumberFormats
Worksheets("Entitlement Report Buecher").Range("A" & Buecher & ":S" & Buecher). _
xlPasteValuesAndNumberFormats
Repo = Repo + 1
Buecher = Buecher + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 9) = "CASH" And Worksheets(" _
Entitlement Report").Cells(Zaehler, 11) = "Total" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & Zaehler).Copy
Worksheets("Entitlement Report Buecher").Range("A" & Buecher & ":S" & Buecher). _
xlPasteValuesAndNumberFormats
Buecher = Buecher + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 8) = "CASHTRADE" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & Zaehler).Copy
Worksheets("Entitlement Report Cash Trades").Range("A" & CashTrades & ":S" & _
CashTrades).xlPasteValuesAndNumberFormats
CashTrades = CashTrades + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 11) = "LOAN" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & Zaehler). _
Copy
Worksheets("Entitlement Report Leihe").Range("A" & Leihe & ":S" & Leihe) _
.xlPasteValuesAndNumberFormats
Leihe = Leihe + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 11) = "BORR" Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & _
Zaehler).Copy
Worksheets("Entitlement Report Leihe").Range("A" & Leihe & ":S" & _
Leihe).xlPasteValuesAndNumberFormats
Leihe = Leihe + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 11) = "REPO" _
Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" & _
Zaehler).Copy
Worksheets("Entitlement Report Repo").Range("A" & Repo & ":S" & _
Repo).xlPasteValuesAndNumberFormats
Repo = Repo + 1
GoTo Marke
Else
If Worksheets("Entitlement Report").Cells(Zaehler, 11) = "REVR" _
Then
Worksheets("Entitlement Report").Range("A" & Zaehler & ":S" _
& Zaehler).Copy
Worksheets("Entitlement Report Repo").Range("A" & Repo & ": _
S" & Repo).xlPasteValuesAndNumberFormats
Repo = Repo + 1
End If
End If
End If
End If
End If
End If
End If
End If
Marke:
Next Zaehler
End Sub
Irgendwie fühle ich mich begriffsstutzig, denn ich finde den Fehler nicht. Könnt Ihr bitte helfen?
Danke
Robert