Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Pivot tabel Timeline werkt niet door datum  (gelezen 1198 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Pivot tabel Timeline werkt niet door datum
« Gepost op: 21 februari 2021, 18:51:45 »
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
Grtjs Jacky

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #1 Gepost op: 21 februari 2021, 20:40:22 »
Probeer het eens met clng(txdatum) in je array...
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #2 Gepost op: 22 februari 2021, 07:55:23 »
Hallo Leo,  Dan voegt het formulier 0/01/1900 toe aan de tabel.

Oeps, zag dat je CLng (txDatum) had getypt ipv CLng (txtDatum) maar dit werkt ook niet, fout 13 geeft hij aan, zie foto bijlage.
Grtjs Jacky

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #3 Gepost op: 22 februari 2021, 07:58:48 »
Dan is de datum geen datum maar een tekst. Lukt het met Cdate ?
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #4 Gepost op: 22 februari 2021, 08:13:32 »
Top Leo, werkt perfect !  Heb nog een vraagje:  Ik zou graag de som willen hebben uit een ander tabblad, maar denk dat ik iets fout doe met de tekens.  Deze werkt niet:

=SOMMEN.ALS(PRODUCTIVITY!D4000:D4011= A2;PRODUCTIVITY!F4000:F4011=b2;c2)
Grtjs Jacky

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #5 Gepost op: 22 februari 2021, 08:23:17 »
Lees even hoe je deze functie moet gebruiken...
https://support.microsoft.com/nl-nl/office/sommen-als-functie-c9e748f5-7ea7-455d-9406-611cebce642b
Jouw parameters kloppen niet op deze manier.  ;)
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #6 Gepost op: 22 februari 2021, 08:32:40 »
Top, goed gezegd Leo, af en toe ook eens zelf wat moeite doen hé, merci !  ;)
Grtjs Jacky

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #7 Gepost op: 22 februari 2021, 08:34:14 »
Heb trouwens een vraag al meer dan een week open staan, maar krijg geen reactie, weet jij waarom?   Topic: ComboBox meerdere gegevens
Grtjs Jacky

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #8 Gepost op: 22 februari 2021, 18:29:48 »
Vraagje: Hoe laat je dag -1 verschijnen in het veld van het formulier met onderstaande datum notatietxtDatum = Format(Date, "Short Date")
Grtjs Jacky

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #9 Gepost op: 22 februari 2021, 19:40:22 »
txtDatum = Format(Date -1, "Short Date")
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #10 Gepost op: 22 februari 2021, 20:23:56 »
Heb trouwens een vraag al meer dan een week open staan, maar krijg geen reactie, weet jij waarom?   Topic: ComboBox meerdere gegevens
Tja... soms gaan vragen te lang duren of worden zaken te complex voor helpers. Het is allemaal op vrijwillige basis en soms kosten vragen teveel tijd op inschattingsbasis. Kijk of je zaken in kleinere stukjes kan hakken, geef nog 'ns een bump op een bericht, en wees vooral geduldig. Probeer daarnaast ook zelf veel uit te vogelen en toon die voortgang.  ;)
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: Pivot tabel Timeline werkt niet door datum
« Reactie #11 Gepost op: 23 februari 2021, 08:23:37 »
Zal ik zeker doen, zal het proberen in stukjes te verdelen. Soms krijg je dan wel de opmerking om het volledige bestand te sturen maar swat.

Nog bedankt voor de datumnotatie, in eerste instantie verscheen de datum wel op zijn Amerikaans in de tabel. Ik heb dit opgelost door eigenschappen cellen naar deze datum notatie te weizigen: 23/02/2019.  Vond het wel raar waarom dit ineens veranderde.?

Of kan ik dan niet beter in de code ipv 'short date'  dit zetten :  'dd/mm/yyyy'  ?
Grtjs Jacky

 


www.combell.com