leofact
Redacteur
- Lid geworden
- 10 feb 2007
- Berichten
- 6.377
Ik wil waardes tussen 2 procedures doorgeven.
Dat kan (niet zo netjes) door de variabele public te maken, maar dat werkt bij mij niet buiten de module.
Mooier is met argumenten, maar de waarde wordt toch steeds op 0 gezet.
Zonder optional krijg ik de foutmelding dat het argument niet optioneel is.
Wie weet raad?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rij As Integer
Dim kolom As Integer
Dim blad As String
kolom = Target.Column
rij = Target.Row
blad = Sh.Name
MsgBox (rij & "-" & kolom & "-" & blad)
If rij = 3 Then Hulp
End Sub
Sub Hulp(Optional ByRef rij As Integer, Optional ByRef kolom As Integer, Optional ByRef blad As String)
Dim str_help As String
Dim Int_helpindex As Integer
MsgBox (rij & "-" & kolom & "-" & blad)
end sub
Dat kan (niet zo netjes) door de variabele public te maken, maar dat werkt bij mij niet buiten de module.
Mooier is met argumenten, maar de waarde wordt toch steeds op 0 gezet.
Zonder optional krijg ik de foutmelding dat het argument niet optioneel is.
Wie weet raad?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rij As Integer
Dim kolom As Integer
Dim blad As String
kolom = Target.Column
rij = Target.Row
blad = Sh.Name
MsgBox (rij & "-" & kolom & "-" & blad)
If rij = 3 Then Hulp
End Sub
Sub Hulp(Optional ByRef rij As Integer, Optional ByRef kolom As Integer, Optional ByRef blad As String)
Dim str_help As String
Dim Int_helpindex As Integer
MsgBox (rij & "-" & kolom & "-" & blad)
end sub