Hallo,
ich würde gerne im rahmen der zelle
B14:B17 wenn ein "-" es nicht ausfüllen lassen und dafür die nächst gelegene Zelle mit dem Text "Galaxy A50 (24)" ausfüllen, aber ich bekomme es leider nur für eine bestimmte zelle hin.
Sub O2_A50_Free_M()
'
' O2_A50_Free_M Makro
'
'
Range("B17").Select
ActiveCell.FormulaR1C1 = "Galaxy A50 (24)"
Range("C36").Select
ActiveCell.FormulaR1C1 = "24"
Range("D36").Select
ActiveCell.FormulaR1C1 = "17.49"
Range("E36").Select
ActiveCell.FormulaR1C1 = "39.99"
Range("B37").Select
End Sub
|