Avatar billede FlikFlak9000 Nybegynder
27. august 2009 - 10:46 Der er 1 kommentar og
1 løsning

Excel Vba

Hej

Har brug for lidt hjælp, jeg skal bruge en konstant fra en anden excel fil i min vba kode hvordan henter jeg den ind ?

her er en del af koden:

Dim Bukpris As Byte
    If Val(txtLængde.Text) <= 3000 Then
        If Val(txtBredde.Text) <= 500 Then
            If Val(lstTykkelse.Text) <= 1 Then
                Bukpris =(det er her konstanten skal sættes ind)
            Else:
                Bukpris =(det er her konstanten skal sættes ind
            End If

den anden excel fil findes ikke på samme drev som brugerfilen.

Håber i kan hjælpe da jeg er ny i VBa

MVH. Lars
Avatar billede kedde65 Praktikant
27. august 2009 - 13:48 #1
hej

Jeg har lavet et eksempel til dig her - jeg går udfra du ønsker at hente konstanten i en celle fra det andet ark?

Sub hentKonstant()
    Dim wrk As Workbook
    Dim konstant As String
   
    Application.ScreenUpdating = False
    Set wrk = Application.Workbooks.Open("O:/Konstant fil.xlsx")
   
    konstant = wrk.Worksheets("Sheet1").Range("B3").Value
   
    wrk.Close False
    Range("A1").Value = konstant
    Application.ScreenUpdating = True
End Sub

her åbner den "konstant fil.xlsx" og henter indholde at celle B3 i arket "sheet1"

Spørg endelig igenn, hvis det driller!

Stor hilsen
Christian
Avatar billede FlikFlak9000 Nybegynder
27. august 2009 - 14:56 #2
Hej christian
Tak for hjælpen.
Mvh. Lars
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester