Avatar billede vtec4ever Nybegynder
06. februar 2007 - 11:05 Der er 3 kommentarer og
1 løsning

Skrivning af denne.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1") = "='F:\Hasteordrer\[" & Range("A1") & ".xls]Ark1'!A2"
End Sub

Hvis jeg samtidigt ønsker at få dataene fra Ark1'!A3 leveret i B2, på baggrund af værdien i A1 hvordan skal denne så tastes???
Avatar billede excelent Ekspert
06. februar 2007 - 11:11 #1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B1") = "='F:\Hasteordrer\[" & Range("A1") & ".xls]Ark1'!A2"
Range("B2") = "='F:\Hasteordrer\[" & Range("A1") & ".xls]Ark1'!A3"
End Sub
Avatar billede vtec4ever Nybegynder
06. februar 2007 - 11:41 #2
Tusind tak for det !!! Lægger du lige et svar, så du kan få dine point?

Kan man så gentage denne i det uendelige?
Avatar billede excelent Ekspert
06. februar 2007 - 12:41 #3
velbekom

jeg forstår ikke hvad du mener med gentage
Avatar billede vtec4ever Nybegynder
06. februar 2007 - 12:47 #4
Har fundet svaret på det selv...mente bare om man kunne blive ved med at gentage denne linie i det uendelige.
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