Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 91 by passing a value between modules
Hello,
I want to set a Flag being passed from "ThisWorkbook" to "Table1" by purpose. I use following code: '## Thisworkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tPl As Table1 If Sh.Name = SHEETTP Then tPl.tblChanged = True '<<<< here occurs the error End If End Sub '## Table1: Private m_tblChanged Public Property Get tblChanged() As Boolean tblChanged = m_tblChanged End Property Public Property Let tblChanged(ByVal setFlag As Boolean) m_tblChanged = setFlag End Property private sub cmdDoSomething_click() action me.tblChanged=False end sub Any hint ?? thanx a lot!! Christian |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 91 by passing a value between modules
What is Table1? The name of a module, a class name or what?
Maybe you want. ## Thisworkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tPl As Table1 Set tP1 = New Table1 If Sh.Name = SHEETTP Then tPl.tblChanged = True '<<<< here occurs the error End If End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) wrote in message oups.com... Hello, I want to set a Flag being passed from "ThisWorkbook" to "Table1" by purpose. I use following code: '## Thisworkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tPl As Table1 If Sh.Name = SHEETTP Then tPl.tblChanged = True '<<<< here occurs the error End If End Sub '## Table1: Private m_tblChanged Public Property Get tblChanged() As Boolean tblChanged = m_tblChanged End Property Public Property Let tblChanged(ByVal setFlag As Boolean) m_tblChanged = setFlag End Property private sub cmdDoSomething_click() action me.tblChanged=False end sub Any hint ?? thanx a lot!! Christian |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 91 by passing a value between modules
Hi Bob,
What is Table1? The name of a module, a class name or what? Thats the name of the sheet to be monitored as displayed in VBA- Project under Micro$oft Excel objects Set tP1 = New Table1 runs into "incorrect use of New" Any ideas left ? BR Christian |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 91 by passing a value between modules
Yeah.
Change Private m_tblChanged to Public m_tblChanged -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) wrote in message ups.com... Hi Bob, What is Table1? The name of a module, a class name or what? Thats the name of the sheet to be monitored as displayed in VBA- Project under Micro$oft Excel objects Set tP1 = New Table1 runs into "incorrect use of New" Any ideas left ? BR Christian |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
Passing Controls on a form between modules | Excel Programming | |||
Passing Variables within For loops to other modules | Excel Programming | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) | |||
Syntax Error Runtime Error '424' Object Required | Excel Programming |