• 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.

Excel VBA Datumnotatie Userform

Status
Niet open voor verdere reacties.
S

Speedsurfer

Gebruiker
Lid geworden
3 aug 2019
Berichten
60
Wie kan mij helpen.?
Ben al lange tijd op het Internet aan het zoeken hoe ik mijn probleem opgelost kan krijgen.
Ik wend mij tot “Helpmij”
In Excel heb ik een werkmap met daaronder een aantal werkbladen.
Één daarvan heet “Datum” waarin ik een 16-tal recente en toekomstige datums heb gezet.
Datums zijn reeds als “Datum” gevalideerd.
Doormiddel van een keuzelijst krijg ik die ook prima zichtbaar.
Helaas na het klikken op één van die datums (03-08-19) veranderd de datum in het getal 43680
Ik wil uiteraard de juiste notatievorm zien.
Vervolgens schrijft hij deze datum naar een cel die door mij daarvoor uitgekozen is.
Het getal 43680 wordt dan weer 03-08-19
In VBA al het nodige uitgeprobeerd maar krijg hem niet correct.
Wie kan mij helpen.??
Clipboard01.jpg
 
Laatst bewerkt:
Code: 
celletje = cdate(combobox1.value)
 
Dank voor de snelle reactie.

Waar moet ik de voorgestelde regel plaatsen.?
heb al weer het een en ander uitgeprobeerd, lukt echter niet.
Dit is mijn VBA code

Code: 
Private Sub CommandButton1_Click() 'Verwerken
Son_Dolu_Satir = Sheets("2019").Range("A1000").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("2019").Range("A" & Bos_Satir).Value = TextBox1.Text 'Klant ID
Sheets("2019").Range("C" & Bos_Satir).Value = TextBox2.Text 'Aantal
Sheets("2019").Range("D" & Bos_Satir).Value = TextBox3.Text 'Prijs
   'Sheets("2019").Range("E" & Bos_Satir).Value = TextBox4.Value 'Datum
Sheets("2019").Range("E" & Bos_Satir).Value = ComboBox4.Value 'Datum
Sheets("2019").Range("F" & Bos_Satir).Value = ComboBox5.Value 'Verzendstatus
Sheets("2019").Range("G" & Bos_Satir).Value = TextBox6.Text 'Artikel ID
Sheets("2019").Range("M" & Bos_Satir).Value = TextBox7.Text 'Barcode
Sheets("2019").Visible = True
Sheets("2019").Select
End Sub
    
Private Sub ListBox1_Click() 'Invullen
TextBox4.Text = Format(TextBox4.datum, "DD-MM-YY")
TextBox1.Text = Sheets("2019").Range("A" & Bulunan_Satir_No).Value 'Klant ID
TextBox2.Text = Sheets("2019").Range("C" & Bulunan_Satir_No).Value 'Aantal
TextBox3.Text = Sheets("2019").Range("D" & Bulunan_Satir_No).Value 'Prijs
    'TextBox4.Text = Sheets("2019").Range("E" & Bulunan_Satir_No).Value 'Datum
ComboBox4.Date = Sheets("Datum").Range("E" & Bulunan_Satir_No).Value 'Datum
ComboBox5.Text = Sheets("Status").Range("A" & Bulunan_Satir_No).Value 'Verzendstatus
TextBox6.Text = Sheets("2019").Range("G" & Bulunan_Satir_No).Value 'Artikel ID
TextBox7.Text = Sheets("2019").Range("M" & Bulunan_Satir_No).Value 'Barcode
End Sub
    
Private Sub CommandButton2_Click() 'Afsluiten
Unload Naw
End Sub

Private Sub CommandButton3_Click() 'Leegmaken
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
End Sub
 
Laatst bewerkt door een moderator:
Zonder een Excel-bestand ga ik het houden tot:
Code: 
Sheets("2019").Range("E" & Bos_Satir).Value = [COLOR=#ff0000]cdate([/COLOR]ComboBox4.Value[COLOR=#ff0000])[/COLOR] 'Datum
 
Beste Harry
Meteen geprobeerd.
Ook dit mocht helaas niet baten.

Wat voor info heb je nog meer nodig.?
Toch niet het gehele Excel bestand.?
Grtz Frans
 
Als in combobox 4 de data staan is dat de remedie.
 
Kijk, hier heb je een echt voorbeeld-bestand.
 

Bijlagen

  • surfer.xlsb
    20,6 KB · Weergaven: 76
Oké
Dank voor de inzet.

Helaas na 2 uur schuiven passen en meten (veranderen) lukt het nog steeds niet.
Ondanks de toezending van het voorbeeld bestand.

Zie even geen mogelijkheid meer.

Laat het even rusten.

Wellicht gaat er nog een lichtje branden.

Grtz Frans

Excel vindt ik een geweldig programma, maar af en toe.!
 
Het bestand plaatsen zonder gevoelige info lijkt me dan een uitkomst voor je.
Er is vast wel iemand die het er voor je wil inzetten.
 
Ik zal het bestand inhoudelijk legen.
Kan ik het dan hier plaatsen als bijlage.?
 
Datum notatie

Na enige tijd zelf gezocht te hebben naar een oplossing wederom de vraag onder de aandacht brengen bij HelpMij.
Als bijlage een uitgekleed bestand om het probleem duidelijk te maken.

De aangedragen oplossingen van HSV zijn uitgeprobeerd, helaas nog zonder succes.
Wellicht doe ik iets verkeerd.

In Excel heb ik een werkmap met daaronder een aantal werkbladen.

Één daarvan heet “Datum” waarin ik een 16-tal recente en toekomstige datums heb gezet.
Datums zijn reeds als “Datum” gevalideerd.
Door middel van een keuzelijst krijg ik die ook prima zichtbaar.
Helaas na het klikken op één van die datums (03-08-19) veranderd de datum in het getal 43680
Ik wil uiteraard de juiste notatievorm zien.
Vervolgens schrijft hij deze datum naar een cel die door mij daarvoor uitgekozen is.
Het getal 43680 wordt dan weer 03-08-19
In VBA al het nodige uitgeprobeerd maar krijg hem niet correct.
Wie kan mij helpen.??
 

Bijlagen

  • Datum test.xlsm
    23,5 KB · Weergaven: 53
Zet dit er bij achter de userform:
Code: 
Private Sub ComboBox4_Change()
    ComboBox4.Value = Format(ComboBox4.Value, "DD-MM-YYYY")
End Sub
 
Laatst bewerkt:
Super.
Probleem opgelost.

Heb hem zoals aangegeven helemaal achteraan in de VBA gezet.

Op de juiste plaats neerzetten is kennelijk erg belangrijk.
Dank voor alle hulp HSV en Edmoor

Grtz Speedsurfer
 
Ok dan.
En zo zie je ook hoe belangrijk een goed voorbeeld bestand is.
 
Gebruik geen rowsource voor je combobox maar list dan blijft je datum een datum.

Code: 
Private Sub UserForm_Initialize()
ComboBox4.List = Sheets("data").Range("a2:a15").Value
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan