hè, verwijzen naar waarde uit invoer combobox in formulier werkt niet..

[Rogierasd]

haaaa, ben ik weer.

tijdje geleden heb ik vraagje gesteld over een tabblad laten zien aan de hand van een keuzelijst met invoerbakje en een button,
wat we toen met zijn allen hebben opgelost door het zo uit te voeren:


Ik heb een 'keuzelijst met invoervak' gemaakt, verwijzend naar een tabel met alle tabbladnamen(op een ander blad).
de gekozen waarde uit de keuzelijst laat ik dan neerzetten in cel H35, waar ik die 'keuzelijst met invoervak' overheenplak (om te verstoppen)

dan een button ernaast met code:

Private Sub CommandButton22_Click()
Dim MyTabblad
MyTabblad = Range("h35").Value
Sheets(MyTabblad).Select


Dit werkt goed op een normaal werkblad(met een keuzelijst van excel),
en het lukt me bijna om het met een keuzelijst in een userform te doen(bij vba van excel), maar ik weet niet hoe ik invoer bij de combobox waar hij de uit de lijst gekozen waarde moet neerzetten...

wie helpt mij:shocked:

alvast onwijs bedankt!!!

 

[Roncancio]

Ik hoop dat ik begrijp wat je bedoelt.
Onderstaande code kan je invoeren op je userform.

De 1e code
- telt het aantal werkbladen in het bestand.
- zet de namen van de werkbladen in combobox1*.

De 2e code
- is verbonden met commandbutton1*
- controleert of er een werkblad is geselecteerd. (zoniet dan verschijnt er een melding)
- activeert het geselecteerde werkblad

* Het is natuurlijk netter om ze te benoemen en ik neem aan dat jezelf de besturingselementen heb benoemd.


Private Sub UserForm_Initialize()
Dim C, T As Integer
C = Worksheets.Count
For T = 1 To C
With ComboBox1
.AddItem Worksheets(T).Name
End With
Next
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
Worksheets(ComboBox1.Value).Select
Else
MsgBox "Je moet eerst een werkblad selecteren.", vbExclamation, "Geen Werkblad geselecteerd"
End If
End Sub

 

[Rogierasd]

Wow!!

Ik hoop dat ik begrijp wat je bedoelt.
Onderstaande code kan je invoeren op je userform.

De 1e code
- telt het aantal werkbladen in het bestand.
- zet de namen van de werkbladen in combobox1*.

De 2e code
- is verbonden met commandbutton1*
- controleert of er een werkblad is geselecteerd. (zoniet dan verschijnt er een melding)
- activeert het geselecteerde werkblad

* Het is natuurlijk netter om ze te benoemen en ik neem aan dat jezelf de besturingselementen heb benoemd.


Private Sub UserForm_Initialize()
Dim C, T As Integer
C = Worksheets.Count
For T = 1 To C
With ComboBox1
.AddItem Worksheets(T).Name
End With
Next
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
Worksheets(ComboBox1.Value).Select
Else
MsgBox "Je moet eerst een werkblad selecteren.", vbExclamation, "Geen Werkblad geselecteerd"
End If
End Sub

WOW Roncancio!!!

Dit werkt geweldig!

helemaal te gek, een erg handig stuk code, ontzettend bedankt!!

Groetjes,
Rogier:thumb: :shocked: