Vba

[Sary]

beste,



iemand een idee wat ik hier fout doe?
Ik heb hier nog wat aanpassingen gedaan en krijg steeds een fout.


Mvg,

 

[edmoor]

T_19 is een TextBox, die heeft geen .List attribuut.

 

[Sary]

Dag edmoor,


Ok. Ik ga dit eens veranderen dan naar txtb.


Mvg,

Mercikes!

 

[Sary]

Dag edmoor,



Blijf die fout krijgen als ik het verander naar T_19Texbox.

 

[edmoor]

Ik geloof niet dat je het begrijpt.
Het object is een textbox in je userform.

 

[snb]

Stel de eigenschappen columncount en columnwidth in in de ontwerp modus.

 

[Sary]

Ik geloof niet dat je het begrijpt.
Het object is een textbox in je userform.

Dag edmoor,

Sorry dat ik nu maar reageer maar ben ziek geweest.

Hoe bedoel je dan?


Ik heb een tab L_19/T_19 waar ik een keuze moet kunnen maken uit mijn lijst S1 (Dag/Late/Vroegen)
In L_20/T_20 moet ik een waarde kunnen ingeven

ps ik had gemerkt dat ik bij de vorig dat ik erbij gepost had mijn lijst niet had ingevuld

 

[edmoor]

Goed dat je weer beter bent

T_19 is een Textbox in je Userform.
Een Textbox kan je geen Array van waarden aan toekennen zoals je nu doet.
Een Textbox kan maar 1 waarde krijgen.
Maak er een Listbox of een Combobox van.

 

[Sary]

Stel de eigenschappen columncount en columnwidth in in de ontwerp modus.

Beste,snb,


Wat bedoel je hiermee?

 

[Sary]

Goed dat je weer beter bent

T_19 is een Textbox in je Userform.
Een Textbox kan je geen Array van waarden aan toekennen zoals je nu doet.
Een Textbox kan maar 1 waarde krijgen.
Maak er een Listbox of een Combobox van.

Dag edmoor,

Bedankt voor de info.

Ik heb deze nu aangepast maar krijg nog steeds een fout
Private Sub UserForm_Initialize()
T_00.Value = WorksheetFunction.Max([AMNrs]) + 1
T_01.Value = Format(Date, "dd/mm/yyyy")
T_02.List = [lab_tbl].Value
T_03_Populate
T_13.List = Split("OK NOK")
T_14.List = [met_tbl].Value
T_15.List = Split("OK NOK")
T_16.List = [mng_tbl].Value
T_19.List = [Ploeg:V/L/N/WD/WN_tbl].Value
T_20.List = [Extra boter toegevoegd_tbl].Value
Cmd_03.Enabled = False
With LB_00
.List = [AFMdata_tbl].Value
.ColumnCount = [AFMdata_tbl].CurrentRegion.Columns.Count
.ColumnWidths = "0;70;80;70;70;110;60;60;40;40;40;60;40;30;80;30;80;0"
For i = 0 To .ListCount - 1
.List(i, 1) = Format(.List(i, 1), "dd/mm/yyyy")
Next i
End With
End Sub

 

[edmoor]

Aan de code kan ik niet zien of je de Textbox heb gewijzigd in een List- of Combobox.
Ik zie alleen dat je er de .List methode gebruikt en die is er niet voor een Textbox.
Daarnaast, als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.

 

[Sary]

VBA Formulier

Dag edmoor,


Bij deze heb ik het erbij gestoken

 

[edmoor]

Je verteld er nog niet bij welke foutmelding je krijgt, op welke userform en hoe je die opent.

 

[Sary]

VBA Formulier

Deze heb ik toegevoegd:


T_19.List = [PLoeg_tbl].Value
T_20.List = [Extra boter toegevoegd].Value

Maar krijg steeds de Fout 424 ( Object vereist)

 

[edmoor]

Ik kan 100x zeggen dat een Texbox geen .List methode kent, maar kennelijk helpt dat niet.

 

[Sary]

VBA Formulier

Ik heb deze veranderd bij eigenschappen naar combobox

 

[VenA]

Dat kan niet. Of wel? Dan heb ik weer wat geleerd.

 

[Sary]

Ik probeer hier van Alles maar vind het niet.

Ik zoek morgen wel verder

 

[edmoor]

Verwijder TextBox T_19 uit de Userform.
Zet er een ComboBox voor in de plaats.
Noem deze bijvoorbeeld CBX_19.
Wijzig in je code T_19. List in CBX_19.List

 

[Sary]

VBA Formulier

Dag edmoor,




Bedankt voor de hulp. Maar op deze manier lukt het ook niet. Ik weet niet wat ik fout doe?
Alles geprobeerd maar bij al wat ik uitvoer krijg ik diezelfde fout.




Mvg,