Een familie van Microsoft-spreadsheetsoftware met hulpmiddelen voor het analyseren, in kaart brengen en communiceren van gegevens.
Het kan inderdaad in het Nederlands. Maar de help verwijst naar de US-Site. Ik dus alles maar in het Engels doorgegeven...
Uiteindelijk nemen ze niks aan en kan ik niks plaatsen... Dan maar een andere weg gezocht (deze weg) maar niet de moeite genomen om alles terug in het Nederlands te zetten... Ondertussen zelf een oplossing gevonden...
Als ik de code uitvoer zoals U me hebt gegeven:
Sub Water()
Dim wmax As Long
Dim lbls As Range
Dim vals As Range
Dim ser As Series
wmax = 16
Set lbls = Sheets(1).Range("A1:A" & wmax)
Set vals = Sheets(1).Range("B1:B" & wmax)
Set ser = Sheets(2).ChartObjects(1).Chart.SeriesCollection(1)
lbls.NumberFormat = "dd-mm-yyyy"
With ser
.Name = "Water"
.XValues = lbls
.Values = vals
End With
With Sheets(2).ChartObjects(1).Chart
.Axes(xlCategory).TickLabels.NumberFormat = "dd-mm-yyyy"
.Refresh
End With
End Sub
Krijg ik dit:
Dat is eigenlijk niet beter. Maar ik heb wel opgemerkt dat als je kolom A terug een "format" geeft dat 30-08-yyyy terug 30-8-2026 geeft, en bij kolom B hetzelfde, waarde komt terug goed... en ik heb dit nu vanuit het programma gedaan...
Sub Water()
Dim wmax As Long
Dim lbls As Range
Dim vals As Range
Dim ser As Series
wmax = 16
Set lbls = Sheets(1).Range("A1:A" & wmax)
Set vals = Sheets(1).Range("B1:B" & wmax)
Set ser = Sheets(2).ChartObjects(1).Chart.SeriesCollection(1)
lbls.NumberFormat = "dd-mm-yyyy"
With ser
.Name = "Water"
.XValues = lbls
.Values = vals
End With
With Sheets(2).ChartObjects(1).Chart
.Axes(xlCategory).TickLabels.NumberFormat = "dd-mm-yyyy"
.Refresh
End With
Sheets(1).Columns("A").NumberFormat = "dd-mm-yyyy"
Sheets(1).Columns("B").NumberFormat = "0.000"
End Sub
En dan krijg ik dit:
Dat is OK voor mij... (nu programma voor digitale meter bijwerken...)