estherjudith
Nieuwe gebruiker
- Lid geworden
- 8 nov 2006
- Berichten
- 1
Hallo allemaal,
Ik probeer een macro voor Access in elkaar te zetten, maar ik krijg voortdurende de melding dat de function of sub niet gedefinieerd is. Kan iemand mij vertellen waar de fout zit, want ik zie hem niet?
Nog een tweede vraag. Hoe krijg ik het voor elkaar dat de macro zichtbaar wordt in de lijst "macro's"?
Ik ben nog een beginner met VBA en met access dus hou het zo simpel mogelijk alsjeblieft
Sub Test()
' NumberOfCharacters staat voor het aantal ~ tekens (in je voorbeeld 2)
NumberOfCharacters = 2
' Row staat hierbij voor de rijnummers
For Row = 1 To 1000
If Range("RiskUNID" & Row).Value = "" And Len(Range("RiskProperties" & Row).Value) > 0 Then
Range("RiskUNID" & Row).Value = Right(Range("RiskProperties" & Row).Value, Len(Range("RiskProperties" & Row).Value) - NumberOfCharacters)
Else
Range("RiskUNID" & Row).Value = Range("RiskUNID" & Row).Value
End If
Next Row
End Sub
De bedoeling is dat hij twee cellen op dezelfde rij met elkaar vergelijkt en wanneer de cel in kolom "riskunid" leeg is maar er staat wel wat in kolom "riskproperties" dan moet de waarde die achter de ~~ staat worden overgekopieerd naar de kolom "riskunid. (Is het nog te volgen?)
Alvast bedankt voor jullie hulp
Ik probeer een macro voor Access in elkaar te zetten, maar ik krijg voortdurende de melding dat de function of sub niet gedefinieerd is. Kan iemand mij vertellen waar de fout zit, want ik zie hem niet?
Nog een tweede vraag. Hoe krijg ik het voor elkaar dat de macro zichtbaar wordt in de lijst "macro's"?
Ik ben nog een beginner met VBA en met access dus hou het zo simpel mogelijk alsjeblieft
Sub Test()
' NumberOfCharacters staat voor het aantal ~ tekens (in je voorbeeld 2)
NumberOfCharacters = 2
' Row staat hierbij voor de rijnummers
For Row = 1 To 1000
If Range("RiskUNID" & Row).Value = "" And Len(Range("RiskProperties" & Row).Value) > 0 Then
Range("RiskUNID" & Row).Value = Right(Range("RiskProperties" & Row).Value, Len(Range("RiskProperties" & Row).Value) - NumberOfCharacters)
Else
Range("RiskUNID" & Row).Value = Range("RiskUNID" & Row).Value
End If
Next Row
End Sub
De bedoeling is dat hij twee cellen op dezelfde rij met elkaar vergelijkt en wanneer de cel in kolom "riskunid" leeg is maar er staat wel wat in kolom "riskproperties" dan moet de waarde die achter de ~~ staat worden overgekopieerd naar de kolom "riskunid. (Is het nog te volgen?)
Alvast bedankt voor jullie hulp