Was ist hier falsch(Value Eigenschaft)
11.08.2004 13:25:12
Regnar
da meine Datei zu gross zum hochladen ist Versuche ich mein Problem verbal zu erörtern.
Ich habe zwei Commandbutton erstellt bei denen auf Knopfdruck ein Diagramm erstellt werden soll. Dazu habe ich noch ein Feld in dem eine KW eingetragen wird. Das Diagramm soll immer bis zu der dort eingebenen KW erstellt werden.
Hier ist der Code bis dato.
Private Sub Teilprojekt1_Click()
Dim xWks As Worksheet
Dim y
Application.EnableEvents = False
Set xWks = Status_Report
Set xCharts = xWks.ChartObjects(1).Chart
y = Status_Report.Cells(1, 14).Value
If y > 0 And y < 53 And IsNumeric(y) Then
xCharts.SeriesCollection(2).Values = _
Datensammler.Range("B7:" & Datensammler.Cells(7, y).Address & "")
xCharts.SeriesCollection(1).Values = _
Datensammler.Range("B6:" & Datensammler.Cells(6, y).Address & "")
End If
Application.EnableEvents = True
End Sub
Private Sub Teilprojekt2_Click()
Dim xWks As Worksheet
Dim y
Application.EnableEvents = False
Set xWks = Status_Report
Set xCharts = xWks.ChartObjects(1).Chart
y = xWks.Cells(1, 14).Value
If y > 0 And y < 53 And IsNumeric(y) Then
xCharts.SeriesCollection(2).Values = _
Datensammler.Range("B9:" & Datensammler.Cells(7, y).Address & "")
xCharts.SeriesCollection(1).Values = _
Datensammler.Range("B8:" & Datensammler.Cells(6, y).Address & "")
End If
Application.EnableEvents = True
End Sub
Leider sagt er mir immer das die Value Eigenschaft nicht gefunden werden kann, was auch immer das heissen mag...
Ich verstehe leider nicht all zu viel von VBA und habe mir diesen Code zurechtgebastelt aus einer früheren Programmierung.
Vielen Dank allen Helfern, ich bin mit meinem Latein am Ende :-((