VBA: wertaus zelle, aber variable zeile

[Steffl]

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.

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

[Bernie]

@André
@Stefan

funktioniert genauso wie ich es haben wollte. Danke, Danke!!!

Junge, Junge, wenn ich Euch nicht hätte. Aber eins steht fest wie das Amen in der Kirche, solltet Ihr mal in Bremen vorbei kommen, dann wartet mindestens ein schönes kühles Becks oder ein schöner heißer Jacobs-Kaffee auf Euch, großes Indianerehrenwort. :15:

[WillWissen]

Hi Bernie,

Junge, Junge, wenn ich Euch nicht hätte. Aber eins steht fest wie das Amen in der Kirche, solltet Ihr mal in Bremen vorbei kommen, dann wartet mindestens ein schönes kühles Becks oder ein schöner heißer Jacobs-Kaffee auf Euch, großes Indianerehrenwort. :15:

das Ganze geht mich zwar nichts an - aber wie wär's mit dem Einlösen deines Vorschlages in der Zeit zwischen 11. und 13. September 1915 in Grenzau bei Koblenz? :05:

[Bernie]

Hallo Günter,

aber wie wär's mit dem Einlösen deines Vorschlages in der Zeit zwischen 11. und 13. September 1915 in Grenzau bei Koblenz?

Danke für die Einladung, sollte ich es möglich machen können, werde ich da sein, versprochen!!!

Aber mal ehrlich, du willst doch nur "Einen" ab haben, oder? :15:

[WillWissen]

Hi Bernie,

Aber mal ehrlich, du willst doch nur "Einen" ab haben, oder? :15:

ich muss dich da leider enttäuschen. Bescheidenheit war noch nie meine Stärke - so an zwei bis drei "Abstauber" habe ich da schon gedacht.

:85: :79: :85:

[Rabe]

ich muss dich da leider enttäuschen. Bescheidenheit war noch nie meine Stärke - so an zwei bis drei "Abstauber" habe ich da schon gedacht.

und Günter staubt eher Weißbier ab als Becks. :15: