Laufzeitfehler 438
Peter
ich habe einen Kode geschrieben der eine Zeile mit samt den Funktioninhalt in anderes Workbook kopieren soll. Es wäre ein klassischer dreizeiler wenn es nicht um 7 Ecken ginge. Mein Fehler tritt, wie soll es anders sein im Finale auf.
Laufzeitfehler 438 Objekt wird nicht unterstützt.
Hier ist mein Code:
Sub Overview()
' >>>Copy entries to Overview.xls
Dim FSO As Object
Dim wksEntry As Worksheet
Dim wksTarget As Worksheet
Dim strFilePath As String
Dim strFile As String
Dim strSource As String
Dim rng As Range
Set wksEntry = Worksheets("Sheet1")
strEntrySource = wksEntry.Range(Cells(1, 1).End(xlToLeft), Cells(1, Columns.Count).End( _
xlToLeft)).Value
Set FSO = CreateObject("Scripting.FileSystemObject")
ChDrive FSO.GetDriveName(ThisWorkbook.Path)
ChDir FSO.GetFolder(ThisWorkbook.Path).Parentfolder.Path
strFilePath = FSO.GetFolder(ThisWorkbook.Path).Parentfolder.Path
strFile = strFilePath & "\" & "Overview.xls"
Workbooks.Open Filename:=strFile
With Worksheets("Sheet1")
If Dir(strFile) = "" Then
MsgBox strFile & " does not exist!", vbCritical
Exit Sub
End If
Range("B3").Select
strTargetSource = wksTarget.Range(Cells(1, 1).Selection, Selection.End(xlToLeft)).EntireRow. _
Select.Value
strTargetSource = strEntrySource
End With
Active.Workbook.Save
Active.Workbook.Close
End Sub
Vielen Dank im vorraus
MfG Peter