Wert aus Zeile Filtern und in andres Sheet kopiere
10.05.2017 11:35:21
Franky
hab eine kleines, kompliziertes Problem und zwar möchte ich aus dem Sheet4 mit dem ersten Wert Anfangen. Dieser Befindet sich in B2 und lauten "88947". Dieser Wert ist immer verschieden.
Dann möchte ich in Sheet2 in der 4. Spalte diesen Wert suchen.
Sobald ich Ihn gefunden hab, möchte ich, dass in der Zeile, in der sich dieser Wert befindet, der Wert in Spalte 9 kopiert wird und in Sheet4 in der Zeile in der sich auch der Wert "88947" befindent, in die Spalte 6 kopiert wird.
Sobald da passiert ist, soll wieder von vorne angefangen werden in Sheet4, diesmal aber mit dem Wert in B3.
Ist glaub etwas verwirrend erklärt..
Hier mal mein kläglicher Versuch:
Sub Enprodukt_finden()
Dim Material1 As String
Dim Material2 As String
Dim letztezeile1 As Integer
Dim letztezeile2 As Integer
letztezeile1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
letztezeile2 = Sheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile1 = 2
Zeile2 = 2
For i = 2 To letztezeile1
Material1 = Sheets(1).Cells(Zeile1, 3).Value
For j = 2 To letztezeile2
Material2 = Sheets(3).Cells(Zeile2, 2).Value
If Material1 = Material2 Then
Sheets(3).Cells(Zeile2, 9).Copy _
Destination:=Sheets(4).Cells(Zeile2, 6)
End If
Zeile2 = Zeile2 + 1
Next
Zeile1 = Zeile1 + 1
Next
End Sub
hab mal drauf los getippt, und geht wie vermutet nicht.
Danke für eure Zeit und eure Hilfe.
Mfg,
Franky