hallo,

benötige eure hilfe.

vergleiche die zeilen B26 bis B50 mit den Zellen H301 bis H366. dann gehe eine zelle nach rechts (spalte J) nehme den wert (text) und füge in den bereich wieder zurück (b26:b50)

danach noch sortiere im bereich b26:b50 nach vorgabe im bereich J301:J366.

was mache ich falsch ? da fehlt noch einwenig.
wäre schön es jemand vervollständigen kann

Sub vergleich()
Dim intZeile As Integer
Dim tmpSuch As String
Dim c As Range
For intZeile = 26 To 50
tmpSuch = Sheets("Tabelle1").Cells(intZeile, 2)
With Sheets("Tabelle1").Range("H301:H366")
Set c = .Find(tmpSuch, LookIn:=xlValues)
If Not c Is Nothing Then
Sheets("Tabelle1").Cells(intZeile, 2) = Sheets("Tabelle1").Cells(c.Row, c.Column + 2)
End If
End With
Next intZeile
End Sub

wäre sehr dankbar