Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Mini249 vom 16.11.2019, 17:36 Options
Datei über Makro öffnen & Werte aus geöffneter Datei kopieren
Ich brauche ein Makro, dass den Anwender erst auffordert den Pfad der Datei anzugeben, in der sich die Datenquelle befindet -> so weit bin ich schon:
Dim Eingabewerte1 As String
Eingabewert1 = "Bitte geben Sie die Datenquelle an"
MsgBox Eingabewert1, , "Hinweis"
Application.Dialogs(xlDialogOpen).Show
Danach soll das Makro allerdings aus dieser Datei (der Pfad und Name variiert) den Inhalt des Tabellenblattes "Tabelle1" in das Tabellenblatt "Datenquelle" der ursprünglich geöffneten Excel Datei (aus der heraus das Makro gestartet wurde) kopieren. Kann mir da vielleicht irgendjemand weiterhelfen? Ich hoffe meine Frage ist verständlich genug..
Vielen vielen Dank schonmal im Vorraus an alle Tüftler!
Dim Eingabewerte1 As String
Eingabewert1 = "Bitte geben Sie die Datenquelle an"
MsgBox Eingabewert1, , "Hinweis"
Application.Dialogs(xlDialogOpen).Show
Danach soll das Makro allerdings aus dieser Datei (der Pfad und Name variiert) den Inhalt des Tabellenblattes "Tabelle1" in das Tabellenblatt "Datenquelle" der ursprünglich geöffneten Excel Datei (aus der heraus das Makro gestartet wurde) kopieren. Kann mir da vielleicht irgendjemand weiterhelfen? Ich hoffe meine Frage ist verständlich genug..
Vielen vielen Dank schonmal im Vorraus an alle Tüftler!
Antwort 1 von Beverly vom 16.11.2019, 19:21 Options
Hi,
Bis später,
Karin
MsgBox "Bitte geben Sie die Datenquelle an", , "Hinweis"
Application.Dialogs(xlDialogOpen).Show
Worksheets("Tabelle1").Cells.Copy ThisWorkbook.Worksheets("Datenquelle").Range("A1")
Bis später,
Karin
Antwort 2 von Mini249 vom 19.11.2019, 08:47 Options
Super, hat funktioniert!
Vielen Dank für die superschnelle Antwort!
Vielen Dank für die superschnelle Antwort!
Ähnliche Themen
Schnelles Einlesen von Textdateien in Excel
RF-Bug 07.01.2007 - 141 Hits - 4 Antworten
Datei lässt sich nicht kopieren
fabi1991 11.03.2007 - 62 Hits - 9 Antworten
Datei über VBA-Makro öffnen
andreas_3 09.09.2007 - 161 Hits - 2 Antworten
Excel VBA: Datei schreibgeschützt öffnen?
snailhouse 24.11.2007 - 506 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
