Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro um Daten zu importieren

Forumthread: Makro um Daten zu importieren

Makro um Daten zu importieren
27.07.2007 08:21:38
Sabine
Hallo!
Ich möchte einen Report in einer neuen Tabelle aus 2 verschiedenen Exceldateien zusammenstellen, aber jeweils nur gewisse Blätter. Wie kann ich dies über ein Makro am einfachsten lösen? Ich hoffe mein Problem ist verständlich...
lg

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro um Daten zu importieren
27.07.2007 09:23:54
Chaos
Servus,
Grundsätzlich so:

Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\... Hier Pfad der 1.Quelldatei..\1.Quelldatei.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\... Hier pfad der 2.Quelldatei..\2.Quelldatei.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("gewünschtesSheet")
.Range("xy").Copy Destination:=Workbooks(nam).Sheets("Zielsheet").Range("A1") ' oder  _
so ähnlich
End with
With Workbooks(nam2).Sheets("gewünschtesSheet")
.Range("xy").Copy Destination:=Workbooks(nam).Sheets("Zielsheet").Range("A10") ' oder  _
so ähnlich
.Close
End with
End Sub


du kannst auch ganze Sheet kopieren, dann eben Sheets("xy").Copy, kommt drauf an, was du machen willst.
Gruß
Chaos

Anzeige
AW: Makro um Daten zu importieren
27.07.2007 10:30:00
Sabine
hi!
habs geschafft ein ganzes blatt zu kopieren, wenn ich ne 2. datei hinzufüge und ein anderes blatt sagt er bevor er das 2. kopiert "Index außerhalb des gültigen Bereichs" - hier mein Code:

Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\auftrag.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("test.xls").Sheets( _
1)
End With
With Workbooks(nam1).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("test.xls"). _
Sheets(1)
End With
End Sub


Anzeige
AW: Makro um Daten zu importieren
27.07.2007 09:26:00
Hajo_Zi
Hallo Sabine,
ich vermute mal es wird Dir hier keiner ein komplettes Projekt erstellen. Du siehst Deine Listen was und kennst auch die Liste die Du erstellen willst. Lese Dinen Beitrag mal als aussenstehender. Ich vermute mal Du kannst damit auch nichts anfangen.
Teile Deine Aufgabe doch in kleine Abschnitte ein und stelle dazu Fragen.

Anzeige
AW: Makro um Daten zu importieren
27.07.2007 09:50:00
Sabine
also grundsätzlich will ich ganze sheets importieren... ich werd mich mal dran versuchen und sehen wies läuft...

AW: Makro um Daten zu importieren
27.07.2007 10:08:31
Chaos
Servus Sabine,
ganze Sheets kopiert man z.B. so:
Workbooks("Quelle").Sheets("xy").Copy After:=Workbooks("Ziel").Sheets(1)
Gruß
Chaos

AW: Makro um Daten zu importieren
27.07.2007 10:37:00
Sabine
Hallo,
habs geschafft ein Sheet problemlos zu kopieren, wenn ichs 2. zu meinem Code hinzufüge kopiert er das 1. und schreibt dann nen Fehler "Index außerhalb des Bereichs). Hier mein Code:

Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\auftrag.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("test.xls").Sheets( _
1)
End With
With Workbooks(nam1).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("test.xls"). _
Sheets(1)
End With
End Sub


Anzeige
AW: Makro um Daten zu importieren
27.07.2007 10:43:00
Sabine
*räusper*
man soll schon richtig kopieren können - fehler gefunden... funktioniert!!!
lg

AW: Makro um Daten zu importieren
27.07.2007 11:08:00
Sabine
Soweit so gut...
nun möchte ich die geöffneten Dateien jeweils mit pro Datei speziellen Zoomfaktor (siehe Seite einrichten - x% Normalgröße) - soweit ich weiß geht das mit
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Zoom = 75
End With
aber wenn ich das in meinen Code einbaue druckt er gar nichts... hier mein code:
Sub report()
Dim nam As String, nam1 As String, nam2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nam = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\angebot.xls"
nam1 = ActiveWorkbook.Name
Workbooks.Open Filename:="C:\auftrag.xls"
nam2 = ActiveWorkbook.Name
With Workbooks(nam1).Sheets("Lost Bids")
Workbooks("angebot.xls").Sheets("Lost Bids").Copy After:=Workbooks("test.xls").Sheets(1)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Zoom = 75
End With
End With
With Workbooks(nam2).Sheets("bookings_mo_cy")
Workbooks("auftrag.xls").Sheets("bookings_mo_cy").Copy After:=Workbooks("test.xls").Sheets(1)
End With

Anzeige
AW: Makro um Daten zu importieren
27.07.2007 11:53:00
Sabine
keine ahnung wo der fehler lag... auf einmal funktionierts...

AW: Makro um Daten zu importieren
27.07.2007 12:19:00
Chaos
Na gut,
wobei ich nicht wirklich verstanden habe, was du machen wolltest.
Gruß
Chaos

AW: Makro um Daten zu importieren
27.07.2007 12:23:42
Sabine
ich wollte die mappe kleiner zoomen damit sie beim ausdruck auf ne seite passt...
Anzeige
;

Forumthreads zu verwandten Themen

Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten aus tmp-Datei importieren
Wolfgang

Hallo,
ich suche nach einer Möglichkeit, aus einer .tmp-Datei die wohl im Format *"?xml version="1.0" encoding="UTF-8"?*" geschrieben ist, Daten in Excel zu importieren. Über das übliche Verfahren "Daten importieren" bekomme ich das nicht hin. Hat evtl. jemand eine Idee, was ich da machen k...
09.09.2008 08:52:00
Thread-ID: 1008298
7 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Datenimport, Zahlen aus .txt Datei
Tom

Hallo zusammen,
benötige mal wieder Euer Fachwissen.
Es geht um eine .txt-Datei mit 100.000 Zahlen a 13 Stellen, diese möchte ich in Excel importieren.
Hierzu nutze ich in Excel Daten_ Externe Daten importieren, funktioniert auch gut, nur das nicht alle Zahlen in ein Tabelleblatt pa...
20.10.2008 19:30:14
Thread-ID: 1017788
2 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Anzeige
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
Worksheet aus anderer Datei übernehmen
tco99

Hallo zusammen,
ich habe folgende Frage bzw. Bitte:
Ich habe zwei Excel-Dateien. Die eine Datei liegt immer im selben Verzeichnis, immer mit dem Namen "Daten" und hat ein einziges Worksheet mit dem Namen "Daten".
Jetzt müsste per Makro in der zweiten Datei das Blatt "Daten" der er...
05.02.2009 21:00:00
Thread-ID: 1047509
5 Beiträge
Formeln aus anderer Datei
Thorsten

Hallo zusammen,
ich hab ne Frage auf die ich im Forum keine Antwort finde.
Und zwar möchte ich in einer Excel-Datei formeln herunterziehen.
Jedoch bezieht sich die verknüpfung auf eine andere datei.
Dann geht das irgendwie nicht .
Und zwar steht in Zelle A1 von meiner Datei...
09.02.2009 10:55:56
Thread-ID: 1048583
3 Beiträge
importieren von Daten aus mehrer Mappen via VBA
Daten

Hallo Excelsperten,
an für sich ist das öffenen und importieren von Daten aus einer Arbeitsmappe via VBA kein Problem. Ich habe die Anforderung ein Tool zu schreiben das Daten aus Access graphisch analysiert. Bis hier hin ist alles noch ken Problem.
Die Daten aus Access werden abhängig...
10.02.2009 09:46:00
Thread-ID: 1048927
3 Beiträge
Worksheet aus anderer Excel Datei einbinden
Matze

Hallo zusammen!
Ich habe folgendes Vorhaben:
Ich möchte per CommandButton eine andere Excel Datei öffnen, aus dieser die einzelnen vorhandenen Worksheets (5 Stück) kopieren und diese anschließend in die Urpsungsdatei als Worksheet einbinden. Das Öffnen der anderen Excel Datei klappt, b...
26.02.2009 15:06:16
Thread-ID: 1054417
7 Beiträge
Anzeige
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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