22.10.2014, 20:38
Hallo Bernie,
André hat es dir ja schon geschrieben, Du mußt wahrscheinlich in einer leeren Zelle der Spalte E gewesen sein bzw. auf einem Wert, den es nicht als Tabellenblatt gibt. Habe eine Abfrage und eine Funktion hinzugefügt.
André hat es dir ja schon geschrieben, Du mußt wahrscheinlich in einer leeren Zelle der Spalte E gewesen sein bzw. auf einem Wert, den es nicht als Tabellenblatt gibt. Habe eine Abfrage und eine Funktion hinzugefügt.
Code:
Sub Chart_Stefan()
Dim lngRow As Long
lngRow = ActiveCell.Row
With Worksheets("Depot")
If .Cells(lngRow, 5).Value = "" Or Not wksExits(.Cells(lngRow, 5).Value) Then
MsgBox "Fehler vorhanden", vbExclamation
Exit Sub
End If
End With
Sheets("Chart-Vorschau").Visible = True
' lngRow = ActiveCell.Row
With Charts.Add
.ChartType = xlLine
.SetSourceData Source:=Sheets(Worksheets("Depot").Cells(lngRow, 5).Value).Range("A1:A261,G1:G261")
.Location Where:=xlLocationAsObject, Name:="Chart-Vorschau"
End With
With ActiveSheet.ChartObjects(1)
.Left = 6
.Top = 6
.Width = 960
.Height = 480
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Text = Sheets("Depot").Cells(lngRow, 2).Value & " " & "-" & " " & "Kursverlauf 1 Jahr mit 38 und 200 Tage Trendlinien"
.ChartArea.Select
.Legend.Select
Selection.Position = xlTop
.Axes(xlCategory).MajorUnitScale = xlDays
.Axes(xlCategory).MajorUnit = 7
End With
' Call trendlinien
End Sub
Function wksExits(strTabelle As String) As Boolean
On Error Resume Next
wksExits = Not Worksheets(strTabelle) Is Nothing
End Function