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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wie pro Ihre puzzle. Ich habe eine Lösung gefunden, wie das Russ
AKTUALISIERT & GETESTET
#N/A Error
Wo alle Fehler im VB sind keine Varianten, So dass Sie brauchen Besondere Behandlung für, die. Ich habe Aktualisiert, der code.Versuchen Sie, das herauszufinden.Versuchen, diese
Hoffe, dies hilft, es gibt einen kürzeren Weg, dies zu tun, aber diese Methode ist zwar einfacher zu bauen aus.
Ok nach weiteren review VERSUCHEN! lol
Ich hoffe wirklich, dass diese arbeiten für ya mate, wenn nicht krank, wohl nicht an der eigentlichen Arbeit, BEI der Arbeit morgen, bis ich herausfinden, wie ich völlig Stakte diese Hilfe lol