Excel hjælp; kan man få formler til at vise tal frem for cellereferencer?

Forsøger med VBA - så måske...

Kopier koden her under.
I Excel
Tryk alt+F11
Indsæt koden i et modul
luk på det røde kryds.
A2: din formel
A1: =Udregn(A2)

Jeg har fundet modul der kommer frem under "insert --> Modul2.. men så indsætter jeg koden og lukker vinduet ned, men der sker ikke noget nyt? Gør jeg en fejl?

A2: din formel
A1: =Udregn(A2)

Velkommen på Eksperten.dk

Som spørger, skal du bruge:
Kommentar (til forslag)

Og når du har fået et 'Svar' på dit spørgsmål, du kan bruge,
beder du den der har hjulpet dig, om at lægge et:
Svar (til løsninger og pointgivning)

Ja men der kommer ikke en formel der hedder udregn frem?!

Ecel version?

Hvis du har formlen: =(C42*E1)/1+(B23)^C4 i celle A2

Og du taster =Udregn(A2) i celle A1

Hvad står der så i A1?

jamen den vil slet ikke godtage udregn formlen, så jeg tror allerede den går galt ift. evt at gemme eller lignende i modulet?!:(

Prøv i et nyt/tomt ark

nu har jeg fået døbt modulet "udregn" så nu er den i excel, men når jeg skriver en formel i A1 og efterfølgende skriver "udregn=(A1)" skriver den "#NAVN?"

Du skal skrive: =Udregn(A1)

Ikke udregn=(A1)

hov min fejl, det er self =udregn jeg har skrevet, som ikke virker

Se
http://gupl.dk/686359/

Med stort u

Anbring VBA-kode under et Ark med formler - Højreklik på en celle med formler og værdier vises i meddelelsesboks. Kan ændres så alle formler vises med værdier. Vil godt vide, hvordan du ønsker at anvende funktionaliteten.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim formel As String, x As Integer, tegn As String, alfaFlag As Boolean, numFlag As Boolean
Dim startP As Integer, slutP As Integer
Dim tabel As String, dele As Variant
    If Target.HasFormula = True Then
        alfaFlag = False
        numFlag = False
        tabel = ""
       
        formel = Target.Formula
       
        For x = 1 To Len(formel)
            tegn = Mid(formel, x, 1)
            If testAlfabetisk(tegn) = True And alfaFlag = False Then
                alfaFlag = True
                startP = x
            Else
                If testNumerisk(tegn) = True And alfaFlag = True Then
                    If numFlag = False Then
                        numFlag = True
                    End If
                Else
                    If alfaFlag = True And numFlag = True Then
                        slutP = x
                        adresse = Mid(formel, startP, slutP - startP)
                        værdi = Range(adresse)
                        tabel = tabel & værdi & tegn
                       
Rem indsæt i formel (gem forinden)
                        alfaFlag = False
                        numFlag = False
                    Else
                        tabel = tabel & tegn
                    End If
                End If
            End If
        Next x
       
        If alfaFlag = True And numFlag = True Then
            slutP = x
            adresse = Mid(formel, startP, slutP - startP)
            værdi = Range(adresse)
            tabel = tabel & værdi
            Cancel = True
        End If
        MsgBox tabel
    Else
        Cancel = False
    End If
End Sub
Private Function testAlfabetisk(tegn)
    If Asc(UCase(tegn)) >= 65 And Asc(UCase(tegn)) <= 90 Then
        testAlfabetisk = True
    Else
        testAlfabetisk = False
    End If
End Function
Private Function testNumerisk(tegn)
    If Asc(UCase(tegn)) >= 49 And Asc(UCase(tegn)) <= 57 Then
        testNumerisk = True
    Else
        testNumerisk = False
    End If
End Function

Mange tak for din hjælp det spiller nu :)

Som spørger, skal du bruge:
Kommentar (til forslag)

Og når du har fået et 'Svar' på dit spørgsmål, du kan bruge,
beder du den der har hjulpet dig, om at lægge et:
Svar (til løsninger og pointgivning)

Her er en lille film om:
Hvordan man accepterer svar på Eksperten.dk
http://www.youtube.com/watch?v=s26DGiuvXBo

ok det må du meget gerne så:)

Det gør jeg så ;-)

Er der nogen, der stadig følger dette spørgsmål?
Der er et par ting, jeg ikke forstår!
Det er muligvis fordi, det er for længe siden, jeg lærte matematik:-)

Jeg er villig til at oprette et spørgsmål!