Script valt buiten bereik

[Atwist]

Goedemorgen
sinds mijn Excel sheets (met Macro's) op mijn netwerk heb staan, heb ik de telkens de fout melding Fout 9 tijdens uitvoeren "Script valt buiten bereik" terwijl als deze op de eigen HD staat dan is er geen probleem.
Krijg gelijk de fout op "Wochenverkauf.Show"

Iemand een idee hoe ik dit kan oplossen??

Sub Knop2_Klikken()
Wochenverkauf.Show

End Sub
Sub Printen()
    Range("A2:J21").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub
Sub Sortier()
    Range("A2:C300").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:C300")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[edmoor]

En wat staat er in de Wochenverkauf_Initialize ?

 

[Atwist]

Hallo Ed

Die heb ik niet, ik heb wel een Userform

Private Sub UserForm_Initialize()
    vul_listbox1
    kijken_sheet2
    CommandButton4.Enabled = False
    TextBox4.Enabled = False
    L6.Caption = Format(Now, "dd-mm-yyyy")

End Sub

 

[edmoor]

Die bedoel ik inderdaad.
Loop die eens door in debug mode.

 

[Atwist]

Dan loopt deze vast op

Private Sub UserForm_Initialize()

 

[edmoor]

Daar moet je dus met F8 doorheen gaan om achter de oorzaak te komen.

 

[Atwist]

Dit is denk ik de oorzaak wand ik kom niet verder met F8

 

[edmoor]

Heb je wel een breakpoint aan gezet?

 

[Atwist]

Nee stom had ik niet gedaan, nu wel.

Het invoerscherm wordt nu gestart maar wordt niet met gegevens gevuld.

 

[edmoor]

En daar loop je dan met F8 doorheen.

 

[snb]

Ligt het aan mijn ogen of jouw bril: kijk eens goed naar de tekst van de onderbrekingsregel.
Waarom zou die tekst rood zijn ?

Mij valt verder op dat je bij een range nooit opgeeft van welk werkblad de range deel uitmaakt. Niet handig.

 

[edmoor]

Was mij niet opgevallen.
snb is wel wakker

 

[snb]

@Atw

Zoals je weet worden plaatjes hier zelden op prijsgesteld.
Waarom plaats je je geanonimiseerde bestand niet ?

 

[Atwist]

@SNB

Zoals je weet worden plaatjes hier zelden op prijsgesteld.

Ja daar heb je gelijk aan, ik wil dat nog wel eens vergeten.

Maar ik heb hier een bestand zonder gegevens.

 

[edmoor]

In dat bestand gaat het al mis omdat er geen blad met de naam "Sheet2" is.

 

[snb]

de volgende eigenschappen moet je in de ontwerpmodus vastleggen, niet in de Initialize-gebeurtenis:

    CommandButton4.Enabled = False
    TextBox4.Enabled = False

In de vulmacro staat sheet2, die in het werkboek niet bestaat.

 

[Atwist]

Ik snap er geen hout meer van.

Er is nooit een blad met "sheet2" geweest dus hoe het heeft kunnen werken weet ik niet:shocked::shocked::shocked:

Maar heb alles gewijzigd en het werk allemaal, en daar ben ik blij om :thumb::thumb:

Ik dank jullie voor het oplossen van mijn probleem.