wieso findet er das Objekt des ersten VLOOKUP's nicht?
VLookup - Code:
Application.WorksheetFunction.VLookup(.Cells(i, 2), .Range("B1:C100"), 2, False).Value
Also er soll den hier ermittelten Wert:
Application.WorksheetFunction.VLookup(.Cells(i, 2), [Konten_Details], 5, False).Value
in die Zelle die im erst genannten VLookup ermittelt werden soll einfügen. Am Ende des vollständigen Codes sieht man, das leere Zeilen ausgeblendet werden,
aber das spielt eigentlich nicht viel zum Thema bei denke ich.
Vollständiger - Code:
Private Sub cmdbtn_Aufräumen_Click()
Dim i As Long
'Daten einfügen und leere Zellen entfernen
With ThisWorkbook.Worksheets("Inventar")
For i = 6 To 15
Application.WorksheetFunction.VLookup(.Cells(i, 2), .Range("B1:C100"), 2, False).Value = Application.WorksheetFunction.VLookup(.Cells(i, 2), [Konten_Details], 5, False).Value
.Rows(i).Hidden = (.Cells(i, 1) = "") ' Aus/Einblenden Zeilen
Next i
End With
End Sub
Ich bin jedem für seine Hilfe dankbar!MfG
Herbert