Hallo zusammen, ich habe eine folgende Ausgangslage:
in einem Reiter (Tab1) habe ich eine Liste von Daten (alles in Spalte A), z.B.:
Lana
Marina
Igor
Simon
Artur
Andrey
Aksoy
Fatih
Oleg
Fabian
Lilit
Ingrid
Igor
Alex
Igor
Igor
Alex
In einem anderen Reiter (Tab2) habe ich pro Zeile jeweils 3 Spalten, z.B.:
Lana Marina Igor
Igor Simon Artur
Igor Igor Alex
Alex Igor Igor
Igor Alex Igor
Was ich herausfinden will, ist, ob jeweils die Werte aus der zweiten Tabelle im ganzen Bereich der ersten Tabelle genau in dieser Reihenfolge irgendwo vorkommen (eigentlich in diesem Fall sollen alle Zeilen aus der zweiten Tabelle "gefunden" werden - in der Tat habe ich aber nur 2 Ergebnisse). Hier ist mein Skript, vielleicht fällt jemandem der Fehler auf :)
Sub Test()
Dim lfNr As Integer
Dim Suchbereich As Integer
Dim clickedCount As Integer
clickedCount = Sheets("Tab1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Dim trackedCount As Integer
trackedCount = Sheets("Tab2").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For lfNr = 1 To trackedCount
For Suchbereich = 1 To clickedCount
If Cells(Suchbereich, 1).Value = Cells(lfNr, 1).Value Then
If Cells(Suchbereich + 1, 1).Value = Cells(lfNr, 2).Value Then
If Cells(Suchbereich + 2, 1).Value = Cells(lfNr, 3).Value Then
Cells(lfNr, 6).Value = "ja"
End If
End If
End If
Next Suchbereich
Next lfNr
End Sub
--Vielen Dank im Voraus!-- |