Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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
VBA Daten aus variabler Datei kopieren
06.12.2017 12:47:24
Stefan
Hallo zusammen
ich habe eine Arbeitsdatei welche wöchentlich den Namen ändert z.b. Arbeitsdatei KW1 oder Arbeitsdatei KW2 usw. (C\Daten\Tagesdaten\Arbeitsdatei KW1.xls)
In diesen Dateien befinden sich 7 Tabellen welche für den Wochentag stehen und demenstprechend mit Mo; Di; Mi fest umbenannt wurden.
Diese Tabellenblätter sind vom Aufbau stets gleich.
Ich muß nun aus einer anderen Datei (C\Daten\Auswertung.xls) immer Daten vom aktuellen Tabellenblatt (Tag) der o.g. Arbeitsdatei (z.B. die Zellen A1:B2) kopieren und in die Auswertungsdatei (Tabelle1)einfügen.
Zusammenfassend müßte Code folgendes ausführen:
1. Abfrage welche Datei öffnen - (auch Schreibgeschützt öffnen)
2. Abfrage aus welchem Tabellenblatt - oder autom. aktuellen Tag (Tabellenblatt) auswählen
3. Bereich a1:b2 kopieren (Arbeitsdatei KW1.xls)
4. Datei schliesen.(Arbeitsdatei KW1.xls)
5 In Tabelle 1 - A1:B2 einfügen (Auswertung.xls)
Wie, oder kann man dies überhaupt per VPA umsetzen?
Vielen Dank und liebe Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Daten aus variabler Datei kopieren
06.12.2017 13:19:08
Burak
Dim importdatei As String
Dim tabellenblatt As Integer
importdatei = Application.GetOpenFilename
tabellenblatt = "Bitte die Tabellenblattnummer eingeben"
Workbooks.Open FileName:=importdatei, UpdateLinks:=3, Notify:=False
Sheets(tabellenblatt).Cells("A1:B2").Copy
Windows("Auswertung.xls").Activate
Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
Windows("Arbeitsdatei KW1.xls").Close
AW: VBA Daten aus variabler Datei kopieren
06.12.2017 13:20:01
Burak
entschuldige bitte, die 5. Zeile muss natürlich lauten
tabellenblatt = InputBox("Bitte die Tabellenblattnummer eingeben")
AW: VBA Daten aus variabler Datei kopieren
07.12.2017 12:34:35
Stefan
Super Danke für Deine Hilfe.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige