Hallo iedereen, Ik heb een tabel met gegevens waaronder ook een datum. Ik voeg deze gegevens toe met een invulformulier. Ik heb van deze tabel een Pivot gemaakt, ik kan er Slicers in toevoegen, werkt allemaal perfect. Maar nu zit ik met een probleem. Als ik dan een timeline wil toevoegen, staat rechts naast Slicer, onder toevoegen in werkbalk, dan gaat dit niet, je ziet namelijk niet de titelkolom van datum. Maar dan komt het, als ik dan in de tabel zelf de datum gewoon overtyp dan werkt het wel. Heel raar, er is iets met de format van de datum.
Ik heb het volgende al allemaal geprobeerd, eigenschappen datum aangepast naar verschillende vormen. Ik heb ook in de VBA code de regel "txtDatum = Format(Date, "Short Date")" al aangepast naar "dd/mm/yyyy" maar niets helpt, steeds als ik de datum met de hand overtyp doet de timeline het wel.
Hieronder de vba code die in mijn formulier staat, want daar moet toch iets fout zijn als ik de datum toevoeg. Merci alvast, want nu kan ik totaal niks doen met het ingaveformulier.
Private Sub cmdToevoegen_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("PRODUCTIVITY")
'Vind laatst gebruikte cel, ga naar de volgende rij
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
'Zorgt ervoor dat je overal iets moet ingeven
If Trim(Me.cboNamen.Value) = "" Then
Me.cboNamen.SetFocus
MsgBox "Gelieve een NAAM in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If
If Trim(Me.cboQueues.Value) = "" Then
Me.cboQueues.SetFocus
MsgBox "Gelieve een QUEUE in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If
If Trim(Me.txtTijdGewerkt.Value) = "" Then
Me.txtTijdGewerkt.SetFocus
MsgBox "Gelieve een GEWERKTE TIJD in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If
If Trim(Me.txtAantalWT.Value) = "" Then
Me.txtAantalWT.SetFocus
MsgBox "Gelieve de AANTAL WT in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If
'Plaats alle gegevens in de tabel
Sheets("PRODUCTIVITY").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 11).Value = Array("", "", "", txtDatum, _
cboNamen, cboQueues, CDbl(txtTijdGewerkt), CDbl(txtAantalWT), "", "", txtOpmerking)
'Wist alle gegevens na ingave
Me.txtDatum.Value = ""
Me.cboNamen.Value = ""
Me.cboQueues.Value = ""
Me.txtTijdGewerkt.Value = ""
Me.txtAantalWT.Value = ""
Me.txtOpmerking.Value = ""
'Zorgt ervoor dat de datums terug komen na wissen alle velden, als de datums niet eerst gewist worden blijft de tijd staan !
txtDatum = Format(Date, "Short Date")
End Sub