Avatar billede familienriis Nybegynder
14. maj 2007 - 20:26 Der er 5 kommentarer og
1 løsning

indsætte værdi fra en "listbox" i en userform

Jeg har idag en userform hvis eneste funktion er at vise en listbox. Listboxen viser værdierne fra a1:b50 i ark2

Når jeg aktiverer userformen kan jeg "scrolle" igennem de værdier der er i listboksen.

Jeg kunne rigtig godt tænke mig at hvis jeg trykkede på enter når jeg stod på en af linierne i listboxen/userformen så blev userformen lukket og den værdi/tekst der var aktiv i listboksen overført til en given celle i ark1 ( den celle der er aktiv inden man åbnede listobksen/userformen)

Kan det lade sig gøre?


Jeg vil meget gerne sende mit ark til jer, hvis det kan hjælpe på forståelsen. For det er lidt kryptisk at beskrive uden at kunne vise et direkte eksempel.
Avatar billede kabbak Professor
14. maj 2007 - 20:56 #1
Private Sub ListBox1_Click()
ActiveCell = Me.ListBox1
Me.Hide
End Sub
Avatar billede kabbak Professor
14. maj 2007 - 20:59 #2
nåå det var enter

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        ActiveCell = Me.ListBox1
        Me.Hide
    End If
End Sub
Avatar billede familienriis Nybegynder
14. maj 2007 - 21:18 #3
jep, det virker som altid, når man får hjælp fra dig. takker.

Der er dog lige et problem. Den værdi der står i listboxen er en sammensat værdi af to celler =a1&b1
Feks.
a1 = "a01 - "
b1 = "Dette er en test"

disse 2 celler er flettet sammen i c1 som
"a01 - Dette er en test"

Det er denne værdi der vises i listboksen og som bliver overført til den aktive celle.

De første 6 cifre/tal er altid fra "a01 - " til "a99 - " altså mellem 01 og 99.
De første 6 cifre er blot en genkendelseskode som ikke skal bruges i den aktive celle.

Kan det så lade sig gøre at de første 6 tegn ikke bliver indsat i den aktive celle.
Så der kun kommer til at stå "Dette er en test"???
Avatar billede kabbak Professor
14. maj 2007 - 21:29 #4
ActiveCell = right(Me.ListBox1,len(Me.ListBox1)-6)
Avatar billede familienriis Nybegynder
14. maj 2007 - 21:40 #5
YES!

Det var lige det jeg skulle bruge.
MAnge tak for hjælpen.

Får leg lige et svar, så jeg kan honorere indsatsen :-)
Avatar billede kabbak Professor
14. maj 2007 - 21:41 #6
et 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