Im ersten Modul:
Public varPublic as Integer
Dim varPrivat as integer
Sub Test_Privat()
varPrivat = varPrivat +1
varPublic = varPublic +1
Msgbox "Privat-Variable hat den Wert: " & varPrivat
End sub
Im anderen Modul rufst du diese Makro jedesmal auf, wenn du ein Formular-Button klickst.
Zweites Modul:
Sub Aufruf()
Call Test_Privat
Msgbox "Public-Variable hat den Wert: " & varPublic
End sub |