Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

getObject

getObject
31.08.2007 22:57:12
Holger
Hallo liebe Forumianer,
kann mir evtl. jemand helfen. Ich habe ein Workbook("allg1") aus dem ich ein sheet ("D12") gerne in das Workbook ("aus1") kopieren möchte. Dies wäre noch kein Problem für mich, dieses Kopieren sollte aber im "Hintergund" laufen. Aus dem Archiv habe ich heraus lese´n können das getObject ein WB minimiert öffnen kann ohne das man irgend etwas davon sieht. Das wäre genau "mein" Ding, nurbekomme ich den Code irgendwie nicht wirklich hin. Kann mich da jemand unterstützen?
Die WB´s liegenbeide auf "E:\WP\.."
Danke und Gruß
Holger

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: getObject
01.09.2007 09:20:40
Beverly
Hi Holger,
versuche es nach diesem Prinzip

Sub kopieren()
Dim wbMappe As Excel.Workbook
Set wbMappe = GetObject("E:\WP\aus1.xls")
' hier dein Kopierbefehl
wbMappe.Close
Set wbMappe = Nothing
End Sub


________________________________________

AW: getObject
01.09.2007 22:36:00
Holger
Hallo Beverly,
komm da mit nicht klar, 

Sub kopieren()
Dim wbMappe As Excel.Workbook
sheets("D12").select
selection.copy
Set wbMappe = GetObject("E:\WP\aus1.xls")
' hier dein Kopierbefehl
Application.CutCopyMode = False
wbMappe.Close
Set wbMappe = Nothing
End Sub


kannst du mir noch weiterhelfen?
Wäre Dir sehr dankbar.
Gruß und Dank
Holger

Anzeige
AW: getObject
02.09.2007 00:29:25
Nepumuk
Hallo Holger,
wenn du in die per GetObject geöffnete Mappe etwas kopieren und dann speichern willst, dann ist das der falsche Weg. Denn wenn du diese Mappe wieder öffnest, ist sie ausgeblendet. Du könntest natürlich die Mappe vor dem speichern einblenden, aber dann kannst du auch genauso gut die Mappe "normal" öffnen, kopieren, speichern und schließen. Wenn du die Bildschirmaktuallisierung ausschaltest, dann sieht der User von der ganzen Aktion nur ein kurzes zucken in der Taskleiste. Vor allen Dingen, wenn du bei der Aktion auf so unsinnige Methoden wie Select und Activate verzichtest.
Gruß
Nepumuk

Anzeige
AW: getObject
02.09.2007 09:53:01
Beverly
Hi Holger,
Nepumuk hat schon Recht - die so geöffnete Arbeitsmappe bleibt "unsichtbar", auch wenn man sie anschließend von Hand öffnet. Wenn man unter den Eigenschaften in DieseArbeitsmappe IsAddin auf True und dann wieder auf False setzt, ist sie allerdings wieder "sichtbar". Es ist also die Frage, ob du sie auch irgendwann mal wieder direkt benutzen möchtest, dann ist der andere Weg, die Bildschirmaktualiserung aus- und wieder einzuschalten der bessere.
Aber zu deiner eigentlichen Frage

Sub kopieren()
Dim wbMappe As Excel.Workbook
Set wbMappe = GetObject("E:\WP\aus1.xls")
With wbMappe.Worksheets("Tabelle1")
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A10").Copy .Range("A1")
End With
wbMappe.Close
Set wbMappe = Nothing
End Sub


Bis später,
Karin

Anzeige
AW: getObject
02.09.2007 10:04:00
Nepumuk
Hallo Karin,
Wenn man unter den Eigenschaften in DieseArbeitsmappe IsAddin auf True und dann wieder auf False setzt, ist sie allerdings wieder "sichtbar".
Das ist so nicht korrekt, denn diese Eigenschaft wird ja nicht gesetzt. Die Mappe ist einfach nur ausgeblendet und kann über die Menüleiste - Fenster - Einblenden wieder sichtbar gemacht werden. Genauso wie z.B. die PERONL.XLS.
Gruß
Nepumuk

AW: getObject
02.09.2007 10:50:00
Beverly
Hi Nepumuk,
da ein Add-In ebenfalls nicht sichtbar ist, funktionert es auch auf diesem Weg, denn man setzt die Eigenschaft und hebt sie wieder auf. Der einfachere Weg ist natürlich Fenster -&gt Einblenden.
Bis später,
Karin

Anzeige
AW: getObject
02.09.2007 10:56:00
Nepumuk
Hallo Karin,
hast du das getestet? Bei mir blendet sich da nix ein. ;-)
Gruß
Nepumuk

AW: getObject
02.09.2007 11:52:00
Beverly
Hi Nepumuk,
ja, habe ich, in 2002 und 2007. Die "verstecke" Arbeitsmappe wird wieder sichtbar und ist die aktive.
Bis später,
Karin

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige