Avatar billede mrkr Juniormester
03. maj 2008 - 12:02 Der er 16 kommentarer og
2 løsninger

Indsætte datavalideringslist i celler udfra værdier i andet ark

idag har jeg 2 ark.
1 ark, hvor jeg har en liste med 3 kolonner.
kolonne A = tal fra 1-100
kolonne B = tekst, varenavne
kolonne C = en kombination af de 2 kolonne...formlen er... =a1&" "&b1 osv.

Når jeg står i ark 2 vil jeg gerne have mulighed for at lave en valideringsliste så der kun kan indtastes de numre der står i ark1. Altså nr. 1-100.

Problemet er at vi ikke ret tit kan huske varenummeret, men meget gerne vil have mulighed for at se BÅDE nr. og tekst i valideringslisten. Altså en slags hjælpe tekst, som står i kolonne B i ark1

Valideringslisten skal f.eks. se sådan ud:
"55 - vare incl. fragt"

Når vi så har valgt nummeret f.eks. 55. så skal der ikke stå "55 - vare incl. fragt" ,men kun 55 i cellen.

Kan det lade sig gøre med lidt vba?
Avatar billede jkrons Professor
03. maj 2008 - 14:26 #1
Her er en mulighed:

I Ark1 opretter du en ekstra kolonne med følgende formel: =A1&" "&B1
Kopier den til alel rækker. Navngiv denne ekstrakolonne, fx Liste.

I Ark2 laver du datavlaidering som normalt, men med listen i Kolonne C som udgangspunkt.

I arkets kodemodul indsætter du denne kode:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Value = Left(Target.Value, InStr(1, " ", Target.Value) + 1)
    End If
End Sub

Løsningen forudsætter at datavalideringen i Ark2 foregår i kolonne A - ellers skal du tilpasse koden.
Avatar billede mrkr Juniormester
03. maj 2008 - 20:48 #2
jeg kan ikke få den til at virke.
Den skriver at der er fejl i denne linje

  Target.Value = Left(Target.Value, InStr(1, " ", Target.Value) + 1)
Avatar billede mrkr Juniormester
03. maj 2008 - 21:22 #3
Den skriver følgende fejl:

Rune time error '
Method Value of object Range Failed
Avatar billede jkrons Professor
03. maj 2008 - 22:54 #4
Det virker fint hos mig. Jeg ser på det i morgen.
Avatar billede mrkr Juniormester
04. maj 2008 - 19:01 #5
Nu har jeg fået testet det på en excel 2003. Der virker det fint!
Meget mærkeligt synes jeg nok.

Kan der evt laves en lille tvist, så koden laves på en anden måde.
Så den kan køre på min "til tider" ustabile excel 2007
Avatar billede kabbak Professor
04. maj 2008 - 19:07 #6
prøv med

Target.Value = Split(Target, " ")(0)
Avatar billede mrkr Juniormester
04. maj 2008 - 19:50 #7
øv, det går galt igen.
Den laver samme fejlmeddelelse.
Måske er det bare en generel fejl i 2007 versionen.
Der er jo mange forskellige uheldige småting.
Avatar billede kabbak Professor
04. maj 2008 - 21:21 #8
du har vel ikke lavet om på koden, prøv at sætte den ind her, den du bruger nu, og er du sikker på, at du både har datavalideringen i kolonne A og koden i ark 2.
Avatar billede mrkr Juniormester
04. maj 2008 - 21:29 #9
Jeg har lavet en "liste" i ark1 i kolonne C
Den har jeg hentet frem via datavalidering i kolonne A i ark2 (dog kun i celle a1 til at teste af på)
Jeg bruger følgende kode i ark2


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
      Target.Value = Split(Target, " ")(0)
    End If
End Sub
Avatar billede kabbak Professor
04. maj 2008 - 21:34 #10
prøv at rette
  Target.Value = Split(Target, " ")(0)
til
  Target = Split(Target, " ")(0)
Avatar billede mrkr Juniormester
04. maj 2008 - 22:05 #11
den gør det samme.
Så er det man er træt af at have opdateret til 2007.
Det virker jo på 2003.!! :-(

Ved ikke hvad der går galt, men kan det være SPLIT, den ikke fatter.
Kan man få koden altid at tage de 3 første tegn og derved undgå at skrive SPLIT i koden
Avatar billede kabbak Professor
04. maj 2008 - 22:10 #12
Target = Val(left(Target,3))

prøv det
Avatar billede mrkr Juniormester
04. maj 2008 - 22:30 #13
Det hjalp heller ikke.
øv øv øv
Avatar billede mrkr Juniormester
04. maj 2008 - 22:30 #14
Den skriver at der ikke er system resourser til at vise alt!!!
Sådan noget fis
Avatar billede jkrons Professor
05. maj 2008 - 12:39 #15
Mon ikek der er tale om en fejl i XL2007? Det ville i så fald ikke være den eneste.
Avatar billede mrkr Juniormester
14. maj 2008 - 19:20 #16
Hey!
Den her skal vi da have lukket.
Dt er jo ikke jeres problem at excel 2007 ikke funker.

Giver I et svar så kan vi evt splitte pointene.
Avatar billede kabbak Professor
14. maj 2008 - 19:33 #17
et svar ;-))
Avatar billede jkrons Professor
14. maj 2008 - 22:58 #18
Svar :-)
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