Ich beschäftige mich erst seit Kurzem mit VBA.
Ich will mit Daten ein Diagramm erzeugen, das funktioniert auch ganz gut außer, dass für die x-Achse nicht die markierten Daten sondern die Spaltenzahl verwendet wird.
Hier der Code:
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Delete
ActiveWindow.ScrollRow = Range("A65535").End(xlUp).Row - 20
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Leistungsaufnahme in kW"
Selection.Format.TextFrame2.TextRange.Characters.Text = _
"Leistungsaufnahme in kW"
With Selection.Format.TextFrame2.TextRange.Characters(1, 23).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 23).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Zeit in s"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Zeit in s"
With Selection.Format.TextFrame2.TextRange.Characters(1, 9).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 9).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1
End With
End Sub
Wie kann ich dafür sorgen, dass die erste markierte Spalte die Daten der x-Achse sind? Danke!