Hi,
belowe are to most important parts of the code, data arent changed they are
retrieved from another worksheet.
von = InputBox("Zobrazit prehlad od tyzdna:", "Tyzden od")
bis = InputBox("Zobrazit prehlad do tyzdna:", "Tyzden do")
Sheets("DATEN").Activate
Range("A1").Select
Cells.Find(What:=von, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
von = ActiveCell.Address
Range("A40").FormulaR1C1 = von
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
von = Range("A40").FormulaR1C1
Range("A1").Select
Cells.Find(What:=bis, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
bis = ActiveCell.Address
Range("A40").FormulaR1C1 = bis
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
bis = Range("A40").FormulaR1C1
Sheets("AUSLASTUNG SK").Select
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("DATEN").Range("" & von &
":" & bis & "1,A1:A11"), _
PlotBy:=xlRows
i have checked the whole code with breakpoints and everything seems well and
as i said when i give breakpoint on tline with 'ActiveChart.SetSourceData...'
and then resume it gos without any error.
Henrich
"Jon Peltier" wrote:
I don't need the whole code, thanks, I wouldn't have time to read through
it. However, if you posted a dozen or so lines here to give a sense of
context and answer some questions. What kind of chart is it, what kind of
data are you trying to plot, is something different about the data when it
works and when it doesn't work?
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______
"Henrich" wrote in message
...
Jon, thanks for response, but the formula is OK. When i set breakpoints in
MS
office Visual Basic editor the code stop at the breakpoint and when i
resume
everything works well.
I send U on your email the whole code if that should help.
Henrich
"Jon Peltier" wrote:
Assuming von is a letter and number combination and bis is just a letter:
ActiveChart.SetSourceData Source:=Sheets("DATEN").Range(von & ":" & bis &
"1,A1:A11"), PlotBy:=xlRows
I would assume that this is fraught with errors in normal usage. Are your
variables somehow typed in? Do you have any validation?
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______
"Henrich" wrote in message
...
Hi,
i'm using this to change chart like this:
ActiveChart.SetSourceData Source:=Sheets("DATEN").Range("" & von & ":"
&
bis
& "1,A1:A11"), PlotBy:=xlRows
where von and bis are given by user from inputbox
it was working but than it gives me an error 1004. why?
Thanks
Henrich