AW: Hyperlink
19.02.2017 19:35:36
littletramp
Hallo Markus
Besser ist die Datei auf dem Server abzulegen. Die Frage ist, müssen die Benutzer diese Datei auch bearbeiten können?
Wenn nicht, also nur nachsehen, so kannst du sie schreibgeschützt öffnen.
Ich würde das Öffnen auch nicht mit Hyperlink machen, sondern mit Workbooks.Open.
Zusätzlich würde ich zuerst prüfen ob die Datei existiert, und ob der Benutzer diese schon offen hat.
Hier der ganze Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strZielDatei As String
Dim wbk As Workbook
Select Case Target.Address(False, False)
Case "K5", "U5", "L4"
' Zieldatei festlegen
' (hier sollte ein Verzeichnis auf dem Server verwendet werden!)
strZielDatei = Environ("HOMEDRIVE") & Environ("HOMEPATH") _
& "\Desktop\Cleaning Planner 1.0\Reinigungsplan\Produkte\" _
& Target.Value & ".xlsm"
' Prüfen ob Datei existiert
If Dir(strZielDatei) = "" Then
MsgBox "Die Datei existiert nicht!", vbExclamation
Else
' Prüfen dieser Benutzer die Datei schon geöffnet hat
On Error Resume Next
Set wbk = Workbooks(Target.Value & ".xlsm")
If Err.Number = 0 Then
MsgBox "Sie haben diese Datei schon geöffnet!", vbInformation
Else
On Error GoTo 0
' Datei schreibgeschützt öffnen
Application.Workbooks.Open Filename:=strZielDatei, ReadOnly:=True
End If
End If
End Select
Set wbk = Nothing
End Sub
Gruss Markus