Öffendliche Variablen
fkf
Ich lesen in einem Modul Werte in Variabeln ein und füllen damit Controls in einer Userform2, das geht prima. Nun möchte ich aber das diese Werte (Variabeln) im gesammten Project zur Verfügung stehen.
Um in einen anderen Modul damit zu Rechnen.
Mein Ansatz bzw das Einlesen in die Controls mache ich so:
Public Sub TolEinlesen()
On Error Resume Next
Open ThisWorkbook.Application.ActiveWorkbook.Path & "\sw.ini" For Input
As #1
xi = 0
Do While Not EOF(1)
Input #1, SWMT, SWMTT, SW
frmOption.controls("SWM" & xi).Text = SWMT
frmOption.controls("SWR" & xi).Text = SWMTT
xi = xi + 1
Loop
Close #1
End Sub
Könnt Ihr mir da Helfen?
Gruß FKF
Anzeige