Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Bereich aus geöffneter Datei kopieren

Forumthread: Aus Bereich aus geöffneter Datei kopieren

Aus Bereich aus geöffneter Datei kopieren
27.08.2007 19:28:00
maruseru
Hallo zusammen
Ich habe zwei Dateien geöffnet. Datei A ist die aktive Arbeitsmappe und hat immer den gleichen Namen. Datei B ist auch geöffnet, hat jeweils einen anderen Namen, jedoch die gleichen Arbeitsblätter.
Nun möchte ich aus Datei B, Tabelle 1, Bereich A3:R3 auslesen und in die aktive Datei A in Tabelle 1, auf die erste freie Zeile, Reihe B einfügen. In Reihe A ist eine Nummerierung vorhanden.
Danke und Gruss
Maruseru

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Bereich aus geöffneter Datei kopieren
27.08.2007 22:07:00
Gerd
Hallo Maruseru,
eine Möglichkeit.

Sub test()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
On Error GoTo errorExit
Set wbQuelle = Workbooks(Application.InputBox("Kopieren aus Datei (Namen eingeben)!", _
"Daten """"A3:R3"""" einfügen"))
Set wsQuelle = wbQuelle.Worksheets("Tabelle1")
wsQuelle.Range(wsQuelle.Cells(3, 1), wsQuelle.Cells(3, 18)).Copy _
Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
errorExit:
End Sub


Gruß Gerd

Anzeige
AW: Aus Bereich aus geöffneter Datei kopieren
28.08.2007 09:02:00
maruseru
Hallo Gerd
Erst mal vielen Dank. Grundsätzlich hat es funktioniert. Beim Versuch den gleichen Bereich ein zweites, drittes Mal zu kopieren hat das Makro nicht mehr funktioniert.
Das mit der Auswahl der Datei hat gut geklappt. Dazu die Frage. Anstelle die Datei zu öffnen und dann per Imputbox nochmals den Namen eizugeben, könnte doch auch gleich GetOpenFileName benutzt werden?
Nochmals vielen Dank und Gruss
Maruseru

Anzeige
AW: Aus Bereich aus geöffneter Datei kopieren
28.08.2007 22:46:00
Gerd
Hallo Maruseru,
den Fehler beim Wiederholen konnte ich nicht feststellen, es sei denn, die Inputbox
wird beim zweiten etc. Mal nicht gefüllt oder kein zutreffender Dateiname eingegeben.
Datei öffnen u. kopieren, probier mal:

Sub test2()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
On Error GoTo errorExit
Application.Dialogs(xlDialogOpen).Show
Set wbQuelle = ActiveWorkbook
Set wsQuelle = wbQuelle.Worksheets("Tabelle1")
wsQuelle.Range(wsQuelle.Cells(3, 1), wsQuelle.Cells(3, 18)).Copy _
Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
errorExit:
ThisWorkbook.Activate
End Sub


Anzeige
AW: Aus Bereich aus geöffneter Datei kopieren
29.08.2007 14:05:01
maruseru
Hallo Gerd
Funktioniert einwandfrei. Das mit dem übernehmen der Formatierung und Formeln aus der oben stehenden Zeile werde ich auch noch schaffen.
Nochmals vielen Dank und Gruss
Maruseru

Forumthreads zu verwandten Themen

aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Arbeitsblaetter aus Datei in Arbeitsmappe kopieren
Benjamin

Hallo erstmal,
normalerweise lese ich immer nur und finde alle loesungen, diesmal hab ich einfach nichts gefunden.
Ich wuerde gerne als sehr vielen Dateien immer das komplette dritte Arbeitsbaltt kopieren und in einer neuen Arbeitsmappe untereinander einfuegen. Hab auch schon einen ansa...
16.09.2008 06:03:00
Thread-ID: 1009929
2 Beiträge
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 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
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Aus diversen Exceldateien einen Wert kopieren
Fabio

Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen...
13.02.2009 10:26:00
Thread-ID: 1050383
2 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Daten aus geöffneter Datei kopieren
Mone

Hallo Experten
ich bin wieder mal am "Durchdrehen" :-)
Vielleicht könnt ihr mir mal wieder helfen.
Ich habe eine Datei, die beim öffnen eine weitere Datei (Quelldatei) öffnet. Nun steuer ich mit einem Button ein Formular in der Quelldatei an. Auf diesem Formular ist ein weiterer But...
01.04.2009 19:43:56
Thread-ID: 1066102
8 Beiträge
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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