Hallo Klaus,
danke für deine Antwort, scheint mir eine logische möglichkeit zu sein, bin aber glaub ich nicht clever genug sie umzusetzen.
Sub Aktualisieren()
' Aktualisieren Makro
ActiveSheet.Unprotect Password:=("1234")
ActiveWorkbook.Unprotect Password:=("1234")
On Error GoTo ErrMsg
ActiveWorkbook.UpdateLink Name:= _
"K:\Material\Materialdatenbank_Bestellformular\Materialdatenbank_2.0.xlsm", _
Type:=xlExcelLinks
ActiveWorkbook.Protect Password:=("1234")
ActiveSheet.Protect Password:=("1234")
ErrMsg:
Dim strText As String
strText = "(K:\Material\Materialdatenbank_Bestellformular\Materialdatenbank_2.0.xlsm[ _
Userabfrage].Range(A1)"
MsgBox "Die Materialdatenbank ist zurzeit geöffnet durch den Benutzer " & strText, 16, " _
Datenbank geöffnet"
End Sub
Ist klar, das er jetzt in der MsgBox mir den Pfad wiedergibt und nicht das was ich haben will, aber ich weiß nicht wie ich das verpacken kann...Evtl. du oder jemand anders ne Idee?
VG
Gerwin