• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Fout 424 Object vereist

Status
Niet open voor verdere reacties.

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
 
fmeppelder,

Moet het bladnaam niet erbij vermeld worden?
Volgens mij werkt dit ook, je heb dan geen .Select nodig.
Code:
If Vervolgkeuzelijst25.Value = "Service" Then
  [COLOR="red"]Range("A35") = "Service[/COLOR]"
End If
Als je de volgende keer de code selecteerd en dan op # klikt boven in het menu, komt het mooi in een apart vak te staan.
 
object vereist

als ik de macro test dan hangt ie al op de 2e regel.

Code:
Sub Vervolgkeuzelijst25_BijWijzigen()
[COLOR="#ff8c00"]If Vervolgkeuzelijst25.Value = "Service" Then[/COLOR]
Range("A35") = "Service"
End If
 
Ga naar de eigenschappen van je keuzelijst en bij Koppeling met cel selecteer je een willekeurige cel. Wijzig dan jouw macro in deze.
Code:
Sub Vervolgkeuzelijst25_BijWijzigen()
With Sheets("Blad1")
    Select Case .[B3].Value 'geselecteerde cel bij eigenschappen keuzelijst
        Case Is = 1
            .Range("A35") = "Service"
        Case Is = 2
            .Range("A35") = "Service en onderdelen"
        Case Is = 3
            .Range("A35") = "Onderdelen"
        Case Is = 4
            .Range("A35") = "IBS"
        Case Is = 5
            .Range("A35") = "Klacht"
    End Select
End With
End Sub
 
Warme bakkertje heb het al netjes uitgelegd.
Hier is je file terug met de macro van Warme bakkertje.

Je moet alleen nog Onderhoud in de code plaatsen, dat is hij vergeten.
 

Bijlagen

Laatst bewerkt:
Ik heb een vervolgkeuzelijst gemaakt en hier een macro aan toegewezen. Ik krijg alleen een fout: object vereist. Wat gaat er mis?
Er is nergens een vervolgkeuzelijst te bespeuren die de naam vervolgkeuzelijst25 heeft. Dus daar moet je de fout zoeken. Naast Range("A35") is vervolgkeuzelijst25 bovendien het enige object dat in je (spaghetti-)code voorkomt, dus iets anders kan het niet zijn.
Maar om de waarde van die vervolgkeuzelijst in een cel te plaatsen, is helemaal geen macro of formule nodig. Het is een keuzelijst, gemaakt via de werkbalk Formulieren. Klik met de rechtermuisknop op die keuzelijst, kies "besturingselement opmaken" en vul bij "Koppeling met cel" de cel in waarin de gekozen waarde moet verschijnen (bv. A35).
 
zapatr,

Maar om de waarde van die verveolgkeuzelijst in een cel te plaatsen, is helemaal geen macro of formule nodig. Het is een keuzelijst, gemaakt via de werkbalk Formulieren. Klik met de rechtermuisknop op die keuzelijst, kies "besturingselement opmaken" en vul bij "Koppeling met cel" de cel in waarin de gekozen waarde moet verschijnen (bv. A35).
Dan zet hij enkel een 1, 2, 3, 4, 5 of een 6 daar inplaatst van de tekst of zie ik dat verkeerd?
 
Ja, je hebt gelijk ExcelAmateur.
Ik was even in de war met de vervolgkeuzelijst van de werkset besturingselementen waar ikzelf de voorkeur aan geef en waarbij je dat wel zo kunt instellen, zie bijlage. Niettemin kun je hetzelfde met de vervolgkeuzelijst van de vragensteller ook wel bereiken, maar dan moet je er een "Private sub ..." aan toevoegen of een gewone macro.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan