Netzwerk Nutzerplatz
20.01.2004 10:31:23
Peter
ich möchte im Netzwerk unter NT4,
entsprechend des Nutzerplatzes jedem Nutzer
eine best. Konstante zuordnen.
Diese Konstante soll in allen Modulen zur
Verfügung stehen. Wie macht man das richtig?
Danke Peter
Ich habe folgendes in "Dieser Arbeitsmappe"
versucht:
Option Explicit
Public Konst
Private Sub Workbook_Open()
Call Nutzer
End Sub
Sub Nutzer()
Dim Nutzer1, Nutzer2, Nutzer3 As String
Select Case Application.UserName
Case Is = "Nutzer1"
Konst = 457
Case Is = "Nutzer2"
Konst = 326
Case Is = "Nutzer3"
Konst = 267
Case Else
Exit Sub
End Select
End Sub