Foutmelding "methode select van klasse worksheet is mislukt"

[toffepeer69]

Ik heb in VBA wat geschreven, wat goed werkt als ik het plaats in de excel sheet waarop het toepas.

Als ik het echetr plaats in Persnlk.xls krijg ik constant de foutmelding "methode select van klasse worksheet is mislukt".

Wie helpt mij hiermee.

Toffepeer

 

[Finch]

Welke code? Waarschijnlijk verwijs je naar een worksheet die niet bestaat in het bestand waar je de code wil uitvoeren.

 

[toffepeer69]

Hierbij de code

For Each sh In ThisWorkbook.Worksheets
    sh.Select
    With ActiveSheet
            +
            +
            +
            +
    End With
Next
End Sub

De bedoeling is dat ik deze plaats in persnlk.xls en kan toepassen op ieder werkblad dat ik open.

Toffepeer69

 

[snb]

Vermijd Select, Activate, selection, activecell, activesheet in VBA
Thisworkbook is persnlk.xls

for each sh in Workbooks(2).sheets
With sh
.name ="tekst"
+
End With
Next

 

[toffepeer69]

Ok,

Maar ik wil de code voor ieder willekeurig te openen worksheet kunnen gebruiken.

Dan moet ik de code toch in persnlk.xls plaatsen?

Hoe moet ik het anders doen?

Toffepeer69

 

[Ginger]

Ipv te verwijzen naar de ThisWorkbook zal je moeten verwijzen naar ActiveWorkbook...

Groet, Leo

 

[toffepeer69]

Ginger,

Bedankt voor je reactie.

Morgen even op de zaak proberen en hopelijk werkt het dan.

Groeten,

Toffepeer