Thema: Artikelnummern suchen und jeweils letzte Fundstelle listen

StandardModule: basMain

Sub LetztePosition()
   Dim iRowT As Integer, iRowS As Integer
   Dim iRowL As Integer, iCounter As Integer
   iRowT = 1
   Do Until IsEmpty(Cells(iRowT, 1))
      For iCounter = Worksheets.Count - 1 To 1 Step -1
         With Worksheets(iCounter)
            iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
            For iRowS = iRowL To 1 Step -1
               If .Cells(iRowS, 1) = Cells(iRowT, 1) Then
                  If .Cells(iRowS, 2) <> "liegt nicht vor" Then
                     Cells(iRowT, 2) = .Name & "!" & _
                        .Cells(iRowS, 1).Address(False, False)
                     Exit For
                  End If
               End If
            Next iRowS
         End With
      Next iCounter
      iRowT = iRowT + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen