msgBox mit user
lisa
Hallo ihr Spezis
Auch nach dem Weihnachtsfest geht´s mit der Arbeit weiter, bei mir wie auch bei Euch. Naja ich hoffe ihr hattet ein schönes und arbeitsfreies Weihnachtsfest.
Ich habe hier mit meinem Makro eine Abfrage ob die zu öffnende Mappe offen ist oder nicht.
Nun würde ich gern in meiner msgBox den Namen dessen haben, der die Mappe bereits offen hat.
Dazu habe ich in der zu öffnenden Mappe in der Zelle a1 den User über Range("a1") = Environ ("Username") ausgelesen und eingetragen.
Kann man den Usernamen abfragen und in der MsgBox anzeigen lassen?
Private Sub CommandButton1_Click()
Dim wbName(20) As String
wbCount = Workbooks.Count
For x = 1 To wbCount
wbName(x) = Workbooks(x).FullName
Next
For x = 1 To wbCount
If InStr(1, wbName(x), "Bestellliste.xls", vbTextCompare) > 0 Then
MsgBox "Datei wird zur Zeit bearbeitet und kann NICHT NOCH EINMAL GEÖFFNET WERDEN!"
Exit Sub
End If
Next
Workbooks.Open Filename:="P:\\Bestellliste.xls"
End Sub
Liebe Grüße Lisa