ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   only 1 time declaring variables (https://www.excelbanter.com/excel-programming/444864-only-1-time-declaring-variables.html)

Swingleft

only 1 time declaring variables
 
Hello,

question on how to declare variables.

I have something simples like this

Sub Test ()

Dim H1 As Integer

H1 = Range("B6").Value

MsgBox ("Test number: " & H1 )

End Sub

Is there an easy way to use the "H1" value without again having to declare
it?

Sub Test2 ()

MsgBox ("Test 2 number : " & H1 )

End Sub
--------------------------
thanks for the help again

Swingleft


Claus Busch

only 1 time declaring variables
 
Hi,

Am Fri, 12 Aug 2011 20:45:54 +0200 schrieb Swingleft:

Is there an easy way to use the "H1" value without again having to declare
it?


you have to declare H1 as Public:

Option Explicit
Public H1 As Integer

Sub Test()
H1 = Range("B6").Value
MsgBox ("Test number: " & H1)
End Sub

Sub Test2()
MsgBox ("Test 2 number : " & H1)
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Swingleft

only 1 time declaring variables
 
Thanks...

"Claus Busch" schreef in bericht ...

Hi,

Am Fri, 12 Aug 2011 20:45:54 +0200 schrieb Swingleft:

Is there an easy way to use the "H1" value without again having to declare
it?


you have to declare H1 as Public:

Option Explicit
Public H1 As Integer

Sub Test()
H1 = Range("B6").Value
MsgBox ("Test number: " & H1)
End Sub

Sub Test2()
MsgBox ("Test 2 number : " & H1)
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2


Claus Busch

only 1 time declaring variables
 
Hi,

Am Fri, 12 Aug 2011 20:52:42 +0200 schrieb Claus Busch:

Option Explicit
Public H1 As Integer


but you have to run Test() first to initialize H1 or you have to
initialize H1 in Test2() too.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Mike S[_5_]

only 1 time declaring variables
 
On 8/12/2011 11:45 AM, Swingleft wrote:
Hello,
question on how to declare variables.
I have something simples like this
Sub Test ()
Dim H1 As Integer
H1 = Range("B6").Value
MsgBox ("Test number: " & H1 )
End Sub
Is there an easy way to use the "H1" value without again having to
declare it?
Sub Test2 ()
MsgBox ("Test 2 number : " & H1 )
End Sub
--------------------------
thanks for the help again
Swingleft


Variable scope:

http://support.microsoft.com/kb/141693
http://www.ozgrid.com/VBA/variable-scope-lifetime.htm




Swingleft

only 1 time declaring variables
 
"Mike S" schreef in bericht ...

On 8/12/2011 11:45 AM, Swingleft wrote:
Hello,
question on how to declare variables.
I have something simples like this
Sub Test ()
Dim H1 As Integer
H1 = Range("B6").Value
MsgBox ("Test number: " & H1 )
End Sub
Is there an easy way to use the "H1" value without again having to
declare it?
Sub Test2 ()
MsgBox ("Test 2 number : " & H1 )
End Sub
--------------------------
thanks for the help again
Swingleft


Variable scope:

http://support.microsoft.com/kb/141693
http://www.ozgrid.com/VBA/variable-scope-lifetime.htm

Thanks Mike.. these sites are very usefull

XLS S

only 1 time declaring variables
 
basically we need variable..............

please find the below links for more information about variable

http://www.functionx.com/vbaexcel/Lesson05.htm
http://www.ozgrid.com/VBA/variables.htm

and your code we need variable but don't need to declare

Sub Test2 ()
x = range("H1").value
MsgBox ("Test 2 number : " & x )

End Sub

On Aug 12, 11:45*pm, "Swingleft" wrote:
Hello,

question on how to declare variables.

I have something simples like this

Sub Test ()

Dim H1 As Integer

H1 = Range("B6").Value

MsgBox ("Test number: " & H1 )

End Sub

Is there an easy way to use the "H1" value without again having to declare
it?

Sub Test2 ()

MsgBox ("Test 2 number : " & H1 )

End Sub
--------------------------
thanks for the help again

Swingleft




All times are GMT +1. The time now is 08:47 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com