Hallo, ik ben bezig met een zelfstudie VBA vanuit een boek, nu zit ik echter zonder het boek iets heel erg simpels te proberen maar het wil me niet lukken. waarschijnlijk vergeet ik iets makkelijks;
Ik heb onderstaande code, wat ik wil is dat hij voor iedere waarde in het bereik controleert of de waarde 1 is, zoja moet hij ernaast 10 invoeren, als het geen één is, dan moet er 30 komen te staan. mijn code tot nu toe is dit:
Hopelijk is er iemand die mij kan uitleggen wat er mis is.
Ik heb onderstaande code, wat ik wil is dat hij voor iedere waarde in het bereik controleert of de waarde 1 is, zoja moet hij ernaast 10 invoeren, als het geen één is, dan moet er 30 komen te staan. mijn code tot nu toe is dit:
Sub Macro1()
'
' Macro1 Macro
'
'
For Each n In Sheets(1).Range("A1:A40")
If n.Value = 1 Then
Cells(n).Offset(0, 1) = 10
Else
Cells(n).Offset(0, 1) = 30
End If
Next
End Sub
Hopelijk is er iemand die mij kan uitleggen wat er mis is.