'irgendetwas scheint falsch zu sein...es funktioniert halt nicht und ich hab keine ahnung warum. vielen dank für eure hilfe.
Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
x = Worksheets("Sheet1").Range("F4").End(xlDown).Row
For i = 0 To x
If x = "AV" Then
ActiveCell.Offset(0, 1).Select
ActiveCell = Formula.WorksheetFunction.VLookup(Cells(3 + i, 2), Workbooks("EURO Prices").Worksheets("Deals").Range("C2:F89"), 4, False)
Else
End If
Next i
End Sub
|