Hallo Leute,
ich habe eine Frgae zu meinem Post von gestern:
Im folgenden Makro Code wird in einer Spalte nach der Zelle mit dem Wert c (Teilenr.) gesucht. Soweit funktioniert alles. Nun möchte ich dass wenn die Teilenr. gefunden wurde, in der Spalte wider so lange nach oben gesprungen wird, bis die nächste Zelle mit dem Wort "Ergebnis" erreicht ist. Dort soll dann um eine Spalte nach links gegangen und der dortige Wert kopiert werden. Kann mir jemand helfen wie der Code dazu aussehen muss?
Danke im Voraus, im Anschluss der aktuell vorhandene Code, in der Zeile "If Cells(m, 10).Value = c Then wird c gesucht, anschließend muss der code umgestellt werden...
For m = 7 To endequelle
wb2.Activate
ws2.Select
Cells(m, 10).Select
If Cells(m, 10).Value = c Then
geraet = Cells(m - 1, 9)
wb1.Activate
ws1.Select
ActiveSheet.Cells(letztezeilealt + 1, 1).Select
ActiveCell.FormulaR1C1 = "" & geraet
letztezeilealt = letztezeilealt + 1
End If
Next m