Hallo Leute,
ich möchte über eine Datenüberprüfung mehrere Auswahlfelder anzeigen lassen.
Die ausgewählte Datei soll sich nach dem Klicken öfnnen.
Leider funktioniert dieser Code unten nicht. Es kommt die Fehlermeldung "Datei existiert nicht". Die Excel-Datei soll entweder vom USB-Stick aus oder auf Laufwerk C genutzt werden können.
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"
strZielDatei = Environ("HOMEDRIVE") & Environ("HOMEPATH") _
& "\Desktop\Cleaning Planner 1.0\Reinigungsplan\Produkte\" _
& Target.Value & ".xlsm"
If Dir(strZielDatei) = "" Then
MsgBox "Die Datei existiert nicht!", vbExclamation
Else
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
Application.Workbooks.Open Filename:=strZielDatei, ReadOnly:=True
End If
End If
End Select
Set wbk = Nothing
Wer kann mir weiterhelfen?
Vielen Dank im Voraus, Markus