Makro der åbner regneark med filnavn = tekst på knap

Sub FormularKnapper()
    Select Case UCase(Application.Caller)
        Case UCase("Knap 1")
            MsgBox "Knap 1"
        Case UCase("Knap 2")
            MsgBox "Knap 2"
        Case UCase("Knap 3")
            MsgBox "Knap 3"
        Case Else
            MsgBox "Knap så godt :-)"
    End Select
End Sub

Koden er lavet af Leo Heuser, MVP Excel

Hvis din version er engelsk, så udskift "Knap" med "Button"

Hej FlemmingDahl,
Den kode med application.caller har jeg set, den går ind og vurderer på hvad der tricker koden (navnet på fx. objektet)....men, det er ikke det jeg har brug for.
Jeg skal hente den "tekst" der står på knappen som jeg aktiverer koden med.
Derefter bruge "teksten" som streng til at åbne en excel-fil med filnavn=streng.
Håber du kan hjælpe mig
Goodwill :-)

Goodwill - navngiv dine knapper!

FlemmingDahl
Så går ideen ligesom lidt fløjten..
*Én makro for alle knapper uanset mængde* - ved din kode skal man skrive en ny case-sætning for hver ny knap, man tilføjer.
Goodwill :-)

Jeg kender umiddelbart ikke en løsning med formular knapper, men hvis du vælger at bruge CommandButton's - altså med en lille makro i selve arkets kodemodul (en makro pr. knap) så kunne denne makro hedde noget alla:
Private Sub CommandButton1_Click()
    MyCommenMacro CommandButton1.Caption
End Sub

I et almindeligt kodemodul kan du så have:
Public Sub MyCommonMacro(Byref sFileName As String)
  'din kode hvor sFileName har din knap tekst
End Sub

Prøv den her

--------------------
Sub aabenFilMedKnap()

Dim objNavn As String
Dim filNavn As String

objNavn = Application.Caller
filNavn = ActiveSheet.Shapes(objNavn).TextFrame.Characters.Text

Workbooks.Open Trim(filNavn)

End Sub
-----------------

Bemærk at knapteksten ikke må indeholde usynlige tegn f.eks. ENTER osv.

Bemærk at knapteksten skal indeholde stien f.eks "C:\temp\test.xls", og
knappen skal pege på makroen 'aabenFilMedKnap'.

Det virker i Excel XP.

goodwill>> løste det dit problem ?

Kunne du få det til at virke ?

Hej blackadder,
Det virker helt perfekt, tak skal du have.
Også tak til flemmingdahl for ideer.
:-) Goodwill