10. december 2011 - 17:06
Der er
3 kommentarer og 1 løsning
ComboBox med Sheets navne
Hej. Nogen der lige kan smide en kode efter mig, hvor indholdet i en ComboBox er Sheets. Det skal være fra Sheets(4) - det samlede antal (som er forskelligt). Jeg har prøvet mig frem med en For-sætning, men det vil ikke rigtigt. Help :) Anders
Annonceindlæg fra FPT Software
10. december 2011 - 17:30
#1
Hej Anders Grib :o) Sub FyldCombobox1() Dim w As Integer 'fra 4. ark til sidste ark For w = 4 To ActiveWorkbook.Worksheets.Count 'tildel combobox´en på sheet1, navnet på det aktuelle ark Sheet1.ComboBox1.AddItem (Worksheets(w).Name) Next w End Sub Med venlig hilsen, Nicolai