Variabele declareren en oproepen in andere macro

[Fredemel]

Ik wil in macro-1 een variabele declareren. In deze macro-1 wordt macro-2 aangeroepen waarin ik de gedeclareerde variabele van macro-1 wil gaan gebruiken.

Sub AIB()
ccode = "AIB-"

    ActiveCell.Range("A1:C1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Application.Run "xCursus"
    ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

======================
Sub xCursus()

Dim code As String
Dim ccode As String

myX = 5500
myY = 3000

    code = InputBox("Geef cursucode?" & vbCrLf & vbCrLf & "Wat is de cursus_omschrijving", _
    "Cursus_omschrijving", , myX, myY)
    ActiveCell.FormulaR1C1 = ccode & code     'Dit werkt dus niet....  :-(
End Sub

 

[Roncancio]

Dat komt omdat het definiëren van ccode op de verkeerde plek staat.

Dim ccode As String

Moet helemaal bovenin (boven macro 1 ) geplaatst worden.
Zo, is het ook beschikbaar voor de andere macro's.
Overigens blijkt uit de naam (ccode) niet dat het om een string gaat.

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Deze declaratie zal dit wel vasthouden voor u:

Option Explicit
Public Const ccode As String = "AIB-"

 

[Fredemel]

Opgelost...!!

Bedankt...!
Dit is code 1:

Option Explicit
Public Const strAIB As String = "AIB-"
Dim strCode As String
Dim myX As Integer
Dim myY As Integer

Sub AIB()
    ActiveCell.Range("A1:C1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Application.Run "xCursus"
    ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

en di's code 2

Sub xCursus()
myX = 5500
myY = 3000
    strCode = InputBox("Geef cursucode?" & vbCrLf & vbCrLf & "Wat is de cursus_omschrijving", _
    "Cursus_omschrijving", , myX, myY)
    ActiveCell.FormulaR1C1 = strAIB & strCode
End Sub

Dank voor de ondersteuning...!