Run-time error "9" Subscript out of range.

Hvad vises der ved klik på DEBUG?

PS: Velkommen til..

Copy + Paste fra debug:
--------------------------------------------------------
Private Sub Workbook_Open()
   
'viser ark afdelingsoversigt
    Sheets("Afd.oversigt").Visible = True
    Sheets("Udkontering").Visible = False
    Range("a1").Select
   
'åbner fil Organisationsstruktur i SD
    sdfil = Range("hent")
    Workbooks.Open Filename:=sdfil
   
'aktiver og kopier data fra sd organisationsstruktur
    Workbooks("organisationsstruktur i SD").Activate
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy

'går til udkontering og indsætter værdier i afd.oversigt
    Workbooks("01 - udkonteringsværktøj-23-03-2010").Activate
    Range("a1").Select
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
'lukker orkanisationsstruktur og ark afdelings oversigt og går til udkontering
        Workbooks("organisationsstruktur i SD").Close
        Sheets("Udkontering").Visible = True
        Sheets("afd.oversigt").Visible = False
        Range("e9").Select
       
End Sub
--------------------------------------------------------

Mange tak, håber i/du kan hjælpe :)

Hvor er den gule markering når DEBUG er aktiveret?

Linien:
Workbooks("organisationsstruktur i SD").Activate


Men det jeg syntes der er rigtig "sjovt" er at arket virker for mange andre brugere, men der er nogle få det ikke virker for...

Er det en fil du kan sende? Hvis ja - min @-adr. under profil..

Prøv at tjekke fil navnet?
Jeg har oplevet, at når jeg har flyttet en fil, at der er blevet tilføjet _

organisationsstruktur i SD

Er måske blevet til: organisationsstruktur_i_SD

#6: Nej, det har jeg desværre ikke mulighed for :(

#7: Tænkte også på noget af det samme lige til at starte med, men det er det ikke (har tjekket) og desuden er der jo det med at der er nogle brugere der godt kan køre filen uden problemer.


Har det sådan på fornæmelsen at der er et eller andet flueben et eller andet sted som jeg har overset, som stopper det :(

Måske:
Funktioner -->
Indstillinger -->
Tilføjelsesprogrammer

#9: Burde jeg måske have skrevet, men har tjekket dem.
Har prøvet at slå dem allesammen fra, og til uden nogen ændringer...

Prøv at tilføje "efternavn"

Workbooks("organisationsstruktur i SD").Activate

Workbooks("organisationsstruktur i SD.xls").Activate

#11 det vil jeg prøve, vender lige tilbage omkring hvordan det er gået :)

#11: Det var sku det :)

Men: Man kunne faktisk få det til at virke ved noget så enkelt som at sætte flueben i "Skjul filtypenavne for kendte filtyper" inde under mappeindstillinger, det var også grunden til at det virkede for nogle (dem der havde fluebenet) og ikke for andre (dem der ikke havde)


Nu er det noget med at du skal lave et svar som jeg kan acceptere for at give dig point ik??

På Pc der fejler med:

Workbooks("organisationsstruktur i SD").Activate

Start -->
Indstillinger -->
Kontrolpanelet -->
Mappeindstillinger -->
Fanebladet 'Vis'
Sæt flueben i 'Skjul filtypenavnet for kendte filtyper'

Og dog ;-)

Workbooks("organisationsstruktur i SD.xls").Activate
Virker hos mig, selvom jeg har sat flueben i 'Skjul filtypenavnet for kendte filtyper'

Fint :-)
Du får et 'svar'

1000 tak for hjælpen :)

Velbekomme.

Tak for point.