ich lese eine mappe und füge daten in eine andere mappe nicht im selbem order.
Es wird aber nur text kopiert nicht die formel in der Zellen.
Ich habe versucht alles mögliche funktioniert aber überhaupt nicht.Sollte mit Range("B2:B4").PasteSpecial Paste:=xlPasteValues gehen.
Wer kennt sich aus und kann mir helfen?
Danke
Sub text_kopieren()
Application.DisplayAlerts = False
MsgBox "Find ExcelFile!"
MyExcelFile = Application.GetOpenFilename
Application.ScreenUpdating = False
Workbooks.Open Filename:=MyExcelFile
MyExcelFile = ActiveWorkbook.Name
Workbooks(MyExcelFile).Activate
Sheets("Sheet1").Select
Range("B2:B4").Select
Selection.Copy
Application.ScreenUpdating = True
Workbooks(MyExcelFile).Close
Call text_einfügen
End Sub
Sub text_einfügen()
MyExcelFile = ActiveWorkbook.Name
Range("B2:B4").PasteSpecial
End Sub
Gruss