Foutmelding: Fout 91 objectvariabele of blokvariabele with is niet ingesteld

[Tweety1]

Ik heb in mijn Excel bestand een knop aangemaakt met daaronder een macro

Tijdens het uitvoeren van de macro krijg ik de volgende foutmelding.
"Fout 91 objectvariabele of blokvariabele with is niet ingesteld"

Draai ik de macro vanuit VBA scherm dat doet ie het wel.

Sub EindeJaar1()
Application.ScreenUpdating = False
    Dim SearchRange As Range
    Dim FindRow As Range
    Set SearchRange = Blad11.Range("A17", Blad11.Range("A516").End(xlUp))
    Set FindRow = SearchRange.Find(What:="Einde", LookIn:=xlValues, lookat:=xlWhole)
    'MsgBox FindRow.Row
    Blad11.Range(FindRow.Row & ":516").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

mvg

Kasper

 

[edmoor]

Moet Blad11 niet Sheets("Blad11") zijn?

 

[Tweety1]

Ik heb tabblad naam via vba gewijzigd in blad11

 

[Warme bakkertje]

Heb je de tabbladnaam of de codename v/h werkblad gewijzigd aangezien beide niet noodzakelijk dezelfde naam hebben ??

 

[Tweety1]

Ik heb de codenaam veranderd

Hierbij voorbeeld bestand.
Bekijk bijlage foutmelding.xlsm

 

[Warme bakkertje]

Sub EindeJaar1a()
    Dim SearchRange As Range
    Dim FindRow As Range
    With Blad11
        Set SearchRange = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        Set FindRow = SearchRange.Find("Einde", , xlValues, xlWhole)
    End With
    MsgBox FindRow.Row
End Sub

 

[Niels28]

Ik weet niet waar je mee bezig bent maar je stelt hier een vraag, het antwoordt bevalt je klaarblijkelijk niet dus stel je maar een nieuwe?

Niels

 

[Tweety1]

Het werkt erg bedankt voor het helpen.

 

[Tweety1]

@Niels28
Ik heb deze vraag gesteld ivm een andere tabblad waarvoor ik deze macro gebruikt. Op deze tabblad stonden namelijk tussen een bepaalde teksten lege regels.
Deze regels wou ik niet verbergen.
De macro die jij hebt gemaakt gebruik ik voor een ander tabblad.