AW: Diagramm anpassen
25.10.2005 11:19:12
gordon
Hi Axel,
habe mal gebastelt:
https://www.herber.de/bbs/user/27810.xls
Aufruf über Button
enthaltener Code:
Sub changeDia()
'diagramm anpassen
'data in col e / 5
Dim rdataSource As Range, _
rlc As Range, _
chrt As Chart, _
shp As Shape, _
ws As Worksheet
Set rlc = ThisWorkbook.Worksheets(1).Range("E65536")
If Len(rlc) = 0 Then Set rlc = rlc.End(xlUp)
'find first cell <> error2042 (#NV)
Do Until rlc.Text <> "#NV"
Set rlc = rlc.Offset(-1, 0)
Loop
If rlc.Row = 1 Then MsgBox "Keine Werte": Exit Sub
'Datenrange setzen
Set rdataSource = ThisWorkbook.Worksheets("Tabelle1").Range("E2:E" & rlc.Row)
'select notwendig, da Diagramm nicht als Chartobject vorhanden
' hier besser das Diagramm als seperates Sheet einfügen,
' ansprechen dann mit
'Set chrt = ThisWorkbook.Charts(1)
' chrt.SeriesCollection(1).Values = rdataSource
ThisWorkbook.Worksheets(1).Shapes(1).Select
'Datenrange als Diagrammwerte zuweisen
ActiveChart.SeriesCollection(1).Values = rdataSource
End Sub
Das ganze ist ohne große Fehlerprüfung, Daten müssen in Spalte e stehen, #NV fortlaufend am Ende
Gruß
gordon