fmeppelder
Gebruiker
- Lid geworden
- 7 feb 2011
- Berichten
- 15
Ik heb een vervolgkeuzelijst gemaakt en hier een macro aan toegewezen.
Ik krijg alleen een fout: object vereist. Wat gaat er mis?
Het zal wel weer wat simpels zijn in experts ogen, maar ik zie het niet :shocked:
Sub Vervolgkeuzelijst25_BijWijzigen()
If Vervolgkeuzelijst25.Value = "Service" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Service"
End If
If Vervolgkeuzelijst25.Value = "Service en onderdelen" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Service en onderdelen"
End If
If Vervolgkeuzelijst25.Value = "Onderdelen" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Onderdelen"
End If
If Vervolgkeuzelijst25.Value = "IBS" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "IBS"
End If
If Vervolgkeuzelijst25.Value = "Klacht" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Klacht"
End If
End Sub
Ik krijg alleen een fout: object vereist. Wat gaat er mis?
Het zal wel weer wat simpels zijn in experts ogen, maar ik zie het niet :shocked:
Sub Vervolgkeuzelijst25_BijWijzigen()
If Vervolgkeuzelijst25.Value = "Service" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Service"
End If
If Vervolgkeuzelijst25.Value = "Service en onderdelen" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Service en onderdelen"
End If
If Vervolgkeuzelijst25.Value = "Onderdelen" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Onderdelen"
End If
If Vervolgkeuzelijst25.Value = "IBS" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "IBS"
End If
If Vervolgkeuzelijst25.Value = "Klacht" Then
Range("A35").Select
ActiveCell.FormulaR1C1 = "Klacht"
End If
End Sub