Herbers Excel-Forum - das Archiv

Public Sub Eraser(ByVal Referenz As String, ByVal EntryNr As Long, ByVal Endrow As Long, ByVal   _
_
_
_
SpaltenIndex As Integer, ByVal Spalte2Index As Integer, ByVal Betrag As Currency)
Dim j As Long
Dim Nextlog As Long
Dim Payments As Integer ' Hilfsvariable, falls eine Forderung durch mehrere Zahlungen geklärt    _
_
_
_
wurde
Payments = 0
Dim tArray() ' As Long
tArray(Payments) = EntryNr - 1   '<<<<<<<<<<<<<<<<<<<<<<<<<<<<  "Index außerhalb des gültigen    _
_
_
_
Bereichs!"
' Abgleich & Kumulation der gefunden Einträge
For j = EntryNr To Endrow
If Restanten.Cells(j, SpaltenIndex).Value = Referenz Then
Betrag = Betrag + Restanten.Cells(j, Spalte2Index).Value
Payments = Payments + 1
ReDim Preserve tArray(Payments)
tArray(Payments) = (EntryNr - 1) + j
Else
End If
Next j
''''''''''' Übertrag ins Logsheet
If Logsheet.Range("A1").Value = "" Then Logsheet.Range("A1").Value = "Logdaten:"
' Klärung von Einträgen
If Betrag = 0 Then
Nextlog = Logsheet.UsedRange.Rows.Count + 1  ' Nächste freie Zeile im Logsheet ermitteln
For x = 0 To Payments - 1
Restanten.Rows(tArray(x)).Copy Logsheet.Rows(Nextlog)
Nextlog = Nextlog + 1
Next x
Else
End If
End Sub