Ook keuzevak lukt niet

[Hoppa]

Schijnt niet te mogen lukken vandaag................

Ik hen nu een besturingselement 'keuzelijst toegevoegd zodat gebruiker kan kiezen welk item hij geplaatst wil zien.

Ik dacht dat ...dan zet ik deze actie onder de knop:

Private Sub comOdprachtgever_Change()
With Me.comOpdrachtgever
.AddItem "OGA"
.AddItem "D'IVV"
.AddItem "SD Centrum"
End With
End Sub

Maar excel denkt daar toch echt anders over en doet niets...........
Ik gok erop dat ik iets verkeerd doe..........................

 

[brutus]

Hai Hoppa,

Er gaat inderdaad iets niet helemaal goed. Er even vanuit gaande dat je die keuzelijst op een userform hebt geplaatst zou je de waarden die in je keuzelijst moeten staan beter kunnen toevoegen in de userform_initialize procedure. Dit doe je door in de visual basic editor te dubbelklikken op je userform. Let op, je krijgt dan de procedure userform_click voorgeschoteld. Dat is dus de verkeerde. Kies daarom rechtsboven uit de keuzelijst "initialize". Er wordt nu een verse procedure Userform_initialize voor je klaar gezet. Alle code die je hier nu in zet zal worden uitgevoerd op het moment dat je userform aangeroepen wordt. Om nu de waarden in je keuzelijst te zetten gebruik je:

Sub userform_initialize()

with comOpdrachtgever
.AddItem "OGA"
.AddItem "D'IVV"
.AddItem "SD Centrum"
End With
End Sub

 

[Hoppa]

Ik snap het......bijna.............

Ik heb in VBA nu het volgende staan:
Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

End Sub

Uiteraard met een scheidingstreep.

Als ik nu de opdrachten in de intiliaze routine zet dan krijg ik bij het opstarten van de userform een foutmelding in de routine :

Sub Autpen()

frmAlgemenegegevens.Show

End Sub

Zo als het hierboven staat blijft de userform wel werkbaar , dus alleen las ikde keuzelijst erin zet gaat het mis.

 

[brutus]

Welke foutmelding??

 

[Hoppa]

Het zat hem waarschijnlijk in de naamgeving van comOpdrachtgever. Hoewel verdere syntax goed, heb ik deze weggehaald en een nieuwe gemaakt met de originele combobox naam.

En nu werk het wel. Ik ga nu proberen de geselecteerde items ook in het werkblad te krijgen.

bedankt!

 

[Hoppa]

Oke ik probeer veel maar ja ..................

Dit is wat ik heb gezet onder de cmd button:

Private Sub cmdKlaar_Click()
If Me.ComboBox1 = "" Then
MsgBox "U hebt geen opdrachtgever geselecteerd."
Exit Sub
End If

ActiveDocument.Bookmarks("bmOpdrachtgever").Select
Selection.TypeText Me.ComboBox1.Column(0)
End Sub

Syntax van combobox en bmOpdrachtgever is goed en de bookmark staat ook zo in het werkblad.

En tocht zegt Excel bij het klikken op de cmdbutton dat er iets mis is met de regel:
ActiveDocument.Bookmarks("bmOpdrachtgever").Select

Eing idee?

 

[brutus]

Geplaatst door Hoppa

Dit is wat ik heb gezet onder de cmd button:

Private Sub cmdKlaar_Click()
If Me.ComboBox1 = "" Then
MsgBox "U hebt geen opdrachtgever geselecteerd."
Exit Sub
End If

ActiveDocument.Bookmarks("bmOpdrachtgever").Select
Selection.TypeText Me.ComboBox1.Column(0)
End Sub

Je zegt dat je syntax goed is, maar daar ben ik het niet helemaal mee eens.
Je hebt de regel:
If Me.ComboBox1 = "" then

Probeer daar eens
If Me.ComboBox1.text = "" then
van te maken. Liever nog:
If frmMijnFormulier.ComboBox1.Text= "" then

Dan heb je:
Selection.TypeText Me.ComboBox1.Column(0)
Probeer eens:
Activecell.FormulaR1C1 = frmMijnFormulier.ComboBox1.Text

frmMijnFormulier moet je dan even vervangen door de naam van jouw userform.

 

[Hoppa]

Alles gewijzigd als volgt:
If frmAlgemenegegevens.ComboBox1.Text = "" Then
MsgBox "U hebt geen opdrachtgever geselecteerd."
Exit Sub
End If
ActiveDocument.Bookmarks("bmOpdrachtgever").Select
ActiveCell.FormulaR1C1 = frmAlgemenegegevens.ComboBox1.Text

Krijg nu nog steeds de melding in de regel met bmOpdrachtgever. Dat ziet ie als fout maar hij geeft niet aan wat de fout is (de hele regel licht op)

Zie iets over het hoofd(behalve de syntax dan.................)

 

[brutus]

Ik neem aan dat die bookmark een enkele cel is? Als dat zo is kun je die ook als volgt selecteren:

Sheets("mijnwerkbladnaam").activate
Range("A34").select
Activecell.FormulaR1C1 = frmAlgemenegegevens.ComboBox1.Text

 

[Hoppa]

Brutus,

mijn dank is groot.

Het werkt als een speer

mvg

Rini