Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

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

Anzeige
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...

301 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
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
6
3
1
1
4
3
4
2
2
6
5
10
2
3
5
3
3
2
2
3
8
5
8
1