Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Datei öffnen, kopieren, schließen (activate)

VBA: Datei öffnen, kopieren, schließen (activate)
28.09.2006 12:21:27
Klaus
Moin Forum,
ich möchte mittels Button-Druck eine xls-Datei öffen, von dort gewisse Daten kopieren und dann die Datei wieder schließen, ohne zu speichern.
Unten stehender Code (wird mit ScreenUpdating, EnableEvents, DisplayAlerts und Calculation false ausgeführt) erledigt dies bereits.
Kann mir jemand einen Typ geben, wie ich auf das lästige Activate verzichte?
Kriege ich dann auch das "Copy" und "Paste" zusammen in eine Zeile, um die Zwischenablage zu umgehen?
Dank und Gruß,
Klaus M.vdT.

Option Explicit
Sub DatenEinlesen()
Workbooks.Open FileName:="\\VERZEICHNISS\STAMMDATEN.xls", UpdateLinks:=3, Notify:=False
Sheets("Übersicht").Columns("M:T").Copy
Windows("Kontrakt.xls").Activate
Sheets("Umlauf").Range("A1").PasteSpecial Paste:=xlValues
Windows("STAMMDATEN.xls").Close
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Datei öffnen, kopieren, schließen (activate)
28.09.2006 12:33:30
Uduuh
Hallo,
ohne Activate:

Sub DatenEinlesen()
Workbooks.Open Filename:="\\VERZEICHNISS\STAMMDATEN.xls", UpdateLinks:=3, Notify:=False
Sheets("Übersicht").Columns("M:T").Copy
Workbooks("Kontrakt.xls").Sheets("Umlauf").Range("A1").PasteSpecial Paste:=xlValues
Workbooks("STAMMDATEN.xls").Close False
Application.CutCopyMode = False
End Sub

Gruß aus’m Pott
Udo

AW: VBA: Datei öffnen, kopieren, schließen (activate)
28.09.2006 12:34:49
IngGi
Hallo Klaus,
Activate kannst du weglassen, wenn du dein Kopierziel über Workbook, Worksheet und Range ansprichst, also:
Workbooks("Kontrakt.xls").Sheets("Umlauf").Range("A1").PasteSpecial Paste:=xlValues
Copy und Paste bekommst du nur auf eine Zeile, wenn du alles einfügst, also nicht nur Werte, wie in deinem Makrocode:
Sheets("Übersicht").Columns("M:T").Copy Destination:=Workbooks("Kontrakt.xls").Sheets("Umlauf").Range("A1")
Um nur die Werte einzufügen, brauchst du 2 Zeilen.
Gruß Ingolf
Anzeige
Viel besser :-) aber noch nicht perfekt
28.09.2006 14:28:41
Klaus
Erstmal vielen Dank ihr beiden,
Uduuh's Code hab ich kopiert und er läuft, und dank IngGi's Erklärung hab ich ihn sogar verstanden.
Nur: der Code bleibt nicht in dem Sheet, von dem aus ich den Button zum aktivieren drücke. Ich lande in sheet Umlauf, in den auch das Paste gezielt hat. Genaugenommen lande ich ein Sheet weiter links, weil das Sheet Umlauf ausgeblendet ist.
Mal sehen ob ich das selbst zusammen bekomme:
Das "Workbooks open" ändert automatisch das aktive workbook. Wenn ich es wieder schließe, lande ich in dem zuletzt benutztem Sheet - in diesem Fall jenes,
in welches mein Paste geziehlt hat.
Ich behelf mit jetzt erstmal mit einem .select zurück auf das ursprüngliche Sheet. Hauptsache es läuft :-)
Nochmal Danke für die Hilfe, auch wenn ich diesen Code nicht select-frei kriegen sollte weiss ich jetzt zumindest um den Unterschied von Workbooks und Windows.
Gruß,
Klaus M.vdT

Option Explicit
Sub DatenEinlesen()
Sheets("Umlauf").Cells.ClearContents
Workbooks.Open FileName:="\\VERZEICHNISS\STAMMDATEN.xls", UpdateLinks:=3
Sheets("Übersicht").Columns("M:T").Copy
Workbooks("Kontrakt.xls").Sheets("Umlauf").Range("A1").PasteSpecial Paste:=xlValues
Workbooks("STAMMDATEN.xls").Close False
Application.CutCopyMode = False
Sheets("Eingaben").Select
End Sub

Anzeige

135 Forumthreads zu ähnlichen Themen

VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Anzeige
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Anzeige
Addins beim Datei öffnen per VBA deaktivieren
Gueni

Moin, moin,
ich suche eine Möglichkeit neben den Standardmenus und Symbolleisten von Excel, die auf einen Rechner evtl. weiterhin installierten Addins (mit entsprechenden Menus) beim öffnen einer Datei zu deaktivieren und beim beenden der Datei die ursprüngliche Installation des Rechners /...
18.11.2009 19:14:04
Thread-ID: 1118429
5 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
VBA-Projekt innerhalb Datei kopieren
Gregor

Hallo Excel-Profis
Folgendes Problem, dass ich trotz intensiver Recherche nicht gelöst bekomme:
Möchte das VBA-Projekt der Arbeitsmappe("2") mit dem VBA-Projekt der Arbeitsmappe("1") überschreiben.
(beide Blätter sind in einer Datei).
Kann mir jemand helfen?
Vielen Dank!
...
03.12.2009 13:09:19
Thread-ID: 1121578
7 Beiträge
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 Beiträge
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
3
1
3
2
4
2
6
1
8
1
2
3
10
3
1
5
4
3
4
6
3
9
1
6