ich hatte hier vor kurzem von ChrisL diesen Code bekommen, leider war der Thread nicht mehr offen, aber ich hatte nun noch eine Frage:
Hier der Link zum Archiv-Thread:
https://www.herber.de/forum/archiv/1468to1472/t1470348.htm
Sub t()
Dim WB1 As Workbook, WB2 As Workbook
Dim varDatei As Variant
Application.ScreenUpdating = False
Set WB1 = ThisWorkbook
ChDrive "T:"
ChDir "T:\~Betrieb_Waghäusel\~Kommissionierung\~GL Kommissionierung\Allgemein\ _
Parametereinstellungen\"
varDatei = Application.GetOpenFilename("Excel Datei (*.xlsm), *.xlsm", , "Datei auswählen", , _
False)
If varDatei False Then
Set WB2 = Workbooks.Open(varDatei)
Else
Exit Sub
End If
End If
WB2.Worksheets(2).Range("M2:S43").Copy WB1.Worksheets(2).Range("M2")
WB2.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
In diesem Code habe ich zwei Zeilen eingefügt die mir bereits den Pfad vorgeben:
ChDrive "T:"
ChDir "T:\~Betrieb_Waghäusel\~Kommissionierung\~GL Kommissionierung\Allgemein\ _
Parametereinstellungen\"
Ich möchte allerdings nun noch abfangen, ob die Datei die ich ausgewählt habe bereits geöffnet ist, sodass keine Fehlermeldung kommt beim ausführen.Vielen Dank & Grüße,
Nicolai