Script abändern für Datensuche
21.08.2005 12:28:37
Nikki
ich benötige Hilfe bei folgendem Script :
Sub Uebetragen()
Dim rng As Range
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 8).End(xlUp).Row
For iRow = 8 To iRowL
If Not IsEmpty(Cells(iRow, 8)) Then
With Worksheets("Tabelle2")
Set rng = .Cells.Find(Cells(iRow, 8), _
lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
Cells(iRow, 2) = .Cells(rng.Row, 2)
Cells(iRow, 3) = .Cells(rng.Row, 3)
End If
End With
End If
Next iRow
End Sub
Dieses Script durchsucht Tabelle2 nach der Artikelnummer,
die in einer anderen Tabelle in Reihe H eingegeben wurde und
fügt den Inhalt in Reihe B und C ein.
Kann mir jemand dieses Script so abändern, dass nicht nur
in Tabelle2 gesucht wird sondern auch in bestimmten anderen Tabellen,
die allerdings unterschiedliche Namen tragen, wie z.B. Artikel,
Daten usw. Wichtig ist, dass nicht alle Tabellen durchsucht werden, so wie
ich es bei meiner Recherche hier oft gefunden habe.
with Sheets(Array("Tabelle2", "Artikel", "Daten")) funktioniert es
leider nicht.
Wäre nett wenn mir jemand helfen könnte.
Gruß Nikki