onderste combobox regel leeg

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste Helper,

Ik gebruik de volgende code om mijn combox te vullen echter de laatste regel is een lege hoe kan ik de verwijderen
Code: 
Private Sub Workbook_Open()
   
     For I = 1 To Worksheets.Count
       aSheets = aSheets & Sheets(I).Name & "|"
    Next
    ActiveSheet.OLEObjects("Combobox1").Object.List = WorksheetFunction.Transpose(Split(aSheets, "|"))
    
  
End Sub

bijgaand voorbeeld bestand.

Alvast vriendelijk dank
 

Bijlagen

  • Helpmij (2).xlsm
    28,7 KB · Weergaven: 20
Als je je string een keer zou uitvragen in een msgbox, dan had je het antwoord geweten :). Je zet achter elke naam een pipeline, dus ook achter de laatste. Dat wordt dan een lege regel in je combobox. Kun je zo oplossen:
Code: 
        If asheets <> "" Then asheets = asheets & "|"
        asheets = asheets & Sheets(I).Name
 
Of zo:
Code: 
Private Sub Workbook_Open()
    Dim aSheets() As String
    For i = 1 To Worksheets.Count
        ReDim Preserve aSheets(i - 1)
        aSheets(i - 1) = Sheets(i).Name
    Next
    ActiveSheet.OLEObjects("Combobox1").Object.List = aSheets
End Sub
 
of
Code: 
Private Sub Workbook_Open()
  For Each sh In Sheets
    c00 = c00 & "|" & sh.Name
  Next sh
  Sheets("Blad9").OLEObjects("Combobox1").Object.List = Split(Mid(c00, 2), "|")
End Sub
 
Of:
Code: 
Private Sub Workbook_Open()
  For Each sh In Sheets
    c00 = c00 & "|" & sh.Name
  Next sh
  Sheets("Blad9").ComboBox1.List = Split(Mid(c00, 2), "|")
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan