Benoeming actieve werkmap

[bakkietje]

Ik zou graag deze macro in eender welke excelfile willen gebruiken, bestaat er een jokernaam (-teken) voor de actieve excelfile. Dus een wildcard voor file "score2010.xls".

Sub alfabetischall()
'
' alfabetischall Macro

'
Application.Run "score2010.xls'!alfabetisch"
Sheets("Ronde 1").Select
Application.Run "score2010.xls'!alfabetisch"
Sheets("Ronde 2").Select
Application.Run "score2010.xls'!alfabetisch"
Sheets("Ronde 3").Select

End Sub

 

[Ginger]

Ik zou graag deze macro in eender welke excelfile willen gebruiken

Zet je code in je Personal.xls (of nederlands Prsnlk.xls), dan is tie vanuit alle workbooks benaderbaar...

Groet, Leo

 

[bakkietje]

Geen oplossing, het is de macrocode die aangepast moet worden, maar ik weet niet hoe.

 

[Ginger]

ehhhh.... ActiveWorkbook?

Groet, Leo

 

[bakkietje]

Ook al geprobeerd, maar krijg macro niet aan de praat.

 

[Wigi]

In een gewone module van jouw bestand:

Sub fff()
    Application.Run "Personal.xlsb!MijnProcedure"
End Sub

Eerdere versies van Excel kunnen afwijkende namen hebben voor Personal (ook in het Nederlands bvb.), tevens de xlsb zal xls zijn in pré-2007 Excel versies.

In een gewone module in de persoonlijke werkmap zet je:

Sub MijnProcedure()
    MsgBox "Je zit nu in " & ActiveWorkbook.Name & _
             ", hoewel de code van de procedure in de persoonlijke werkmap zit", vbInformation
End Sub

Graag code tags gebruiken als je code post op het forum. Dank.

Wigi

 

[bakkietje]

OK, bedankt, ik ga hiermee aan de slag!!!