listbox

[miiia83]

hej!

vet nån hur koden för att skapa en listbox ser ut??
jag har en kod i excel VB som ser ut som nedan.. jag skulle vilja att function_codes visades som en listbox men vet inte hur jag skall göra det??!!

Sub Get_Category()

    resrow = 3     'börjar vid cell 3,2
    rescol = 2
    Sheets("sheet1").Range("b2:j1000").ClearContents
    

    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set rs = ConnRFC.Execute(strQuery)
    Do Until rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = rs("DESCRIPTION")
        
        resrow = resrow + 1
        rs.MoveNext
    Loop
    
    KillConnection ("RFC")


End Sub

 

[fairwinds]

Hej och Välkommen!

Jag ser att du postat in fråga också i huvudforumet. Det är bra då det är många fler som kan hjälpa dig där. Du har ju redan fått ett förslag från jindon.

Lycka till!

 

[miiia83]

jo tackar!!

tänkte det va bäst att skriva in det i huvudforumet oxå... vet ju aldri hur många som förstår svenska här!!

får se nu då om jag får det löst...


mia

 

[miiia83]

alltså jag har just nu en kod som bara skriver ut texten från en access tabell...

i den första kolumnen finns funtion_codes och dom är alla i sifferordning förutom dom 8 sista!!

kanske du kan försklara varför det är så??

 

[fairwinds]

Min gissning är att de på slutet är textformatterade och de i början är siffror. I.e. numer sorteras före text.

 

[miiia83]

en function_code består av både siffror och en bokstav.. ex. 3N03
alla celler är formatterade som general..

 

[miiia83]

fast egentligen spelar det ingen roll varför.. det skall ändå inte visas i tabeller.. skulle vilja ha det som en listbox... tänkte bara fallom det visas i fel ordning i den då oxå...

Det verkar nu inte som jag kommer att få nån listbox.. det e helt omöjligt att hitta nåt om hur man skall göra det!

 

[fairwinds]

Jodå, går det så skall du nog få hjälp. jindon är mycket duktig och ger inte upp i första taget. :wink:

 

[miiia83]

han verkar ha gett upp..

 

[Von Pookie]

This was also posted in English (duplicate):
http://www.mrexcel.com/board2/viewtopic.php?t=260030