Ms Excel found a problem and has to be finished
Closed
juppkk
juppkk
- Posts
- 4
- Registration date
- Monday May 6, 2013
- Status
- Member
- Last seen
- May 8, 2013
juppkk
- Posts
- 4
- Registration date
- Monday May 6, 2013
- Status
- Member
- Last seen
- May 8, 2013
Related:
- Ms Excel found a problem and has to be finished
- Transfer data from one excel worksheet to another automatically - Guide
- How to change date format in excel - Guide
- Excel @ in formula ✓ - Forum - Excel
- How to change author name in excel - Guide
- Compare two worksheets and paste differences to another sheet - excel vba free download ✓ - Forum - Excel
4 replies
rizvisa1
May 6, 2013 at 07:36 AM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
May 6, 2013 at 07:36 AM
try with this
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Sheets("Tabelle2").Range("B73")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
call ruc1()
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
end sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Sheets("Tabelle2").Range("B73")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
call ruc1()
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
end sub
juppkk
May 6, 2013 at 07:53 AM
- Posts
- 4
- Registration date
- Monday May 6, 2013
- Status
- Member
- Last seen
- May 8, 2013
May 6, 2013 at 07:53 AM
Hi,
thank you for awnsering.
But I'm sorry, I don't understand what you mean.
Private Sub Worksheet_Change(ByVal Target As Range)
is the routine to change Y-Axis
ruc1 is also the routine to change Y-Axis
even called "Private Sub Worksheet_Change(ByVal Target As Range)"
What's about the scroll bars?
thank you for awnsering.
But I'm sorry, I don't understand what you mean.
Private Sub Worksheet_Change(ByVal Target As Range)
is the routine to change Y-Axis
ruc1 is also the routine to change Y-Axis
even called "Private Sub Worksheet_Change(ByVal Target As Range)"
What's about the scroll bars?
rizvisa1
May 6, 2013 at 09:29 AM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
May 6, 2013 at 09:29 AM
"Private Sub Worksheet_Change(ByVal Target As Range) " is an event
That would be fired when there is a change in the worksheet
I presumed that you were trying to call your ruc1 function if there is a change in the sheet. I must be then missing your point here.
That would be fired when there is a change in the worksheet
I presumed that you were trying to call your ruc1 function if there is a change in the sheet. I must be then missing your point here.
juppkk
May 6, 2013 at 09:59 AM
- Posts
- 4
- Registration date
- Monday May 6, 2013
- Status
- Member
- Last seen
- May 8, 2013
May 6, 2013 at 09:59 AM
> "Private Sub Worksheet_Change(ByVal Target As Range) " is an event
> That would be fired when there is a change in the worksheet
yes and that works fine if I change cells manually.
As soon as I call this as a subroutine (ruc1) from scroll bar event I get the error.
or in short:
----
Private Sub SpinButton1_SpinUp()
Range("B73") = Application.WorksheetFunction.MIN(Range("B73") + 1, 63)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
' rest of routine just set as comment or not
End Sub
----
will end in: popup Message:
"Microsoft Excel has found a problem and has to be finished"
(after the job is well done)
> That would be fired when there is a change in the worksheet
yes and that works fine if I change cells manually.
As soon as I call this as a subroutine (ruc1) from scroll bar event I get the error.
or in short:
----
Private Sub SpinButton1_SpinUp()
Range("B73") = Application.WorksheetFunction.MIN(Range("B73") + 1, 63)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
' rest of routine just set as comment or not
End Sub
----
will end in: popup Message:
"Microsoft Excel has found a problem and has to be finished"
(after the job is well done)
juppkk
May 8, 2013 at 12:01 PM
- Posts
- 4
- Registration date
- Monday May 6, 2013
- Status
- Member
- Last seen
- May 8, 2013
May 8, 2013 at 12:01 PM
Hi,
I got it.
The problem was as expected the combination of SpinButton and
the Y-Axis scaling routine.
After handling this both routines Excel was "flying in the cloud".
And the next mouseclick anywher at the map forced the break down.
However, just setting a defined position at then end of Y-Axis routine helped.
. . .
Range("b73").Select
End Sub
Regards juppkk
I got it.
The problem was as expected the combination of SpinButton and
the Y-Axis scaling routine.
After handling this both routines Excel was "flying in the cloud".
And the next mouseclick anywher at the map forced the break down.
However, just setting a defined position at then end of Y-Axis routine helped.
. . .
Range("b73").Select
End Sub
Regards juppkk