Hi Ralf,
es hat geklappt. Vielen Dank für Deine Hilfe.
Nachstehend der Code zusammengesetzt, falls ihn noch jemand gebrauchen kann:
Set Excelapp = CreateObject("excel.application")
Set Wb = Excelapp.Workbooks.Open(FileName:=Zielordner)
With Wb
Excelapp.Visible = True
.Worksheets(1).Range("G4").Value = "Neuer Wert"
End With
|