Suchwert über mehrer Spalten
Kai
ich suche über ein Makro übereinstimmende Werte in einem anderen Arbeitsblatt.
Der Suchwert soll aber nicht nur aus einer Zelle übernommen werden sondern die ganze Zeile bzw. mehrere Spalten sollen als Suchkriterium genommen werden.
Hier mal mein Code, den Fehler habe ich kommentiert.
[code]
Sub Suche()
Application.CutCopyMode = False
For i = 2 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle1").Select
Range("A" & i).Select
strFind = ActiveCell.Range("A2:F2") 'Hier soll die Range A:F genommen werden, das Makro _
nimmt aber nur A2
Range("A" & i).Select
Sheets("Tabelle2").Select
Set rng = ActiveSheet.Cells.Find(strFind, lookat:=xlWhole, LookIn:=xlFormulas)
strAddress = rng.Address
Application.Goto rng, True
Sheets("Tabelle1").Select
ActiveCell.Offset(0, 6).Copy
Sheets("Tabelle2").Select
ActiveCell.Offset(0, 6).PasteSpecial xlPasteValues
Next i
End Sub
[/code]
Gruß Kai