User in freigegebener Arbeitsmappe auslesen
11.01.2017 11:00:11
Aaron
in einer freigegebenen Excel möchte ich in einem Label die angemeldeten Nutzer auslesen. Hier im Archiv habe ich folgenden Beitrag
https://www.herber.de/forum/archiv/1516to1520/t1518061.htm
... und Code
Dim lngIndex As Long
With ThisWorkbook
For lngIndex = 1 To UBound(.UserStatus)
Call MsgBox(.UserStatus(lngIndex, 1))
Next
End With
gefunden.
Das hilft mir soweit auch schon gut weiter, jedoch möchte ich den Teil der MsgBox in ein Label packen.
Statt dieser Zeile:
Call MsgBox(.UserStatus(lngIndex, 1))
habe ich diese verwendet:
Label2.Caption = .UserStatus(lngIndex, 1)
Jetzt wird mir jedoch nur der zuletzt angemeldete Nutzer im Label angezeigt.
Einen anderen Versuch habe ich mit
Label2.Caption = UBound(ThisWorkbook.UserStatus, 1)
gestartet, hier wird mir nur die Anzahl der angemeldeten Nutzer angezeigt.
Wie bekomme ich das denn jetzt hin, dass ich alle angemeldeten Nutzer mit Namen angezeigt bekomme?
Wo liegt mein Fehler?
Ich freue mich auf eure Rückmeldung.
Gruß
Aaron