Wenn Anzahl User in freigegebener Mappe >1 dann...
13.03.2017 08:21:20
r2d2
Hallo,
wie kann ich diesen Code:
Sub NutzerInfo()
Dim Wb As Workbook: Set Wb = Workbooks("DieFreigegebeneMappe.xlsx")
MsgBox "Achtung: Es nutzen gerade " & UBound(Wb.UserStatus) & _
" Person(en) diese Mappe!", vbInformation
End Sub
dahinngehend abändern, daß wenn die Anzahl User >1 ist (also neben mir sind noch andere User in der freigegebenen Datei), daß dann B ausgeführt wird, sonst A - also so:if user >1 then goto B
else A
Danke und Gruß r2d2