users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For Row = 1 To UBound(users, 1)
.Cells(Row, 1) = users(Row, 1)
.Cells(Row, 2) = users(Row, 2)
MsgBox (Row)
Select Case users(Row, 3)
Case 1
.Cells(Row, 3).Value = "Exclusive"
Case 2
.Cells(Row, 3).Value = "Shared"
End Select
Next
End With
End Sub
Hierbei wird aber ein neues File kreiert und die Daten in die erste Reihe geschrieben. Ich möchte aber ein bestehendes File nehmen und dann die User-Daten in einer MsgBox präsentieren.... könnt Ihr mir helfen??
Danke im Voraus
Bruno