Beim Öffnen des Workbooks wird folgender Code ausgeführt
Sub Workbook_Open()
Call datenladen(lw, pfad, pfadobjekt)
With Sheets("Formular")
.Activate
End With
msgbox lw ' Ist nur eine Kontrolle. Der in der Subroutine ausgelesene Wert wird auch richtig angezeigt.
End Sub
Sub datenladen(lw, pfad, pfadobjekt As String)
Worksheets("Festlegungen").Activate
lw = Worksheets("Festlegungen").Range("a1")
pfad = Worksheets("Festlegungen").Range("a2")
pfadobjekt = Worksheets("Festlegungen").Range("a3")
End Sub
Versuche ich danach in anderen Klassenmodulen die drei variablen aufzurufen werden sie mir mit dem wert " " angezeigt