Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikelnummern suchen und jeweils letzte Fundstelle listen

Gruppe

Suchen

Problem

Wie kann ich mehrere Tabellenblätte nach einer Liste von Artikelnummern durchsuchen lassen und die jeweils letzte Fundstelle neben den Artikelnummern eintragen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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