VBA-SVERWEIS-Bedingung (wenn-dann) Quelle Daten und SVERWEIS-Bereich sind auf verschiedenen Arbeitsblättern

Ich brauche deine Hilfe mit bedingter SVERWEIS. Ich fand einen code, der funktioniert gut, wenn es die SVERWEIS-Wert in den Quelldaten, aber es funktioniert nicht, sobald es einen fehlenden Wert. Auch ich muss hinzufügen einer Bedingung ('Wenn der Wert gefunden wird, ist "Nachschlagen", dann wieder "Alt" (von der 2. Spalte bei SVERWEIS-Tabelle)
'Wenn der Wert NICHT gefunden wird, dann wieder "Neue" (nur text, die kommen nicht von SVERWEIS-Tabelle). Könnten Sie mir helfen?
Danke,'Russ

Sub Vlookup_Condition()
Dim rng As Range
Dim i As Long

With ActiveSheet.Cells
    Set rng = .Range("A1:A" & .Cells(.Rows.count, 1).End(xlUp).row)

    For i = 2 To rng.Rows.count
        'If the value is found by Lookup, then return "Old" (from 2nd column in vlookup table)
        'If the value is NOT found, then return "New" (just text which is not coming from vlookup
        'table)

        rng.Cells(i, 2) = Application.WorksheetFunction.VLookup(.Cells(i, 1), Sheets("Lookuptable").Range("A:B"), 2, False)
    Next
End With

End Sub

  • Ich denke, Sie erreichen dies in einer viel einfacheren Weg. Setzen Sie einfach alle verkauft in Spalte B zu SVERWEIS dann einfach Schleife über Spalte B mit einer if-Anweisung. So etwas wie If rng.Cells(i,2) <> "Alt" ist, Dann rng.Cells(i, 2) = "Neu"
  • Vielen Dank für eine prompte Antwort. Ich habe versucht zu legen, Wenn rng.Cells(i,2) <> "Alt" ist, Dann rng.Cells(i, 2) = "Neu" nach rng.Cells(i, 2) = Application.WorksheetFunction.SVERWEIS(.Cells(i, 1), Sheets("Lookuptable").Range("A:B"), 2, False) UND vor dem Nächsten. Es gibt mir einen Run-time error '1004': Unable to get die Vlkookup-Eigenschaft des WorksheetFunction-Klasse. Irgendwelche Gedanken? Danke!!!!!
  • Ich arbeite noch immer an diesem puzzzle. Haben Sie irgendwelche Ideen? Danke
  • hey Mann gerade in ill check it out jetzt und erhalten Sie ein paar gute code
InformationsquelleAutor LearnForever | 2014-08-06
Schreibe einen Kommentar