combobox

  • Onderwerp starter Onderwerp starter pasan
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

pasan

Terugkerende gebruiker
Lid geworden
6 nov 2010
Berichten
1.110
hallo allemaal.

ik heb een probleem die ik met hulp van jullie hoop op te lossen.

ik heb 3 comboboxen en 20 sheets
ik had alle info op 1 sheet staan die vervolgens selecteerbaar waren in de 3 combo`s
om nu die info een beetje overzichtelijker te maken heb ik elke onderwerp lees row,
in een eigen sheet geplaatst. leek mij handiger om later te kunnen aanvullen.
Maar hoe krijg ik die nieuwe Sheets nu in die combos

deze code staat er nu, heb ik het goed als ik denk dat hier het probleem in zit?

Private Sub UserForm_Initialize()
Dim cPart As Range
Dim ws As Worksheet
Set ws = Worksheets("machine")

For Each cPart In ws.Range("PartIDList")
With Me.cboSectie
.AddItem cPart.Value
End With
Next cPart


Me.txttime.Value = Format(Time, "General Date")
Me.cboSectie.SetFocus

End Sub


in combo1 kan ik een keuze maken uit een puldown lijst afhankelijk wat ik daar kies komt er een bijbehorende lijst in combo2 enz.
dit werkte wel zolang alle data op 1 sheet staan
als ik die data verspreid op andere sheets kan ik die sheets niet meer oproepen met de volgende code

Private Sub cboSectie_Change()
Sheets("machine").Select

de keuze "machine" kan ik wel veranderen in de naam van een ander blad maar dan komt er geen lijst in beeld in combo2


met vriendelijke groeten

Pasan
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan