Extreme Veteran
Beiträge: 573
| Hallo,
Im Kopfbereich eines Moduls:
Option Compare Database
Option Explicit
Public Const cBenutzerJahr As String = "FIBU 2019 - Markus" 'Anwendungsweit gültig
Private Const cWasAnderes As Integer = 128 'gültig innerhalb des Moduls
Public Function MeineSuperFunktion(Aufrufparameter As String)
Const cIrgendwas = 100 'gültig innerhalb der Funktion/Prozedur
…
End Function
----- Gruss - Peter |