|
Hey :)
Ich habe folgenden Teil in einem Code in VBA geschrieben. Nur hab ich ein Problem. Ich möchte gerne, wenn der Vlookup keinen Wert findet weil es zu dem Datum keinen Wert gibt den Wert der vorherigen Zelle ausgibt und dann mit der nächsten weitermacht.
Kann mir bitte jemand damit helfen? Ich steh auf dem Schlauch :/
Sub Zurodnung()
Dim x As Integer
For x = 7 To Cells(3, 8) + 6
On Error Resume Next
Cells(x, 8) = Application.WorksheetFunction.VLookup(Cells(x, 7), Range(Cells(4, 1), Cells(Cells.Rows.Count, 2).End(xlUp)), 2, False)
Next x
Dim y As Integer
For y = 7 To Cells(3, 8) + 6
On Error Resume Next
Cells(y, 9) = Application.WorksheetFunction.VLookup(Cells(y, 7), Range(Cells(4, 4), Cells(Cells.Rows.Count, 5).End(xlUp)), 2, False)
Next y
End Sub
|