MultUser Zoom
11.10.2018 13:14:58
Lorenz
Mit dem Codebrocken (im allgemeinen Modul) sollte eine Art Multiuser Konfigurationsdatei entstehen. Der "Select Case" Abschnitt ist nur ein Auszug. Das Hauptproblem besteht darin, daß (mit Einzelschritt [F8]) iUserZoom nicht befüllt--> wird, bleibt immer auf "0".
Jetzt meine Frage: Wie sollte (muss) der Code umgestaltet werden? Vielleicht ist nur mein Ansatz verkehrt! Ich benötige es so in der Art, weil ich da noch verschiedene Einstellungen f. verschiedene User fixieren möchte.
Sub Zoom_Kalender()
Dim iUserZoom As Integer
With wksEinstellung
Select Case iUserZoom
Case
.
Case MyUser = wksKalender.Range("Diensteinteiler1")
iUserZoom = .Range("myZoom2")
Case
.
iUserZoom = .Range("myZoom3")
Case MyUser = wksKalender.Range("User10")
End Select
ActiveWindow.Zoom = iUserZoom
End With
End Sub
Grüße
Lorenz