PDA

Vollständige Version anzeigen : LookUp


haha1234567
21.02.2008, 15:53
kann jemand mir helfen, die folgende Code so veraendern, so dass die Ergebnisse in Spalte "E" genau wie in Spalte "D" (gewuenschte gefundene Werte) auszusehen?

vielen Dank erst mal!!!

rastrans
21.02.2008, 20:38
Sorry, aber ich verstehe die Frage nicht?

Nach welchen Kriterien werden denn die Zahlen in Spalte D erstellt? "heighst ParentID" ist doch wohl die 7777. Wie kommen die anderen Zahlen zustande?

Styrkar
22.02.2008, 06:19
Hi,

der Code hier sollte gehn:


Sub test()
Dim ws As Worksheet
Dim newsheet As Worksheet


Set ws = ActiveSheet

ws.Range("e1").Value = "Lookup"
For i = 2 To 10
Set rng1 = ws.Cells(i, 1).Offset(0, 2)
Set rng2 = ws.Columns(1).Find(what:=rng1)

If rng1 <> "" Then
If Not rng2 Is Nothing Then
Do
Set rngf = rng1
Set rng1 = rng2.Offset(0, 2)
Set rng2 = ws.Columns(1).Find(what:=rng1)
Loop While Not rng2 Is Nothing And rng1 <> ""
If rng1 <> "" Then Set rngf = rng1
Else
Set rngf = rng1
End If
ws.Range("e" & i).FormulaR1C1 = rngf.Value
Else
ws.Range("e" & i).FormulaR1C1 = ws.Cells(i, 1).Value
End If
Next i
End Sub

haha1234567
22.02.2008, 08:31
Das ist ja genau, was ich meinte, vielen Dank,Styrkar:grins: !!