• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

datum opmaak textbox

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Ik heb op mijn Userform een txt gezet waar de datum moet inkomen na een keuze van een getal in een cbo.
De datum wil ik voluit namelijk bv. 08 september 2017 en niet 8-09-2017
Heb het geprobeert met de volgende code
Code: 
Private Sub UserForm_Initialize()
    EndRow = Sheets("Scores").Cells(Rows.Count, 1).End(xlUp).Row
       Set oC = Sheets("Scores").Cells
        For r = 4 To EndRow
            If oC(r, 1).Value <> "" Then
            cboNaam.AddItem oC(r, 1).Value
            End If
        Next
  cboSpeeldag.List = [row(1:22)]
  txtDatum.Text = Format(Dag, "dd/mmmm/yyyy")
End Sub
Maar het lukt mij niet.
Ook wanneer ik in de cboSpeeldag eerder welk getal kies krijg ik wel de juiste datum, behalve met "1" dan krijg ik de datum die achter "10" staat.
Hier gebruik ik de volgende code
Code: 
Private Sub cboSpeeldag_Change()
    With ['Input Gegevens'!I2:I42]
    txtDatum.Text = .Find((cboSpeeldag.Value), LookIn:=xlValues).Offset(, 2)
    End With
End Sub
Iemand een oplossing?

Grtjs.
Armand
 

Bijlagen

  • Inter IndividueleScores.xlsm
    1,9 MB · Weergaven: 55
In je eerste voorbeeldcode gebruik je de variabele dag.
Deze heeft nog nergens een waarde gekregen.
 
Code: 
Private Sub txtDatum_Change()
 txtDatum = Format(CDate(txtDatum.Text), "dd mmmm yyyy")
End Sub
 
Dat kan simpeler.

In de initialize.
Code: 
cboSpeeldag.List =[COLOR=#0000ff] Sheets("input gegevens").Range("I2:K23").Value[/COLOR]

Code: 
Private Sub cboSpeeldag_Change()
   txtDatum = Format(cboSpeeldag.Column(2), "dd mmmm yyyy")
End Sub
 
Hallo Experts,
Bedankt voor jullie snelle reacties.
Heb de oplossing van Harry gebruikt.
Simpel en werkt perfect.

Grtjs.
Armand
 
Hallo Harry,

Toch nog iets te rap reweest.
Als ik nu mijn Opt1 selecteer werkt het perfect.
Maar bij Opt2 en Opt3 krijg ik in de cboSpeeldag_change de foutmelding
HTML: 
Kan de eigenschap Column niet verkijgen. Ongeldige index voor eigenschappenmatrix

Grtjs.
Armand
 
Armand,

Kleine aanpassingen in het verlengde van.
 

Bijlagen

  • Inter IndividueleScores.xlsb
    1,4 MB · Weergaven: 107
Bedankt Harry,

Werkt perfect nu.
Maar wat doet die kleine aanpassing precies, zodat ik het nog een beetje meer begrijp.
Heb hier toch al veel geleerd.

Grtjs.
Armand
 
Ik heb voor elk optionbutton een bereik genomen voor de combobox.list waar jij een evaluatie had naar rijen..[row(1:22)].
Daarna ging je met de Find methode de rij weer opzoeken.
Daarbij had je voor elke optionbutton ook nog eens dezelfde rijen erin; rij(1:22), rij(1:4) en rij(1:10) waarbij dit dezelfde gegevens opleverde bij opt2 en opt3 als bij opt1.

De bereiken die ik heb genomen beslaan drie kolommen.
In de combobox staan dus alle gegevens zodat de find methode vervalt en de waarden worden opgehaald met de column methode.
 
Alleen jammer van mijn tijd om mensen te helpen die hardleers zijn.
 
Hallo Harry,
Sorry dat ik Uw tijd gebruik.
Maar alle tips die ik hier krijg, samen met een woordje uitleg verzamel ik en probeer daar zoveel mogelijk uit te leren.
Zo heb ik veel bezigheid in mijn pensioenjaren intussen.
En daar dank ik jullie enorm voor.
Dit is een super forum.

Grtjs.
Armand
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan