Avatar billede friis5 Novice
27. november 2007 - 11:03 Der er 3 kommentarer og
1 løsning

Linkedcell til andre ark

Hey guruer.

Et hurtigt spørgsmål, hvordan sætter man linkedcell komandoen til at linke til andre sheets? Kodestumpen nedenfor virker fint i mit ark, men jeg skal have linkedcell til at linke til et andet sheet end det aktive.


Kodestump, der virker ------------

Dim rng as Range
        Set rng = Range("A1:D1")

        ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select
        With Selection
            .LinkedCell = rng(1, 1).Address
        End With

Kodestump, der IKKE virker ------------

ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select
        With Selection
            .LinkedCell = Sheets("Ark1").rng(1, 1).Address
        End With
Avatar billede friis5 Novice
27. november 2007 - 12:55 #1
Skulle måske lave den "virkende" kodestump, så den rent faktisk kunne køre:

Sub test()

Dim rng As Range
Dim myRange As Range
   
    'On Error Resume Next
   
    Set myRange = Range("A10")
    Set rng = Range("A1:D1")

    ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select
    With Selection
        .LinkedCell = rng(1, 1).Address
        .Characters.Text = "Test"
    End With

End Sub
Avatar billede friis5 Novice
27. november 2007 - 13:16 #2
Virker nu - ellers tak for hjælpen (hvis der var nogen der nåede at prøve) :)

Sub test2()

Dim rng As Range
Dim myRange As Range
   
    'On Error Resume Next
   
    Dim shname As String
    shname = "Ark2"
   
    Set myRange = Range("A10")
    Set rng = Range("A1:D1")

    ActiveSheet.CheckBoxes.Add(myRange.Left, myRange.Top, myRange.Width, myRange.Height).Select
    With Selection
        .LinkedCell = shname & "!" & rng(1, 1).Address
        .Characters.Text = "Test"
    End With

End Sub
Avatar billede friis5 Novice
27. november 2007 - 13:24 #3
Argh, jeg var for hurtig - det virker stadig ikke hvis der er mellemrum i ark-navnet :/
Avatar billede friis5 Novice
27. november 2007 - 13:29 #4
.LinkedCell = "'" & shname & "'" & "!" & rng(1, 1).Address

Skal den åbenbart have på :S
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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