verfaßt von manes 
, Köln, 12.11.2017, 23:45:15
Hallo
Grundsätzlich muss für die Aufgabenstellung die Zieldatei geöffnet werden.
Hier die in Betracht kommenden beiden Varianten. Bei der ersten wird sicherheitshalber mit DIR geprüft, ob die Datei auch tatsächlich gefunden werden kann.
Option Explicit
Const cStr_Datei As String = "C:PfadZiel.xlsm"
Sub Version1()
Dim wb1 As Workbook
Dim wb2 As Workbook
If Dir(cStr_Datei, vbNormal) <> "" Then
Set wb2 = Workbooks.Open(cStr_Datei)
wb2.Worksheets("Sommer99").Cells(7, 10) = 444
wb2.Close savechanges:=True
Else
MsgBox "Datei " & cStr_Datei & "nicht gefunden"
End If
End Sub
Sub Version2()
Dim obj As Object
Set obj = GetObject(cStr_Datei)
obj.Worksheets("Sommer99").Cells(8, 10) = 444
obj.Close savechanges:=True
End Sub
Viel Erfolg
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: