Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Aus einer Datei Inhalt kopieren

VBA Aus einer Datei Inhalt kopieren
06.07.2022 08:55:50
Emre
Moin,
ich möchte gerne aus einer Datei einen ganzen Tabelleninhalt in eine bestehende Datei einfügen. Die Datei aus der kopiert werden soll, sollte durch den Explorer zuvor erst ausgewählt werden. Ich habe bis jetzt das hier hinbekommen nur krieg ich von Excel eine Fehlermeldung.
Mit freundlichen Grüßen
Murat Emre Güc

Sub masterButt()
filePath = Application.GetOpenFilename
Workbooks(filePath).Worksheets("Sheet1").Range("A2", "A5130").Copy
ActiveWorkbook.Worksheets("Daten ZRF %").Range("A4", "A5132").Paste
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Aus einer Datei Inhalt kopieren
06.07.2022 09:16:50
UweD
Hallo
1. Die Datei musst du erst öffnen (durch das Getopen holst du nur den Pfad&Datei; das eigentliche Öffnen ist nicht dabei enthalten)
2. Du kopierst 2 nicht zusammenhängende Zellen. (ist das so gewollt? oder meinst du von A2 bis A5130? )
3. Nicht zusammenhängende Zellen können nicht auf einmal eingefügt werden
so ginge es.

Sub masterButt()
Dim filePath As String, WB1 As Workbook, WB2 As Workbook
Set WB1 = ActiveWorkbook
filePath = Application.GetOpenFilename
Set WB2 = Workbooks.Open(filePath)
With WB2.Worksheets("Sheet1")
.Range("A2").Copy WB1.Worksheets("Daten ZRF %").Range("A4")
.Range("A5130").Copy WB1.Worksheets("Daten ZRF %").Range("A5132")
End With
WB2.Close
End Sub
LG UweD
Anzeige
Update
06.07.2022 09:30:30
UweD
HAllo
merke gerade erst, das das Komma ja außerhalb der "" steht.
Also ist es doch ein Bereich.
dann reicht das 

Sub masterButt()
Dim filePath As String, WB1 As Workbook, WB2 As Workbook
Set WB1 = ActiveWorkbook
filePath = Application.GetOpenFilename
Set WB2 = Workbooks.Open(filePath)
WB2.Worksheets("Sheet1").Range("A2", "A5130").Copy WB1.Worksheets("Daten ZRF %").Range("A4")
WB2.Close
End Sub

AW: Update
06.07.2022 09:39:58
Emre
danke für deine schnelle Antwort.
Jedoch erzielt der Code noch nicht das gewünschte Ergebnis. Deswegen erkläre ich es nochmal ausführlicher. Dieser gibt nämlich den Fehlercode: Index außerhalb des gültigen Bereichs.
Ich habe eine Datei1 die eine Tabelle beinhaltet welche Daten mit über 5000+ Zeilen mit jeweils 8 Spalten beinhaltet.
Im Moment werden diese Daten in der Tabelle per Hand aus einer anderen Datei2 reinkopiert. Sprich die andere Datei2 wird per Hand geöffnet, der entsprechende Teil kopiert und in die Datei1 reinkopiert. Dies will ich durch VBA automatisieren. Der Code soll also in erster Linie einfach die Tabelle aus Datei2 in die Datei1 reinkopieren mit einem Knopfdruck.
Anzeige
AW: Update
06.07.2022 09:50:32
UweD
Hallo nochmal
&GT&GT 8 Spalten
du hast bisher nur aus Spalte A kopiert
dann von A2 bis H5130

    WB2.Worksheets("Sheet1").Range("A2:H5130").Copy WB1.Worksheets("Daten ZRF %").Range("A4")
LG UweD

312 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 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
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1