Hallo zusammen,
neue WOche, neues Problem ;)
Also, ich hab ein Datei aus der ich 19 Diagramme plotten muss. Im Prinzip funktioniert alles wunderbar, nur kann ich bei dem Diagramm erstellen keine Variablen einfügen.
Cells.Find(What:=("V_ist"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Dim Spalte1 As Variant
Spalte1 = ActiveCell.Column
For intCounter = 1 To 19 Step 1
Cells.Find(What:=Diagrammblatt(intCounter), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Dim Spalte2 As Variant
Spalte2 = ActiveCell.Column
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Daten").Range("1:1", Spalte1, Spalte2) _
, PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Diagrammblatt(intCounter)
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Diagrammblatt(intCounter)
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
Sheets("Daten").Select
End With
Next
bei der Fett markierten Stelle bleibt er stehen. Fehler 450.
Wäre nett wenn mir jmd helfen könnte!
danke
michael