Beregner fra Excel til Word

Er detr meningen, at du åbner word og heri indtaster de to variabler - får beregnet i excel og resultatet ses i word - eller?

Hej,

Nej, det hele skal foregå i Word. Jeg har lavet beregneren i Excel, men har brug for præcis samme funktion i et Word-dokument. Kan man genbruge den fra Excel eller skal den laves forfra i Word?

Er beregningen "kun" den, som du viser i Excel?

I Word kan der udføres beregninger via VBA - idet man kunne forestille sig, at der kan indtastes variabler i en Userform.

Ja, det er blot det du set i Excel, som jeg gerne vil gengive i et Word-dokument. Har ikke forstand på VBA, men det lyder måske som en løsning?

Jeg bruger pt. http://office.microsoft.com/da-dk/word-help/sammenkaede-eller-integrere-et-excel-regneark-HA010120810.aspx#BM4, men det fungerer lidt klodset, synes jeg.

Hvis du sender en mail - så returnerer jeg efter frokost et word docm med indbygget userform m.v. til beregningen

@-adresse under profil.

VBA-koden i Userformen:

Const hvid = &H80000005
Const grå = &H8000000F
Const rød = &HC0C0FF
Private Sub Label2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.C4.Locked = False
    Me.C4.BackColor = hvid
    Me.C4.SetFocus
End Sub
Private Sub C4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If check("C4") = True Then
        Me.C4.BackColor = grå
        Me.C4.Locked = True
    Else
        Me.C4.BackColor = rød
        Cancel = True
    End If
End Sub
Private Sub C4_Change()
    beregn
End Sub
Private Sub C5_Change()
    If check("C5") = True Then
        Me.C5.BackColor = hvid
        beregn
    Else
        Me.C5.BackColor = rød
    End If
End Sub
Private Sub C6_Change()
    If check("C6") = True Then
        Me.C6.BackColor = hvid
        beregn
    Else
        Me.C6.BackColor = rød
    End If
End Sub
Private Sub UserForm_activate()
    beregn
    Me.C5.SetFocus
End Sub
Private Sub beregn()
    Me.C7 = Format(Val(Me.C4) * Val(Me.C5) * Val(Me.C6) * 2 / 60, "##0.#")
End Sub
Private Function check(feltNavn)
Dim felt As Object
    Set felt = Me.Controls(feltNavn)
    If IsNumeric(felt) = True And felt <> "" Then
        check = True
    Else
        check = False
    End If
End Function

Hej.

Jeg ser først dit svar nu. Ser vildt interessant ud.
Hvordan bruger jeg VBA-koden i Word?

Mvh.

Filen er sendt pr. mail - har du set på den?

Jeg kan ikke åbne dokumentet, desværre. Når Word forsøger at åbne filen, kommer fejlen: "Can't exit design mode because Control CommandButton1 can not be created".

Hvad kan det skyldes?

Prøv når dokumentet er åbnet og fejlen er "overstået" - tryk Alt+F11 - VBA-vinduet åbnes - I menupunktet Tools / vælg References - er der nogle af disse som er fejlbehæftet?

PS: jeg har ingen problemer - anvender Office 2007

Hej.

Dette er hvad jeg ser: http://www.komfrisk.dk/test/beregner.jpg

Måske er det min version af Word, der skaber fejlen - det er version 2003.

Læg bare et svar. :)

hej igen

jeg sender lige en skærmbillede af adgangen til "References"

den sidste version du modtog den 14/6 var i 2003-format

Ok - du får et svar..

Tak for tid og input. :)

Selv tak..