• 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.

Excel VBA foutmelding 424 Object vereist

Status
Niet open voor verdere reacties.
T

Theknurt

Gebruiker
Lid geworden
11 nov 2006
Berichten
130
Hallo mede excelisten,

Ben bezig met een simpel macro'tje, alleen loop tegen een foutmeldingtje aan.

Ik krijg steeds de fout melding 424, object vereist.

Code: 
Private Sub Workbook_Open()
Dim WeekNum As Integer
WeekNum = Range("b4").Value

    Sheets("Bezetting").Select
    ScrollBar1.Value = WeekNum
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("wk_DATA").CurrentPage = ScrollBar1.Value
End Sub

Wat ik eigenlijk probeer bij het openen van het bestand is dat ik een scrollbar (ScrollBar1) en een draaitabel ("Draaitabel1") veld laat starten in de huidige week.
Hij haalt hiervoor data op uit het tabblad Sheets("Bezetting") van veld "b4"

Alleen met bovenstaande krijg ik steeds object vereist, fout code 424.

Weet iemand de simpele oplosssing in dit probleem ?

Txs. Theknurt
 
Hoi Pasan,

Het weeknum is een getal wat uit een formule berekend wordt.

een bekende weeknummer berekening :

Code: 
INTEGER((A4-DATUM(JAAR(A4-WEEKDAG(A4-1)+4);1;3)+WEEKDAG(DATUM(JAAR(A4-WEEKDAG(A4-1)+4);1;3))+5)/7))+1

En deze staat in het excelblad.
 
mischien heb je 1 van je benamingen niet helemaal goed geschreven?
zonder voorbeeld is het moeilijk zoeken, anders gezegt ik zou het zo niet weten
 
of:

- het werkblad "Bezetting" bestaat niet in dit werkboek
- de draaitabel "draatabel1" bestaat niet in het aktieve werkblad
 
of:

-Je weeknummer wordt niet van het juiste blad in B4 gehaald, je vermeld nl niet van welk blad.

Niels
 
@Niels

Dat levert nooit de foutcode 'object vereist, fout code 424' op.
 
@snb

Zover heb ik er niet naar gekeken, dacht dat het fout zou kunnen gaan met scrollbar1.value doordat weeknum niet 100% staat aangegeven deze een onbruikbare waarde kan krijgen.
Krijg je als een blad niet bestaat dan niet altijd foutcode 9?

Niels
 
Laatst bewerkt:
Voorbeelden zeggen meer dan woorden........

Nu even tijd gehad om het voorbeeld bestandje te maken, ik hoop dat het duidelijk is.

Bekijk bijlage Helpmij_424_object.xls

Ik zou het mooi vinden als bij het openen van het bestand scrollbar.1value, de waarde overneemt van het weeknum.
 
Laatst bewerkt:
Code: 
Private Sub Workbook_Open()
Dim WeekNum As Integer
WeekNum = Range("h8").Value
Sheets("Blad1").Select
ActiveSheet.ScrollBar1.Value = WeekNum
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Weeknum").CurrentPage = ActiveSheet.ScrollBar1.Value
End Sub

Niels
 
Ja, dat ziet er goed uit. Het zat hem juist in de simpelheid.

bedankt voor de oplossing, ik ga er verder mee stoeien.

Txs
 
Vermijd 'Select' en 'Activate' in VBA.
Dat geldt ook voor overbodige variabelen (bijv. die niet variëren)

Code: 
Private Sub Workbook_Open()
  With Sheets("Blad1")
    .ScrollBar1.Value = Range("h8").Value
    .PivotTables("Draaitabel1").PivotFields("Weeknum").CurrentPage = .ScrollBar1.Value
  End with
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan