Foutno. 424

[JJZijlstra]

Beste lezer,

Het volgende VBA-bestandje geeft bij uitvoering Fout 424 Object requiered.
Als ik daarna geheel bovenaan toevoeg:

dim sheet1 as worksheet

dan komt er een nieuwe foutmelding 91 dat objectvariabele of blokvariabele with niet is ingesteld.
Wat moet ik doen om het programma wél succesvol te laten verlopen?
Wat die ik fout?
Bestand is toegevoegd.

Vriendelijke groet,
Toby

 

[VenA]

sheet1 is een codename van een blad als je de Engelse versie hebt. In jouw geval is het Blad1. Sheets("bladnaam") kan ook.

 

[JJZijlstra]

@VenA,

Zelf heb ik de NL-versie van excel.
De informatie die ik gebruikt heb was van een Engelse versie.

In ieder geval werkt het programma nu correct.
Bedankt voor je informatie

Vriendelijke groet,
Toby

 

[VenA]

Geen idee wat het programma moet doen maar vermijdt het gebruik van errorhandlers als je de fouten kan ondervangen.

Sub VenA()
  With Sheets("Blad1")
    .Unprotect "abc"
    If .[D1] <> 0 Then .[A2] = 5 / .[D1]
    .Protect "abc"
  End With
End Sub

Wachtwoorden en andere fratsen kan je beter pas doen als het project klaar is.

 

[edmoor]

Vermijdt tevens het gebruik van correct Engelse woorden als naam van een variabele.

 

[JJZijlstra]

Beste lezer(s),


Het was alleen bedoeld als oefenbestandje.

Inderdaad ik zal nooit Err.codes gebruiken als dat niet nodig is.

@ Edmoor: Waarom moet ik correct Engelse namen als variabele vermijden? Hoe bedoel je dat?


Groet,
Toby

 

[edmoor]

Wanneer je dat wel doet is de kans aanwezig dat je een voor VBA gereserveerd woord gebruikt waardoor de boel fout gaat.
Als voorbeeld, dus niet:
Dim Sheet As Worksheet

Maar bijvoorbeeld:
Dim sSheet As Worksheet

 

[JJZijlstra]

@Edmoor,

Je hebt gelijk, maar dat wist ik ook al.
Vaste VBA-termen zullen door mij nooit als variabele-naam worden gebruikt.
Dus daar kan ik nooit mee de fout in gaan.
I
Maar wel goed om het nog even te noemen.

Groet,
Toby