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??!!
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??!!
Code:
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
