Hallo zusammen,
ich habe 2 Dateien in denen ich momentan von Hand hin und her kopiere. ( was aber blödsinn ist :-) ).
Daher der Versuch über ein Makro..
Also in Datei 1 ( Fname) stehen nachher die fertigen Daten ( also hier hin soll kopiert werden) .
In Datei 2 ( Fname2 ) stehen die Daten die ich benötige ...
Es soll in Fname 2 die Spalten B:AP kpl. kopiert werden ( hier heißt das Blatt " Sheet1 ") eingefügt sollen die Daten dann in Fname , und das Blatt hier heisst " BOM_OTF_Daily "...
Irgendwie steh ich aber kpl. auf dem Schlauch was das angeht.
Ich weiß das ich irgendwie sagen muß das er den Bereich kopieren soll und in der anderen Datei wieder einfügen soll. ... aber ich blicke gerade nicht wie .
Ich hoffe mal das reicht als Erklärung
Was ich bisher habe:
Sub test()
Dim Fname As String
Dim Fname2 As String
Dim SrcWbk As Workbook
Dim DestWbk As Workbook
Dim ComWbk As Workbook

Set DestWbk = ThisWorkbook
If MsgBox("Open the current Bailment overview file", Buttons:=vbYesNo) = vbNo Then Exit Sub
Application.DisplayAlerts = False 'switching off the alert button
Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx*), *.xls*", Title:="Select current Bailment Overview file")
On Error Resume Next
AllowMultiSelect = False
If Fname = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname)
On Error Resume Next

If MsgBox("Open the current Bailment Data file", Buttons:=vbYesNo) = vbNo Then Exit Sub
Application.DisplayAlerts = False 'switching off the alert button
Fname2 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx*), *.xls*", Title:="Select current Bailment Data file")
On Error Resume Next
AllowMultiSelect = False
If Fname2 = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname2)
On Error Resume Next

End With