Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1812to1816
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
Inhaltsverzeichnis

Datei öffnen - Werte kopieren / einfügen

Datei öffnen - Werte kopieren / einfügen
23.02.2021 09:09:01
Kay
Hallo,
ich habe ein Problem, an dem ich verzweifele aber auch nicht so richtig etwas zu gefunden habe. Ich habe eine Masterdatei, in der das Makro laufen soll.
Ich möchte mittels Schaltfläche aus einer zweiten (noch unbekannten Quell-Datei) Werte in mein aktuell offenes Workbook kopieren (Master). Dazu soll die zweite Datei/das zweite Workbook (Quelle) mittels xlDialogOpen ausgewählt werden. Aus der Quelle soll dann beispielsweise die Werte aus den Zellen C3, D5, H2 in meinen Master eingefügt werden, ebenfalls an der Stelle C3, D5, H2. Beides mal (Master und Quelle) stehen die Werte in Tabelle1 (Name von Tabellenblatt kann variieren).
Die Quelldatei benötige ich nur als Lieferant für die entsprechenden Werte.
Danke für die Unterstützung.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen - Werte kopieren / einfügen
23.02.2021 11:52:56
fcs
Hallo Kay,
geht per Makro z.B. so:
Sub DatenEinlesen()
Dim wkbQuelle As Workbook
Dim wksQuelle As Worksheet
Dim varQuelle
Dim wkbMaster As Workbook
Dim wksMaster As Worksheet
Set wkbMaster = ActiveWorkbook
Set wksMaster = wkbMaster.Worksheets(1)
varQuelle = Application.GetOpenFilename( _
Filefilter:="Excel-Dateien(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", _
Title:="Bitte Quelldatei-auswählen")
If varQuelle = False Then Exit Sub
Set wkbQuelle = Application.Workbooks.Open(varQuelle, ReadOnly:=True)
Set wksQuelle = wkbQuelle.Worksheets(1)
wksMaster.Cells(3, 3) = wksQuelle.Cells(3, 3) 'C3
wksMaster.Cells(5, 4) = wksQuelle.Cells(5, 4) 'D5
wksMaster.Cells(2, 8) = wksQuelle.Cells(2, 8) 'H2
Set wksQuelle = Nothing
wkbQuelle.Close savechanges:=False
Set wkbQuelle = Nothing
Set wksMaster = Nothing
Set wkbMaster = Nothing
End Sub
LG
Franz
Anzeige
AW: Datei öffnen - Werte kopieren / einfügen
24.02.2021 08:43:44
Kay
Hallo Franz,
vielen Dank. Hast mir sehr geholfen :-)
Gruß Kay

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige