Sub in een Sub aanroepen

[Ramsje]

Beste,

Ik heb 2 sub's aangemaakt. 1 sub controleert een BTW, waarbij vervolgens bij het toevoegen de variabele van sub 1 gebruikt wordt, om door te voeren in een cel van excel.

Dit is mijn code:

Sub ControleerKnop_Click()

Dim AddLaagBTW, AddHoogBTW, AddTotaalBTW
Dim exclBTWLaag, Laag, BTWLaag
Dim exclBTWHoog, Hoog, BTWHoog
Dim exclBTWTotaal, Totaal, BTWTotaal

AddLaagBTW = AddLaagBTWTextBox.Value
AddHoogBTW = AddHoogBTWTextBox.Value

Laag = Round(AddLaagBTW / 106 * 100, 2)
Hoog = Round(AddHoogBTW / 121 * 100, 2)
Totaal = Round(Laag + Hoog, 2)

exclBTWLaag = Round(AddLaagBTW - Laag, 2)
exclBTWHoog = Round(AddHoogBTW - Hoog, 2)
exclBTWTotaal = Round(BTWLaag + BTWHoog, 2)

'Schrijf de waardes Excl BTW weg naar de textbox
CheckLaagBTWTextBox = Laag
CheckHoogBTWTextBox = Hoog
CheckTotaalBTWTextBox = Totaal

BTWLaag = Round(AddLaagBTW - Laag, 2)
BTWHoog = Round(AddHoogBTW - Hoog, 2)
BTWTotaal = BTWLaag + BTWHoog

End Sub

Sub ToevoegenKnop_Click()
Call ControleerKnop_Click

Dim emptyRow As Long
'Make Uitgave.Active
Uitgaven.Activate

'Determine EmptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Transfer Information
Cells(emptyRow, 1).Value = WinkelTextBox.Value
Cells(emptyRow, 2).Value = FactuurTextBox.Value
Cells(emptyRow, 4).Value = Totaal
Cells(emptyRow, 5).Value = AddTotaalBTWTextBox.Value
Cells(emptyRow, 6).Value = BTWTotaal
Cells(emptyRow, 7).Value = BetaalmethodeComboBox.Value
Cells(emptyRow, 8).Value = RekeningnummerComboBox.Value
Cells(emptyRow, 9).Value = BetaaldatumTextBox.Value

Unload Me
End Sub

Het controleren werkt, maar het toevoegen blijft hangen op: Totaal en BTWTotaal. (Melding:Compileerfout, Variabele is niet gedefinieerd)

Hoe krijg ik dit opgelost?

Met vriendelijke groet,

Ramsje

 

[edmoor]

De melding lijkt me duidelijk.
Die variabelen zijn niet gedefiniëerd in de Sub ToevoegenKnop_Click.

 

[Ramsje]

De melding lijkt me duidelijk.
Die variabelen zijn niet gedefiniëerd un de Sub ToevoegenKnop_Click.

Als ik ze toevoeg met:

Dim Totaal, BTWTotaal

worden die niet gekoppeld aan de vorige sub. Of doe ik dan nog iets fout?

 

[edmoor]

Variabelen die binnen een sub worden gedeclareerd gelden alleen binnen die sub. Declareer ze dus buiten de Sub en haal ze dan ook uit de eerste sub weg.

Lees ook:
https://support.microsoft.com/nl-nl/kb/141693

 

[Ramsje]

Variabelen die binnen een sub worden gedeclareerd gelden alleen binnen die sub. Declareer ze dus buiten de Sub en haal ze dan ook uit de eerste sub weg.

Lees ook:
https://support.microsoft.com/nl-nl/kb/141693

Dus als ik ze uit de Sub's haal en buiten mijn Sub's neer zet als Public totaal, TotaalBTW

dan moet die het doen.

Dan ga ik dat proberen

 

[Ramsje]

Het werkt!

Beste,

Bedankt. Het werkt inderdaad.

Ik heb nu de variabele weg gehaald en deze buiten de Sub's gezet als Public. Dit werkt nu.:d

Met vriendelijke groet,

Ramsje

 

[edmoor]

Public betekent dat ze dan ook door andere modules binnen je project kunnen worden gebruikt.
Als je geen Public maar Dim gebruikt gelden ze alleen voor de Subs binnen de betreffende module.