Pfad kontrollieren
Space
ich kopiere mittels VBA eine Zelle der Quelldatei in eine Zelle der Zieldatei. Das funktioniert. Das Problem ist nun: ich würde gerne eine MsgBox aufrufen können, falls der Pfad der Quelldatei nicht vorhanden ist!
Wie kann ich das machen? Hier mein Code:
Private Sub Workbook_Open()
Dim wks As Worksheet
'Excel Datei 1.xls öffnen
Set wks = Workbooks.Open(Filename:= _
"...Pfad...\1.xls").Sheets(1)
'Benötigte Zellen kopieren und im Tabellenblatt "XYZ" einfügen
'Kopieren aus Quelle
With wks
.Range("C1").Select
Selection.Copy
Workbooks("XYZ.xls").Sheets(1).Range("D9").PasteSpecial Paste:=xlValues
End With
'Kopiermodus beenden
Application.CutCopyMode = False
'Schließen von 1
wks.Parent.Close
'"XYZ" in den Vordergrund bringen
Workbooks("XYZ.xls").Activate
End Sub
Wenn der Pfad nicht vorhanden ist kommt bisher der Debugger. Ich will aber nicht den Debugger sehen sondern die MsgBox, das der Pfad nicht stimmt.
Vielen Dank für die Hilfe!
Gruß
Space