x-Achse in Punktdiagramm anpassen

Hallo,
ich habe folgendes Problem, dass im angehängten Bild die X-Achse nicht richtig skaliert ist. Die Tabelle wird mit einer VBA Programmierung erzeugt und für jede Kalenderwoche wird ein neues File erzeugt, daher bringt es nichts wenn ich wie in 1.) fixe Zahlenwerte eingebe.
Die Spalte C ist folgend formatiert: 23.07.2018 00:00:00 und zählt jede Minute um 1 weiter
Ich habe es schon mit Folgendem probiert:
1.) With CHWa.Axes(xlCategory, xlPrimary)
.MaximumScale = 43311
.MinimumScale = 43304
End With
2.) .MaximumScale = WorksheetFunction.Max(Range("C2:C10070"))
3.) .MaximumScale = Range("C10070")
4.) .MaximumScale = Range("C10070").Value
5.) .MaximumScale = WorksheetFunction.Max(Columns(3))
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also hier ist der Code:
Ich muss dazu sagen, dass ich ein absoluter Neuling im Thema VBA bin und mir daher Youtube Videos und Forenbeiträge angeschaut habe und somit diese zusammen gestoppelt habe. Daher werden wohl einige Fehler und Verkomplizierungen vorhanden sein.
Es geht darum, dass jede Kalenderwoche ein Mitschrieb von Temperatursensoren gemacht wird. Dieser Mitschrieb wird als .csv gespeichert und soll als Diagramm dargestellt werden. In der hochgeladenen Mappe fehlen in Spalte 1&2 Datum und Uhrzeit. In Spalte 3 werden diese addiert um später im Diagramm die x-Achsen Beschriftung darzustellen. (Dies habe ich gemacht da ich nicht gewusst habe wie ich sonst anstelle der Uhrzeiten nur die Tage anzeigen kann)

Sub Diagramme()
Dim i As Double
Application.ScreenUpdating = False
With Worksheets(1)
Range("F1").Value = "Mittelwert"
Range("G1").Value = "Maximale Temperatur"
Range("H1").Value = "Minimale Temperatur"
Range("C1").Value = "Datum"
For i = 2 To 5000
If Cells(i, 1)  "" Then
.Cells(i, 3) = (.Cells(i, 1) + .Cells(i, 2))
Else
Cells(i, 3).Value = " "
End If
If Cells(i, 4)  "" Then
.Cells(i, 6) = (.Cells(i, 4) + .Cells(i, 5)) / 2
Else
Cells(i, 4).Value = " "
End If
If Cells(i, 4)  "" Then
.Cells(i, 8) = ("26")
Else
Cells(i, 4).Value = " "
End If
If Cells(i, 4)  "" Then
.Cells(i, 7) = ("18")
Else
Cells(i, 4).Value = " "
End If
Next i
End With
Application.ScreenUpdating = True
Sheets.Add After:=Sheets(Sheets.Count)
Dim COWa As ChartObject
Dim CHWa As Chart
Set COWa = ThisWorkbook.Worksheets(2).ChartObjects.Add(10, 10, 1000, 300)
Set CHWa = COWa.Chart
CHWa.ChartType = xlXYScatterLinesNoMarkers
CHWa.SetSourceData Worksheets(1).Range("C1:C5000,D1:H5000")
With CHWa.Axes(xlValue)
.HasTitle = True
.MinimumScale = 17
.AxisTitle.Text = "t in °C"
End With
With CHWa.Axes(xlCategory, xlPrimary)
.HasMajorGridlines = True
'.MinimumScale = Range("C2")
'.MaximumScale = Range("C10078")
End With
End Sub

Beste Grüße,
Thomas

Sub Diagramme() Dim lngLetzte As Long Dim rngBereich As Range Application.ScreenUpdating = False With Worksheets(1) .Range("F1").Value = "Mittelwert" .Range("G1").Value = "Maximale Temperatur" .Range("H1").Value = "Minimale Temperatur" .Range("C1").Value = "Datum" lngLetzte = .Columns(3).Find(What:="*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row Set rngBereich = .Range(.Cells(1, 3), .Cells(lngLetzte, 8)) End With Application.ScreenUpdating = True Sheets.Add After:=Sheets(Sheets.Count) Dim COWa As ChartObject Dim CHWa As Chart Set COWa = ActiveSheet.ChartObjects.Add(10, 10, 1000, 300) Set CHWa = COWa.Chart CHWa.ChartType = xlXYScatterLinesNoMarkers CHWa.SetSourceData rngBereich With CHWa.Axes(xlValue) .HasTitle = True .MinimumScale = 17 .AxisTitle.Text = "t in °C" End With With CHWa.Axes(xlCategory, xlPrimary) .HasMajorGridlines = True .MinimumScale = rngBereich.Columns(1).Cells(2).Value .MaximumScale = Application.Max(rngBereich.Columns(1)) End With End Sub

Beliebteste Forumthreads (12 Monate)

x-Achse in Punktdiagramm anpassen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

x-Achse in Punktdiagramm anpassen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread