VBA Fout

[Lavi87]

Goedemiddag All,

Ik heb een formulier gemaakt met VBA nu krijg ik telkens komt niet overeen.
Wie kan mij helpen om de fout op te sporen?

 

[edmoor]

En wat moeten we doen om het probleem te reproduceren?

 

[Lavi87]

Goedemiddag Edmoor,

Ik krijg telkens Fout 13 in uitvoering:
Typen komen niet met elkaar overeen.

Als ik alles na loop.
Zou alles goed moeten staan zoals hoe het mij geleerd is.
Dus zie zelf nu niet waar de fout zit.

Misschien dat iemand het ziet en het mij kan uitleggen wat ik verkeerd heb gedaan.
Zodat ik de fout kan oplossen.

 

[edmoor]

Je hebt nog niet verteld hoe in het document dat je plaatste het probleem te reproduceren is.

 

[Lavi87]

Bij het invoeren van het formulier en dan druk je op toevoegen & verzenden.

Dan krijg je deze melding

 

[edmoor]

Probeer deze eens:
Bekijk bijlage Kopie van Afmeldingen.xlsm

 

[Lavi87]

Die van jouw werkt wel.

Heb nu ook gezien waar het mis is gegaan.


ik zie trouwens dat hij de dropdownbox ook niet meeneemt in de tabel als ik er daar 1 heb aangeklikt blijft het vak wit.

 

[edmoor]

Er zit wel degelijk verschil in de code.
Anders had je dezelfde fout nog gehad
Die dropdownbox heb ik niet naar gekeken.

Nu wel:
Plaats de code van Private Sub drpDiad_Change() in de UserForm_Initialize() sectie.

 

[Lavi87]

Zou je die voor mij nog in een voorbeeld kunnen zetten?

Want komt er niet helemaal in uit

 

[edmoor]

Bij deze:
Bekijk bijlage Kopie van Afmeldingen.xlsm

 

[Lavi87]

Top dankje wel

 

[VenA]

In plaats van

Private Sub UserForm_Initialize()
With drpDiad
.AddItem "G01"
.AddItem "G02"
.AddItem "G03"
.AddItem "G04"
.AddItem "G05"
.AddItem "G06"
.AddItem "G07"
.AddItem "G08"
.AddItem "G09"
.AddItem "G10"
.AddItem "G11"
.AddItem "G12"
.AddItem "G13"
.AddItem "G14"
.AddItem "G15"
.AddItem "G16"
.AddItem "G17"
.AddItem "G18"
.AddItem "G19"
.AddItem "G20"
.AddItem "G21"
.AddItem "G22"
.AddItem "G23"
.AddItem "G24"
.AddItem "G25"
End With
drpDiad.Value = ""
End Sub

is dit voldoende

Private Sub UserForm_Initialize()
  drpDiad.List = ["G"&text(row(1:25),"00")]
End Sub