Excel 2010 VBA , Schleife mit SVERWEIS

Ich Probleme mit der Verwendung von SVERWEIS in meinem Excel 2010 VBA -

Ich will eine Schleife über jede Zelle in einer Spalte, die leer ist und schauen Sie nach einem Wert aus der benachbarten Spalte, die Daten aus einer Datenquelle. Ich möchte das in einer Schleife. Ich habe mir in vielen Foren und kann diese, um richtig zu arbeiten.

hier ein Beispiel von meinem code

Sheets("NPT(hrs)").Activate
Dim NumberRows As Integer
NumberRows = Range("a:a").Find("*", Range("A1"), SearchDirection:=xlPrevious).Row
NumberRows = NumberRows

ActiveCell.Offset(2, 69).Activate
For RowNum = 1 To NumberRows
    If Len(Range("BQ1").Offset(RowNum, 0)) = 0 Then

        ActiveCell.Value = Application.WorksheetFunction.VLookup(Cells(RowNum, 68), "Equipment!A:K", 7, False)

        ActiveCell.Offset(1, 0).Activate
    '' This approach never workedXXX
    'v = WorksheetFunction.VLookup(Cells(RowNum, 68), "Equipment!A:K", 7, False)
           ' ActiveSheet.Cells(RowNum , 69).Formula = "=VLOOKUP(Cells(RowNum,68) ,Equipment!A:K,7,false)"
    'ActiveCell.Text = "v"


    'MsgBox "fin work?"
End If
InformationsquelleAutor schnarr | 2013-02-06
  1. 1

    Hier ist eine kurze code-block, den ich geschrieben habe, zu replizieren, was ich denke, Sie versuchen zu bekommen.

    Ich habe einige Beispieldaten. Die Suche auf der rechten Seite hat Preise pro Einheit und auf der linken Seite sehen Sie eine Tabelle mit einigen Einträgen, fehlt in der 'Gesamtpreis' - Spalte.

    Excel 2010 VBA , Schleife mit SVERWEIS

    Den code-block unten eine Schleife über die Zellen in Spalte C und läuft ein SVERWEIS jedes mal findet er eine leere Zelle.

    Sub FillInBlanks()

  Dim rng As Range
  Set rng = ActiveSheet.Range("C2:C21")

  For Each cell In rng
    If IsEmpty(cell) Then
        cell.FormulaR1C1 = "=VLOOKUP(RC[-2],R1C7:R11C8,2,FALSE)*RC[-1]"
    End If
  Next cell

End Sub

    Läuft dieses makro sollte Ihnen diese

    Excel 2010 VBA , Schleife mit SVERWEIS

    • Vielen Dank, ich versuchte es, aber meine Bandbreite für Daten gesucht werden soll steht auf einem anderen Blatt und dies scheint Problem mit, dass
    InformationsquelleAutor JConnor
Schreibe einen Kommentar