Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zugriff auf Workbooks von mehreren Excel-Instanzen

Zugriff auf Workbooks von mehreren Excel-Instanzen
mehreren
Hallo Excel-Profis,
habe folgendes Szenario zu lösen. Wäre klasse wenn mir jemand kurz helfen könnte.
Ich starte über Windows "Geplante Tasks" eine Excel-Datei, nennen wir Sie "Task.xls" und es gibt eine zweite Arbeitsmappe "Monitor.xls" welche immer geöffnet ist.
Beim Öffnen der Arbeitsmappe Task.xls startet ein Makro, welches Daten von Task.xls in Monitor.xls schreiben soll.
Leider startet Windows mit "Geplante Tasks" immer eine eigene Excel-Instanz, weshalb das kopieren von einer XLS-Datei in die andere nicht einfach über die gewöhnliche Art geht. Also:
Global goAmMoni As Object 'Arbeitsmappe Monitor
Global goAmTask As Object 'Arbeitsmappe Geplanter Task

Sub Test()
Set goAmTask = ActiveWorkbook
Set goAmMoni = Application.Workbooks("Monitor.xls")
End Sub
Dabei tritt immer ein Index Out of Range -Error auf!
Hat hier jemand eine Lösung parat.
Vielen Dank schon mal.
Gruß,
Eddie
PS. Man kann dieses Forum nicht oft genug loben. Klasse Arbeit!!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zugriff auf Workbooks von mehreren Excel-Instanzen
22.09.2009 20:17:37
mehreren
Hallo,
versuche es mal so.
Dim meWB As Workbook
Set meWB = CreateObject("C:\DeinOrdner\Monitor.xls")
ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = meWB.Sheets("Tabelle1").Range("A1").Value
Kopieren geht aber dann nur mit select
Beispiel:
Dim meWB As Workbook
Set meWB = CreateObject("C:\DeinOrdner\Monitor.xls")
meWB.Sheets("Tabelle1").Range("A1:Z20").Copy
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Microsoft Excel 8.0-Format", Link:=False, DisplayAsIcon:=False

Gruß Tino
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige