Supportnet / Forum / Tabellenkalkulation
vergleich
Frage
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
Antwort 1 von rainberg
Hallo,
obwohl Deine Beschreibung nicht ganz klar ist, würde ich sagen, dazu brauchst Du kein Makro.
Schreibe in C26 folgende Formel und kopiere sie nach unten
=SVERWEIS(B26;$H$301:$J$366;3;0)
Gruss
Rainer
obwohl Deine Beschreibung nicht ganz klar ist, würde ich sagen, dazu brauchst Du kein Makro.
Schreibe in C26 folgende Formel und kopiere sie nach unten
=SVERWEIS(B26;$H$301:$J$366;3;0)
Gruss
Rainer